|
|
Lengkapi program diatas dengan fasilitas Find, dimana jika tombol Find ditekan akan muncul suatu InputBox yang menanyakan nama yang dicari, jika ketemu, akan ditampilkan, dan jika tidak ketemu akan muncuk message box data tidak ada.
Private Sub cmdFind_Click()
Dim nama As String
nama = InputBox("Masukkan nama :", "Pencarian")
If nama <> "" Then
'lengkapi bagian ini
End If
End Sub