[Attachment(s) from hari yanto included below]
Tasurun....,
Selamat bergabung...
Ms Acces hampir sama dengan aplikasi lain. Untuk mencari kata pada alamat seperti yang Sampeyan harapkan, juga bisa dilakukan.
Yang harus dilakukan adalah menentukan kontrol-nya. Seperti pada gambar yang Sampeyan sampaikan, katakanlah untuk sebagai kata kontrol-nya, maka kata ini kita bandingkan dengan record alamat yang sudah ada di tabel.
Bila ada dan sama, kita sampaikan ke user. Begitu pula, bila tidak ada satu katapun yang sama, kita tunjukkan bahwa tidak ada kata yang cocok (atau pesannya menjadi kosong).
Tentu untuk sampai pada hal tersebut, kita memerlukan alat. Di Ms Access alat ini disebutkan dengan VBA (Visual Basic for Application). Kita manfaatkan VBA untuk memproduksi harapan-harapan Sampeyan.
Salah satu contoh VBA untuk mencari sesuatu misalnya:
Function min_id(tex As String)
'deklarasi variabel
Dim ta, ti As Variant
Dim rs As Recordset
If tex <> "" Then 'jika variabel yang dikirim berisi
'mencari nilai minimal dari id dengan kriteria nama seperti
'variabel *
ta = DMin("[id]", "t1", "[nama] like '" & tex & "*'")
If ta Then
'jika ada nilai minimal id, cari alamatnya
ti = DLookup("[alamat]", "t1", "[id]=" & ta)
'hasil berupa id|alamat
ta = ta & "|" & ti
End If
'kembalikan hasil id|alamat
min_id = ta
End If
End Function
'deklarasi variabel
Dim ta, ti As Variant
Dim rs As Recordset
If tex <> "" Then 'jika variabel yang dikirim berisi
'mencari nilai minimal dari id dengan kriteria nama seperti
'variabel *
ta = DMin("[id]", "t1", "[nama] like '" & tex & "*'")
If ta Then
'jika ada nilai minimal id, cari alamatnya
ti = DLookup("[alamat]", "t1", "[id]=" & ta)
'hasil berupa id|alamat
ta = ta & "|" & ti
End If
'kembalikan hasil id|alamat
min_id = ta
End If
End Function
Terlampir adalah contoh mdb 2003 yang bertujuan memproduksi kata pada alamat yang sama dari Tabel t1. Silahkan di otak-atik. Dan, sesuaikan dengan kebutuhan Sampeyan.
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
On Sunday, 5 January 2014, 18:43, "tasurun@gmail.com" <tasurun@gmail.com> wrote:
[Attachment(s) from tasurun@gmail.com included below]
Sore,
saya baru bergabung dan ada problem tentang data access
saya sedang mencari alamat yang mirip dari 1 tabel
seperti terlampir.
yang saya tanyakan apakah bisa access otomatis mencari karakter yang sama tersebut?
atas perhatian dan bantuan rekan2 semua saya ucapkan terima kasih
saya baru bergabung dan ada problem tentang data access
saya sedang mencari alamat yang mirip dari 1 tabel
seperti terlampir.
yang saya tanyakan apakah bisa access otomatis mencari karakter yang sama tersebut?
atas perhatian dan bantuan rekan2 semua saya ucapkan terima kasih
__._,_.___
Attachment(s) from hari yanto
1 of 1 File(s)
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar