Baca Selengkapnya >>>                                                               <<< Kembali

 Design Form

Atur Properties :

Name                  : DataBarang
Databasename     : <>
Recordset Type   : 0 - Table
RecordSource     : Barang
Visible                 : False

Name               : DbGrid1
DataSource      : Data Barang

Name    : Cmdcari
Caption : &Cari


Name    : CmdKeluar

Caption : &Keluar






Listing Program

' Pencarian data atau record dengan method seek
Dim Mkodebrg As String * 6

Private Sub Cmdcari_Click()
' Jumlah karakter nama masukan
Dim panjang As String
Mkodebrg = InputBox(" Ketik Kode Barang :")
' Cari data yang kode barangnya sama dengan MKodebrg
Me.DataBarang.Recordset.Seek "=", Mkodebrg
If Me.DataBarang.Recordset.NoMatch Then
Response = MsgBox("data Tidak Ditemukan!", vbInformation, "Pencarian Kode Barang")
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
'Memanggil Form Input barang
Frminputdata.Show
End Sub

Private Sub Form_Activate()
'Mengaktifkan Index Kode BarangMkodebrg = ""
DataBarang.Recordset.Index = "Kodebrg"
End Sub


Gambar Form Run