Gimana yah pencarian 2 kriteria pada vb pada satu perintah
cthnya saya mau cari IDsurat(Txtidsurat) dan Tgl/Bln/Thn(DTPicker1)
cth perintah dengan pencarian 1 kriteria
Private Sub Txtidsurat_KeyPress(KeyAscii As Integer)
On Error GoTo Selesai
If KeyAscii = 13 Then
Txtnosurat.SetFocus
TSuratMasuk.Find ("idsurat ='" & Me.Txtidsurat & "'")
Txtidsurat.Text = TSuratMasuk.Fields("idsurat")
Txtnosurat.Text = TSuratMasuk.Fields("nosurat")
Txtperihal.Text = TSuratMasuk.Fields("perihal")
Txtasalsurat.Text = TSuratMasuk.Fields("asalsurat")
Dttgl = TSuratMasuk.Fields("tglsurat")
DTPicker1 = TSuratMasuk.Fields("tglmasuk")
Bprint.Enabled = True
TSuratMasuk.Requery
Call Locked1
End If
Exit Sub
Selesai:
MsgBox "Data Tidak DiTemukan!", vbCritical, "Ditemukan"
Btambah.Enabled = True
End Sub
klo untuk 2 kriteria gimana yah ?
___________________________________________________________________________
Dapatkan alamat Email baru Anda!
Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
[Non-text portions of this message have been removed]
