1. Sudah benar. Bisa ditingkatkan lagi dg link table yang dinamis, jadi biar tidak terpaku pada mapped drive X.
2. Lambat jika data banyak atau LAN kurang cepat. Kalau memang mau multiuser yg cepat, sebaiknya BE pakai SQL Server saja. 3. Pakai wild card ? dan * Good luck, Haer Talib 2008/1/16 akhmad ridhany <[EMAIL PROTECTED]>: > Salam kenal untuk semua master access diforum ini, > > saya sedang belajar membuat program sangat sederhana under access, > meskipun buatnya dari kopi paste,modif & yg paling penting masukan2 dari > milis ini.. > > meskipun sangat sederhana,alhamdulillah sangat membantu rutinitas kerja > sehari2 > > > > Format program tersebut sbb. > > ~ ada dua file MDB, *FilePertama.MDB* khusus untuk data, & > *FileKedua.MDB*untuk form,query,report dll. Refer ke > FilePertama.mdb (link table) > > Dengan pertimbangan apabila ingin Modifikasi design 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 juga menjadi link table di > FilePertama.MBD) > > > > SETELAH program gaya bebas tersebut diapplikasikan, ada beberapa (Banyak) > problem & Pertanyaan2 yg muncul, diantaranya yg paling urgent : > > > > 1. Apakah format gaya bebas seperti dijelaskan diatas bisa digunakan > ?? mungkin dari master access bisa memberikan trik2 lain yg lebih mudah > 2. Ketika program dibuka oleh beberapa user bersamaan, loadingnya > *sangaaaaatttt > lambat*... > > Kadang-kadang muncul runtime error "2467"..The expression you enters > refers to an object that is closed or doesnt exist. > > ~ Form pencarian tsb terdiri dari *Main form* untuk > cbobox,txtbox,option dll untuk kriteria yg ingin dicari & *SubForm* untuk > > Data yg ingin ditampilkan. > > 1. untuk kriteria pencarian yg menggunakan syntax (item 2), itu > terbatas hanya data yg sama persis dgn kriteria yg dicari: > > *apakah* kriterianya bisa dirubah dengan hanya mengisikan kata kunci > saja??, seperti kalau mengetik "Kopi" maka yg muncul > > Kopi Tubruk, Kopi Kapal Api, Kopiah, Es Kopi, dll > > > > Command yg sudah ada terlampir --- > > > > ----- > > Sub addtowhere(fieldvalue As Variant, fieldname As String, Mycriteria As > String, argcount As Integer) > > If fieldvalue <> "" 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 > > ------ > > > > 1. ada MainForm & SubForm yg link berdasarkan No.data, bagaimana > caranya: > > jika semua value di TxtStatus disubform = "OK" then > > cmdprint.enabled = true 'CMDPRINT ADA DI MAINFORM > > Else > > cmdprint.enabled = false > > end if > > > > > > > > > > > > > > > ------------------------------ > Never miss a thing. Make Yahoo your > homepage.<http://us.rd.yahoo.com/evt=51438/*http://www.yahoo.com/r/hs> >
