perhatikan untuk membentuk kriteria pencarian.
o field tipe teks dicari dengan format:
where nama like '*sari*'
o untuk field tipe tanggal, quotesnya berupa:
where tglLahir > #12/4/2007#
ingat, formatnya harus #mm/dd/yyyy#
o untuk field numerik, tidak pake quotes
where JumlahAnak >= 2
Nah, temukan sekarang bagaimana memperbaiki kode anda sehingga bisa
menampilkan kopi sembarang merek.
Untuk yang ke-4, bisa pake kode ini: (saya anggap txtStatus cuma satu
buah)
me.cmdOk.enabled = (me.NamaSubForm.Form.txtStatus = "Ok")
Aksan Kurdin
--- In [email protected], akhmad ridhany
<[EMAIL PROTECTED]> wrote:
>
>
> Salam kenal untuk semua master access diforum ini,
>
> saya sedang belajar membuat program sangat sederhana underaccess,
meskipun buatnya dari kopi paste,modif & yg paling penting
masukan2dari milis ini..
>
> meskipun sangat sederhana,alhamdulillah sangat membanturutinitas
kerja sehari2
>
>
>
> Format program tersebut sbb.
>
> ~ ada dua file MDB, FilePertama.MDBkhusus untuk data, &
FileKedua.MDBuntuk form,query,report dll. Refer ke FilePertama.mdb
(link table)
>
> Dengan pertimbangan apabila ingin Modifikasidesign report,form
dll tidak mengganggu datanya.
>
> Jika user ingin running program tsb,kompie user harus Mapping
drive folder yg saya share ke drive X: (ini jugamenjadi link table di
FilePertama.MBD)
>
>
>
> SETELAH program gaya bebas tersebut diapplikasikan, adabeberapa
(Banyak) problem & Pertanyaan2 yg muncul, diantaranya yg
palingurgent :
>
>
>
> Apakah format gaya bebas seperti dijelaskan diatas bisa
digunakan ?? mungkin dari master access bisa memberikan trik2
lain yg lebih mudah
> Ketika program dibuka oleh beberapa user bersamaan,
loadingnya sangaaaaatttt lambat...
>
> Kadang-kadang muncul runtimeerror “2467”..Theexpression
you enters refers to an object that is closed or doesnt exist.
>
> ~Form pencarian tsb terdiri dari Main formuntuk
cbobox,txtbox,option dll untuk kriteria yg ingin dicari & SubForm
untuk
>
> Data yg ingin ditampilkan.
>
> untuk kriteria pencarian yg menggunakan syntax (item 2), itu
terbatas hanya data yg sama persis dgn kriteria yg dicari:
>
> apakahkriterianya bisa dirubah dengan hanya mengisikan kata kunci
saja??, sepertikalau mengetik “Kopi” maka yg muncul
>
> Kopi Tubruk, Kopi Kapal Api,Kopiah, Es Kopi, dll
>
>
>
> Command yg sudah adaterlampir ---
>
>
>
> -----
>
> Sub addtowhere(fieldvalue AsVariant, fieldname As String,
Mycriteria As String, argcount As Integer)
>
> Iffieldvalue <> "" Then
>
> If argcount > 0 Then
>
> Mycriteria = Mycriteria & "And"
>
> End If
>
> Mycriteria = (Mycriteria & fieldname & "like" & Chr(39)&
fieldvalue & Chr(39))
>
> argcount = argcount + 1
>
> End If
>
> End Sub
>
> -------
>
> Private Sub cmdcari_Click()
>
> Dim mysql As String
>
> Dim Mycriteria As String
>
> Dim myrecordsource As String
>
> Dim argcount As Integer
>
>
>
> argcount = 0
>
> mysql = "Select * from[tbl_quot]where"
>
>
>
> Mycriteria = ""
>
>
>
> addtowhere cbotype, "[type]", Mycriteria, argcount
>
> addtowhere cbomodel, "[model]", Mycriteria,argcount
>
> addtowhere cbosn, "[sn]", Mycriteria, argcount
>
> addtowhere CBOID, "[CUST ID]", Mycriteria,argcount
>
> addtowhere CBOST, "[ST]", Mycriteria, argcount
>
> addtowhere cboquotno, "[quot no]", Mycriteria,argcount
>
> addtowhere cbowono, "[WO]", Mycriteria, argcount
>
>
>
> If Mycriteria = "" Then
>
> Mycriteria = "true"
>
> End If
>
>
>
> myrecordsource = mysql &Mycriteria
>
> Me!frmtrackdata.Form.RecordSource= myrecordsource
>
> If Me![frmtrackdata].Form.RecordsetClone.RecordCount= 0 Then
>
>
>
> MsgBox "Data tidak ditemukan!!!!", vbExclamation,"Uppssss!!!"
>
> End If
>
> ------
>
>
>
> ada MainForm & SubForm yg link berdasarkan No.data,
bagaimana caranya:
>
> jika semuavalue di TxtStatus disubform = “OK” then
>
> cmdprint.enabled= true ‘CMDPRINTADA DI MAINFORM
>
> Else
>
> cmdprint.enabled= false
>
> end if
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Never miss a thing. Make Yahoo your homepage.
>
