I have problems in understanding this code, can anybody help me ,a Nortwind data creating combox to reducing entry:
Code:
Private Sub 1stZIP DbClick (Cancel As Integer0 Dim varCity as Variant, varRegion as Variant, strZip as String strZip =Me![1stZip] Me![PostalCode]=strZip strZip = "'" & strZip & strZip.Colum (1) varCity = Me![1stZip].Column (1) varRegion = Me![1stZip].Column (2) Me![City] = varCity Me![Region] = varRegion End Sub
Comment