Sdr. Akhmad . . Untuk mempercepat program anda sebisa mungkin gunakan "number" sebagai data type untuk field penghubung relasi antar tabelnya. misal:
tabel barang IDbarang autonumber NamaBarang text tabel harga barang IDbarang number Harga currency kedua tabel direlasikan oleh field IDbarang yang tipedatanya "number"=numerik Rgds, Nino ----- Original Message ----- From: akhmad ridhany To: [email protected] Sent: Wednesday, January 16, 2008 11:16 AM Subject: [belajar-access] curhat MsAccess 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. 3.. 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 ------ 4.. 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.
