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, ""
MsgBox "Please Specify Make first"
Combo0.SetFocus
Else
Combo2.Requery
End If
End Sub
Private Sub Combo6_GotFocus()
If Len(Trim(Nz(Combo2, ""
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