pundabuyer
11-23-2008, 06:00 AM
Private Sub Command0_Click()
Dim Db As Database
Dim Qd As QueryDef
Set Db = CurrentDb
Set Qd = Db.CreateQueryDef("Q1", "PARAMETERS EnterCriteria String;INSERT INTO tbl_Append ( CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, Country, Phone, Fax ) SELECT Customers.CustomerID, Customers.CompanyName, Customers.ContactName, Customers.ContactTitle, Customers.Address, Customers.City, Customers.Region, Customers.PostalCode, Customers.Country, Customers.Phone, Customers.Fax FROM Customers WHERE (((Customers.CustomerID)=EnterCriteria));")
Qd!EnterCriteria = InputBox("Enter Name ID")
Qd.Close
End Sub
Dim Db As Database
Dim Qd As QueryDef
Set Db = CurrentDb
Set Qd = Db.CreateQueryDef("Q1", "PARAMETERS EnterCriteria String;INSERT INTO tbl_Append ( CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, Country, Phone, Fax ) SELECT Customers.CustomerID, Customers.CompanyName, Customers.ContactName, Customers.ContactTitle, Customers.Address, Customers.City, Customers.Region, Customers.PostalCode, Customers.Country, Customers.Phone, Customers.Fax FROM Customers WHERE (((Customers.CustomerID)=EnterCriteria));")
Qd!EnterCriteria = InputBox("Enter Name ID")
Qd.Close
End Sub