kalau pencarian dengan 2 kriteria atau lebih, gunakan sql pak, kalau metode
yang bapak lakukan tidak bisa.
mis begini pak : select idsurat, nosurat, perihal, asalsurat, tglsurat, tglmasuk
from namatabel
where IDsurat=Txtidsurat and
tglmasuk=#DTPicker1#.
ini secara global saja pak, untuk penggunaanya dengan code vb.
http://cerita-gwe.blogspot.com
----- Original Message ----
From: dedy purnama <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, August 20, 2008 8:49:40 AM
Subject: [indoprog-vb] pencarian dua kriteria
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("asalsura t")
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]
[Non-text portions of this message have been removed]
