Wa'alaikumussalam Wr Wb,
Dear Mas Ed-one, untuk kriteria dari suatu form bisa menggunakan: >= Forms![NamaForm]![NamaTextBox] , tidak perlu menggunakan simbol &
Alternatif lainnya, untuk membuat kriteria dengan operator dari string secara bebas, maka query harus dibuat via VBA, tidak melalui design view ataupun SQL view. Hal ini sama seperti kita membuat stored procedure dengan kriteria berasal dari suatu form, maka kriteria harus diceplukin secara langsung kedalam query. Sebagai contoh:
Private Sub Command1_Click()
On Error GoTo msgerr
Dim db As DAO.Database
Dim qrydef As DAO.QueryDef
Dim strSQL As String
strSQL = "SELECT NamaTable.NamaField1, NamaTable.NamaField2 " & _
"FROM NamaTable " & _
"WHERE NamaTable.Field1>=" & Me![NamaVariable1] & ";"
DoCmd.DeleteObject acQuery, "NamaQuery"
Set db = CurrentDb()
Set qrydef = db.CreateQueryDef("NamaQuery", strSQL)
Application.RefreshDatabaseWindow
qrydef.Close
db.Close
Set qrydef = Nothing
Set db = Nothing
Exit Sub
msgerr:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & ". " & Err.Description, vbCritical, Err.Source
End If
End Sub
On Error GoTo msgerr
Dim db As DAO.Database
Dim qrydef As DAO.QueryDef
Dim strSQL As String
strSQL = "SELECT NamaTable.NamaField1, NamaTable.NamaField2 " & _
"FROM NamaTable " & _
"WHERE NamaTable.Field1>=" & Me![NamaVariable1] & ";"
DoCmd.DeleteObject acQuery, "NamaQuery"
Set db = CurrentDb()
Set qrydef = db.CreateQueryDef("NamaQuery", strSQL)
Application.RefreshDatabaseWindow
qrydef.Close
db.Close
Set qrydef = Nothing
Set db = Nothing
Exit Sub
msgerr:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & ". " & Err.Description, vbCritical, Err.Source
End If
End Sub
Prosedure diatas akan membuat query baru dengan kriterianya secara langsung dan bebas, bukan lagi merujuk ke NamaVariable1, tapi langsung isi dari field text box dari NamaVariable1 itu sendiri.
Buat teman2 semua, mohon kirim ke milis ya email tentang Access, beberapa mail access yg masuk secara japri mohon maaf tidak saya respon.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com
----- Original Message -----From: Ed-oneTo: Sofyan EfendiSent: Tuesday, September 11, 2012 6:45 PMSubject: Query untuk operator (>,<,=,<=,>=)
Assalamu'alaikum Mas Opi,
Mohon pencerahannya bagimana jika kita ingin memunculkan besaran suatu nominal dengan ketentuan operatornya ( >,<,=,<=,>= ) secara bebas..
Jika jenis operator kita pilih dan disimpan dalam suatu variabel/unbound dengan nama "opt", kemudian nominalnya kita isi 300.
Bagaimana cara penulisanya dalam query hingga data yg muncul sesuai dengan ketentuan yg diatas tadi. apakah opt&nominal ? atau adakah cara lainnya? mhn pencerahannya
Rgds,
ed-one
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
No comments:
Post a Comment