D
dbl
Hi I have the following which works but it will not put in the vehicle make,
it just puts in the model.
What am I doing wrong?
Private Sub Registration_Number_AfterUpdate()
Dim ExistingVMake As Variant
Dim ExistingVModel As Variant
ExistingVMake = DLookup("[txtVehicleMake]", "tblRegNumbers", "[txtRegNo]='"
& Me.Registration_Number & "'")
ExistingVMake = DLookup("[txtVehicleModel]", "tblRegNumbers", "[txtRegNo]='"
& Me.Registration_Number & "'")
If Not IsNull(ExistingReg) Then
Me.Make___Model_of_Car = ExistingVMake & ExistingVModel
End If
End Sub
If I take out the & ExistingVModel it puts in the make, how do I get it to
put in the make and model?
Thanks for your help
Bob
it just puts in the model.
What am I doing wrong?
Private Sub Registration_Number_AfterUpdate()
Dim ExistingVMake As Variant
Dim ExistingVModel As Variant
ExistingVMake = DLookup("[txtVehicleMake]", "tblRegNumbers", "[txtRegNo]='"
& Me.Registration_Number & "'")
ExistingVMake = DLookup("[txtVehicleModel]", "tblRegNumbers", "[txtRegNo]='"
& Me.Registration_Number & "'")
If Not IsNull(ExistingReg) Then
Me.Make___Model_of_Car = ExistingVMake & ExistingVModel
End If
End Sub
If I take out the & ExistingVModel it puts in the make, how do I get it to
put in the make and model?
Thanks for your help
Bob