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.
