Advertisement
Advertisement
| 06.11.2008 at 11:35AM PDT, ID: 23476892 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: |
Function addnewrecord(testcasenbr)
Dim db As DAO.Database
Dim sSQL As String
Dim rst
Set db = DBEngine(0)(0)
sSQL = " INSERT into tbl_Testcases " & "(tc_Name, tc_Desc) " & "SELECT tc_Name, tc_Desc " & _
"FROM tbl_Testcases " & " WHERE tc_Id = " & testcasenbr & ";"
db.Execute sSQL, dbFailOnError
db.Close
End Function
|