Untuk lebih jelasnya dalam memahami InputBox maka dapat dilihat dalam form sederhana ini:

Cara kerjanya sebagai berikut: Ketika di klik tombol ubah(Edit) maka akan keluar InputBox yang digunakan untuk mengubah data berdasarkan nip, sehingga kode program ditanamkan dalam tombol ubah. Lihat kodenya di bawah ini: With Adodc1.Recordset
Dim Mcari As String
Mcari = InputBox("Ketik NIP", "Cari")
If StrPtr(Mcari) = 0 Then
ElseIf Len(Mcari) = 0 Then
MsgBox "Anda Harus Mengisi NIP", vbInformation, "Cari"
Else
.Find "nip='" & Mcari & "'", , adSearchForward, 1
If .EOF Then
MsgBox "Data tidak ditemukan" & (Chr(10)) & "Silahkan Coba Lagi!", vbInformation, "Cari"
.Requery
cubah_Click
End If
tnip = !nip
tnama = !nmkaryawan
talamat = !alamat
If !jkel = "P" Then Option1 = True
If !jkel = "W" Then Option2 = True
tnotelp = !notelp
End If
End With
0 Komentar:
Posting Komentar