stevedas
01-25-2014, 08:14 AM
Hello, I am new to VBA. I have created a form in Access 2007 to retreive records from a customer database (customer table called "customer"). The headings for the customer table are AccountNo, FName, Address, BalanceDue, CreditLimit.
On the form there is a button called "Retreive" and I have written the following code for the "on click" event, however the form is not responding:
Private Sub Retrieve_Click()
Dim maccount As String, MyDb As Database, RecCustomer As Recordset
Set MyDb = DBEngine.Workspaces(0).Databases(0)
Set RecCustomer = MyDb.OpenRecordset("customer", DB_OPEN_TABLE)
maccount = Me!TxtAccountNo
RecCustomer.Index = "PrimaryKey"
RecCustomer.Seek "=", maccount
Me!txtName = RecCustomer.Fields("FName")
Me!txtAddress = RecCustomer.Fields("Address")
Me!txtBalancedue = RecCustomer.Fields("BalanceDue")
Me!txtCreditlimit = RecCustomer.Fields("CreditLimit")
End Sub
Thank you so much in advance, Steve
On the form there is a button called "Retreive" and I have written the following code for the "on click" event, however the form is not responding:
Private Sub Retrieve_Click()
Dim maccount As String, MyDb As Database, RecCustomer As Recordset
Set MyDb = DBEngine.Workspaces(0).Databases(0)
Set RecCustomer = MyDb.OpenRecordset("customer", DB_OPEN_TABLE)
maccount = Me!TxtAccountNo
RecCustomer.Index = "PrimaryKey"
RecCustomer.Seek "=", maccount
Me!txtName = RecCustomer.Fields("FName")
Me!txtAddress = RecCustomer.Fields("Address")
Me!txtBalancedue = RecCustomer.Fields("BalanceDue")
Me!txtCreditlimit = RecCustomer.Fields("CreditLimit")
End Sub
Thank you so much in advance, Steve