Private Sub Combo0_AfterUpdate()
Combo2.Requery
End Sub
Private Sub Combo2_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Combo2_GotFocus()
If Len(Trim(Nz(Combo0, "" & "") = 0 Then
MsgBox "Please Specify Make first"
Combo0.SetFocus
Else
Combo2.Requery
End If
End Sub
Private Sub Combo6_GotFocus()
If Len(Trim(Nz(Combo2, "" & "") = 0 Then
MsgBox "Please Specify Model first"
Combo2.SetFocus
Else
Combo2.Requery
End If
End Sub
All i get are numbers...that arent the years i want
Combo2.Requery
End Sub
Private Sub Combo2_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Combo2_GotFocus()
If Len(Trim(Nz(Combo0, "" & "") = 0 Then
MsgBox "Please Specify Make first"
Combo0.SetFocus
Else
Combo2.Requery
End If
End Sub
Private Sub Combo6_GotFocus()
If Len(Trim(Nz(Combo2, "" & "") = 0 Then
MsgBox "Please Specify Model first"
Combo2.SetFocus
Else
Combo2.Requery
End If
End Sub
All i get are numbers...that arent the years i want