v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}w\:*
{behavior:url(#default#VML);}..shape
{behavior:url(#default#VML);}st1\:*{behavior:url(#default#ieooui) }
Terima kasih pak Haer atas masukannya,yang jelas akan membuat saya ingin
mengembangkan lagi,program yg sudah ada,
Adapertanyaan lebih lanjut dari masukan2 pak Haer,
Berhubung saya belajar database hanyaotodidak, jadi istilah2 dari pak haer
belum benar2 saya pahami,
Bagaimana cara membuat link table yg dinamis? Mungkin bias diinfokan
link/tutorial berkenaan dgn link dinamis..
masih berkenaan dgn tutorial, klau bisa saya diinfokan
link/tutorial/contoh kasus berkenaan dengan BE menggunakan SQL Server
akan saya coba item 3 ( kalau gagal baru saya nanya lagi…:)
yg ini belum dijawab (mungkin letaknya paling pawah)…sudah dicoba
gak ketemu2 rumusnya….:)
ada MainForm& SubForm yg link berdasarkanNo.data, bagaimana caranya:
jika semua value di TxtStatusdi subform = "OK" then
cmdprint.enabled = true 'CMDPRINT ADADI MAINFORM
Else
cmdprint.enabled = false
end if
---------------------------------
From: [EMAIL PROTECTED]:[EMAIL PROTECTED] OnBehalf Of Haer Talib
Sent: 16 Januari 2008 16:21
To: [email protected]
Subject: Re: [belajar-access]curhat MsAccess
1. Sudah benar. Bisa ditingkatkan lagi dg link tableyang dinamis, jadi biar
tidak terpaku pada mapped drive X.
2. Lambat jika data banyak atau LAN kurang cepat. Kalau memang mau multiuser
ygcepat, 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 darimilis ini..
meskipun sangat sederhana,alhamdulillah sangat membantu rutinitaskerja 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 Modifikasi designreport,form dll tidak
mengganggu datanya.
Jika user ingin running program tsb, kompie userharus Mapping drive folder
yg saya share ke drive X: (ini juga menjadi linktable di FilePertama.MBD)
SETELAH program gaya bebas tersebut diapplikasikan, ada beberapa(Banyak)
problem & Pertanyaan2 yg muncul, diantaranya yg paling urgent :
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 runtime error"2467"..The expression you enters refers to
an object that is closedor 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:
apakah kriterianya bisa dirubahdengan 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
------
ada MainForm & SubForm yg link berdasarkan No.data, bagaimana caranya:
jika semua value di TxtStatusdisubform = "OK" then
cmdprint.enabled = true 'CMDPRINT ADADI MAINFORM
Else
cmdprint.enabled = false
end if
---------------------------------
Never miss a thing. Make Yahoo your homepage.
---------------------------------
Looking for last minute shopping deals? Find them fast with Yahoo! Search.
