Nama :Asep Syaiful Hidayat NPM :09201046 Private Sub Cmdkode_Click() dbPembelian.Recordset.MoveFirst If dbPembelian.Recordset.BOF Then dbPembelian.Recordset.MoveNext End If End Sub Private Sub Cmdnama_Click() dbPembelian.Recordset.FindFirst “kode= ‘” + Text1 + “‘” If dbPembelian.Recordset.NoMatch Then MsgBox “kode tidak di temukan”, vbQuestion, “cari data” txtkode.SetFocus … Lanjutkan membaca tugas1
0 Komentar