Coding Issue

  • Thread starter Thread starter pfm721
  • Start date Start date
P

pfm721

My code is as follows.


Private Sub Form_Open(Cancel As Integer)
Form.RecordSource = "tblVeteran.VetSSN, tblVeteran.VetLast,
tblVeteran.VetFirst, tblVeteran.VetDOB"
ActivateFormLocks Me
End Sub

I get error 2580 record source on this form or report does not exist

I am running a select query in the forms control source. When I run the
query it loads fine its code looks like this.

SELECT tblVeteran.VetSSN, tblVeteran.VetLast, tblVeteran.VetFirst,
tblVeteran.VetDOB FROM tblVeteran;
 
My code is as follows.

Private Sub Form_Open(Cancel As Integer)
Form.RecordSource = "tblVeteran.VetSSN, tblVeteran.VetLast,
tblVeteran.VetFirst, tblVeteran.VetDOB"
ActivateFormLocks Me
End Sub

I get error 2580 record source on this form or report does not exist

I am running a select query in the forms control source. When I run the
query it loads fine its code looks like this.

SELECT tblVeteran.VetSSN, tblVeteran.VetLast, tblVeteran.VetFirst,
tblVeteran.VetDOB FROM tblVeteran;
Click to expand...

Moral of the story? Create a select statement and use it as your
form's RecordSource.
 
The RecordSource needs to be a query.

Private Sub Form_Open(Cancel As Integer)
Form.RecordSource = "SELECT tblVeteran.VetSSN, " & _
"tblVeteran.VetLast, tblVeteran.VetFirst, " & _
"tblVeteran.VetDOB FROM tblVeteran"
ActivateFormLocks Me
End Sub
 
Back
Top