Re: [belajar-access] mohon bantuan cara membuat form pencarian dalam aplikasi access

Private Sub ButOK_Click() 'On Error Resume Next Dim MySql As String, Kriteria As String      'MySql = "SELECT TBL_MAHASISWA.NIM, TBL_MAHASISWA.NAMA, TBL_MAHASISWA.PROG_STUDI, TBL_MAHASISWA.KONSENTRASI, TBL_MAHASISWA.JUDUL_TESIS, TBL_MAHASISWA.PEMBIMBING_UTAMA  FROM TBL_MAHASISWA"     'Select Case Me!Kategori     'Case 1: Kriteria = "TBL_MAHASISWA.NIM Like '*" & Me!Cari & "*'"     'Case 2: Kriteria = "TBL_MAHASISWA.NAMA Like '*" & Me!Cari & "*'"     'Case 3: Kriteria = "TBL_MAHASISWA.PROG_STUDI Like '*" & Me!Cari & "*'"     'Case 4: Kriteria = "TBL_MAHASISWA.KONSENTRASI Like '*" & Me!Cari & "*'"     'Case 5: Kriteria = "TBL_MAHASISWA.JUDUL_TESIS Like '*" & Me!Cari & "*'"     'Case Else: Kriteria = "TBL_MAHASISWA.PEMBIMBING_UTAMA Like '*" & Me!Cari & "*'"     'End Select     'MySql = "SELECT TBL_MAHASISWA.NIM, TBL_MAHASISWA.NAMA, TBL_MAHASISWA.PROG_STUDI, TBL_MAHASISWA.KONSENTRASI, TBL_MAHASISWA.JUDUL_TESIS, TBL_MAHASISWA.PEMBIMBING_UTAMA FROM TBL_MAHASISWA WHERE (((TBL_MAHASISWA.NAMA) Like " * " & Me.NAMA & " * "));"     MySql = "SELECT TBL_MAHASISWA.NIM, TBL_MAHASISWA.NAMA, TBL_MAHASISWA.PROG_STUDI, TBL_MAHASISWA.KONSENTRASI, TBL_MAHASISWA.JUDUL_TESIS, TBL_MAHASISWA.PEMBIMBING_UTAMA FROM TBL_MAHASISWA WHERE (((TBL_MAHASISWA.NAMA) Like '*" & Me.NAMA & "*'));"     'DoCmd.RunSQL MySql     Me.FRM_Cari_Data_Tesis.Form.RecordSource = MySql     Me.FRM_Cari_Data_Tesis.Form.Requery End Sub  

Pak honey,
alasan anda memakai on error resume next, untuk apa ya, pak?
error bukan untuk diabaikan, tetapi untuk dihandle, kecuali kalau kita yakin benar bahwa error yang akan terjadi bisa di abaikan saja dengan resume next. jika error terjadi, access dengan ramahnya akan memberitahukan kepada kita apa yang salah dari error.description.

sekarang coba script di atas, kesalahan anda adalah sintaknya.

aksan kurdin

On 9/29/2010 3:28 PM, honey muswardana wrote:

 

Dear All para pakar access,

Saya sudah coba membuat form pencarian data menggunakan access, tetapi hasilnya
tidak sesuai harapan
apakah koding yg saya buat ada yg salah atau tata cara penulisannya yg kurang
tepat

Berikut ini saya sertakan file access yg saya coba buat, mohon masukan dan
pencerahan dari pakar access
sehingga form pencarian yg saya buat bisa berjalan normal

Atas bantuannya saya ucapkan banyak terima kasih

Best Regard
Honey Muswardana

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___