Private Sub Bprint_Click()
Cr2.Connect = "Data Source=surat;uid=sa;pwd=sa;"
Cr2.ReportFileName = App.Path & "\disposisi.rpt"
Cr2.SelectionFormula = "{suratmasuk.idsurat} ='" & Txtidsurat & "'" And
"{suratmasuk.TGLMASUK}" = "' & DTPicker1 & "
Cr2.WindowState = crptMaximized
Cr2.RetrieveDataFiles
Cr2.Action = 1
End Sub
pencarian print 2 kriteria gimana mas ini kok gak mau juga yah
thanks
Dedy Purnama
----- Pesan Asli ----
Dari: Dian Rahmadi <[EMAIL PROTECTED]>
Kepada: [email protected]
Terkirim: Rabu, 20 Agustus, 2008 09:14:52
Topik: Bls: [indoprog-vb] pencarian dua kriteria
Dear Mas Dedy
Kalau menurut saya sih enaknya pake SQL Statement dan pake object ADO. Contoh :
Private Sub Txtidsurat_KeyPress (KeyAscii As Integer)
DIM RsSurat as ADODB.RECORDSET
SET RsSurat = NEW ADODB.RECORDSET
RsSurat.OPEN "SELECT * FROM SURAT WHERE " & _
"IDSURAT='" & TXTIDSURAT.TEXT & "' AND " & _
"TGLMASUK=#" & _
FORMAT(DTPICKER1. VALUE,"MM/ dd/yyyy") & "#",DBConn, adopenstatis, adreadonly
IF RsSurat.EOF THEN
msgbox "DATA TIDAK DITEMUKAN"
ELSE
Rs.MoveFirst
Txtidsurat.Text = RsSurat![idsurat]
Txtnosurat.Text = RsSurat![nosurat]
Txtperihal.Text = RsSurat![perihal]
Txtasalsurat. Text = RsSurat![asalsurat]
Dttgl = RsSurat!tglsurat]
END IF
end sub
DBConn adalah object ADO Connection.
Untuk lebih jelasnya mengenai penggunaan ADO, silahkan lihat MSDN.
Semoga membantu....
--- Pada Rab, 20/8/08, dedy purnama <dedy_purnama82@ yahoo.co. id> menulis:
Dari: dedy purnama <dedy_purnama82@ yahoo.co. id>
Topik: [indoprog-vb] pencarian dua kriteria
Kepada: indoprog-vb@ yahoogroups. com
Tanggal: Rabu, 20 Agustus, 2008, 8:49 AM
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]
____________ _________ _________ _________ _________ _________ _
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers. yahoo.com/
[Non-text portions of this message have been removed]
___________________________________________________________________________
Dapatkan situs lowongan kerja - Yahoo! Indonesia Search.
http://id.search.yahoo.com/search?p=lowongan+kerja&cs=bz&fr=fp-top
[Non-text portions of this message have been removed]
