self generation of form if record exists

[WelshBL]

hi guys,
I have got the code of

If Not IsEmpty(UserForm1.Fillin1) Then
     flag = False
     i = 0
     ID = UserForm1.Fillin1
     Do While Cells(i + 1, 1).Value <> ""
         If Cells(i + 1, 1).Value = ID Then
             flag = True
             For j = 2 To 17
             UserForm1.Controls("Fillin" & j).Value = Cells(i + 1, j).Value
             Next j
         End If
         i = i + 1
     Loop
     If flag = False Then
         For j = 2 To 17
             UserForm1.Controls("Fillin" & j).Value = ""
         Next j
     End If
Else
     ClearForm
End If

however if I use a numeric value in the primary field it is not reading the rest of the record. if I put text in it works can anyone point me in right direction to be able to get it to allow both number and text as a primary search function

any help would be appreciated.

 

[wideboydixon]

UserForm1.Fillin1 is going to return a text (string) value but Cells(i + 1, 1).Value will return either text or number depending on the content of the cell. Try changing the If statement to this:

         If CStr(Cells(i + 1, 1).Value) = CStr(ID) Then

WBD

 

[WelshBL]

worked perfectly thanks WBD +1