VB programing problem
@ziasepsis-0NGPzn
•
Oct 23, 2024
Oct 23, 2024
1.2K
hi mates
private Sub Command4_Click()
Dim N As Integer
N = Val(InputBox("enter the regno:"))
rs.MoveFirst
Do Until rs.EOF
If N = rs!Regno Then
Call disp
Else
MsgBox "no record found"
End If
Exit Do
Loop
rs.MoveNext
End Sub
this is the search command codes. the problem is its not working . so please help mates. if it is wrong please correct it and give me a solution soon.
private Sub Command4_Click()
Dim N As Integer
N = Val(InputBox("enter the regno:"))
rs.MoveFirst
Do Until rs.EOF
If N = rs!Regno Then
Call disp
Else
MsgBox "no record found"
End If
Exit Do
Loop
rs.MoveNext
End Sub
this is the search command codes. the problem is its not working . so please help mates. if it is wrong please correct it and give me a solution soon.
