Private Sub Command7_Click()
Dim rst1 As Recordset
Dim rst2 As Recordset
Set rst1 = CurrentDb.OpenRecordset("table1", RecordsetTypeEnum.dbOpenDynaset)
Set rst2 = CurrentDb.OpenRecordset("table1", RecordsetTypeEnum.dbOpenDynaset)
kriteria = "PO = '" & Me.POACUAN & "' And PartNo ='" & Me.PartNoAcuan & "'"
MsgBox kriteria
rst1.FindFirst kriteria
If rst1.NoMatch Then
rst2.FindFirst kriteria
If rst2.NoMatch Then
MsgBox "Tak Diketemukan di " & vbCrLf & " tabel 1 dan tabel 2 "
Else
MsgBox "Tak Diketemukan di tabel 1 " & vbCrLf & " Ada Di Tabel 2 "
End If
Else
MsgBox "Ada Di Tabel 1 "
End If
rst1.Close
rst2.Close
Set rst1 = Nothing
Set rst2 = Nothing
End Sub
--- In belajar-access@yahoogroups.com, tio.adjie@... wrote:
>
> Dear Mas Sudarsono dan rekan Milis yang saya hormati,
>
> Adakah yang punya pencerahan untuk kasus ini ? Saya sudah mencoba menulis
> sintax Open Recordset tapi bisanya cuma cari dari 1 table, sementara yang
> saya tanyakah adalah dari 2 table, yaitu
>
> kalau tidak ketemu di table 1, maka cari di table 2 dengan penulisan Open
> Recordset. Pencerahan yang sebelumnya di kasih oleh Mas Edi Rosadi hanya 1
> table saja, dan Recordsetnya tidak ditutup.
>
> Dibawah adalah attachmentnya. Terima kasih sebelumnya.
>
> regards,
> Tio
>
> ----- Forwarded by Tio Adi Bayu Adjie/SSB/PTTU on 09/16/2011 01:16 PM
> -----
>
>
> Tio Adi Bayu Adjie
> 07/29/2011 01:18 PM
>
>
> To: belajar-access@yahoogroups.com
> cc:
> Subject: RE: [belajar-access] Contoh penulisan Open Recordset dengan 2 kriteria
> dengan data type text
>
> Mas Sudarsono dan rekan milis lain,
>
> Ini filenya :
>
>
>
> Untuk kasusnya, tolong buka di form dengan nama PenjelasanForm.
>
> Terima kasih,
> regards,
> Tio
>
>
>
>
>
> Sudarsono Suhenk <jkssbma@...>
> Sent by: belajar-access@yahoogroups.com
> 07/28/2011 04:30 PM
> Please respond to belajar-access
>
>
> To: belajar-access yahoo.com <belajar-access@yahoogroups.com>
> cc:
> Subject: RE: [belajar-access] Contoh penulisan Open Recordset dengan 2 kriteria
> dengan data type text
>
>
>
> Coba kamu tulis sintaks open recordset yang kamu buat. misal "select *
> from .... where .... = '" & textbox1 & "'" and ... = '" & textbox2
> tanda ' perlu ditambahkan di awal dan akhir dari textbox
> Atau kamu kirim saja file mdb yang sudah di compress dengan WinRar
>
> Para master sedang semedi , mencari ilham baru...... apa access masih
> dipertahankan oleh Microsoft atau Ada Script baru yang lebih canggih dari
> PHP ( ini hanya intermeso )
> To: belajar-access@yahoogroups.com
> From: tio.adjie@...
> Date: Thu, 28 Jul 2011 14:24:51 +0700
> Subject: [belajar-access] Contoh penulisan Open Recordset dengan 2
> kriteria dengan data type text
>
>
>
> Dear Warga Milis,
>
> Saya punya table dengan 3 field. 2 field diantaranya bernama POCore dan
> PartNo. Field yang lain berupa keterangan saja, katakanlah field ke-3
> bernama Remark. Minta pencerahannya, bagaimana
>
> penulisan pencarian data di table tsb dengan Open Recordset dengan 2
> kriteria yaitu kriteria POCore dan PartNo, yaitu ketika POCore dan PartNo
> sesuai dengan ke-2 text box di form, maka MsgBox
>
> nya "Ya", kalau tidak MsgBoxnya "Tidak". Katakanlah Textbox di form itu
> bernama POCoreCtl dan textbox lain bernama PartNoCtl. Saya sudah coba
> berpuluh-puluh kali dan cari di Mbah Google, belum
> berhasil.
>
>
> Terima kasih bantuannya.
>
> regards,
> Tio
>
Tidak ada komentar:
Posting Komentar