-
Hi, i used a text box to label the name of a new table but was unable to continue . Is there another way?
Dim dbs As Database
Dim qdf As QueryDef
Set dbs = OpenDatabase("c:\p1\data.mdb")
dbs.Execute "SELECT claim.* INTO " & " [Text1.text] FROM claim;"
MsgBox "Update Done", vbOKOnly, "Typhoid For Newcastle Condition"
dbs.Close
2) And How do i created a new table with a dialog box to let user key in ?? Pls show me with some code. Thks.
-
Instead of
dbs.Execute "SELECT claim.* INTO " & " [Text1.text] FROM claim;"
Shouldn't it be "Select Claim.* INTO " & text1.text & " FROM claim;" ?
that worked for me
HTH
Tom
