G
Guest
Here is my code, does anyone know why the dlookup doesn't work
ProjNum returns the value "09879
Code starts here***************************
Private Sub Report_Open(Cancel As Integer
ProjNum = InputBox("Generate an EPS Report for which project number?", "Project Number?"
Me.Text111.ControlSource = "='" & ProjNum & "'
ProdName = DLookup("[Project Name]", "Query1", "[Project Number]=" & ProjNum
Me.Text36.ControlSource = "='" & ProdName & "'
code ends here***********************************
ProjNum returns the value "09879
Code starts here***************************
Private Sub Report_Open(Cancel As Integer
ProjNum = InputBox("Generate an EPS Report for which project number?", "Project Number?"
Me.Text111.ControlSource = "='" & ProjNum & "'
ProdName = DLookup("[Project Name]", "Query1", "[Project Number]=" & ProjNum
Me.Text36.ControlSource = "='" & ProdName & "'
code ends here***********************************