Dear Mas Ed-one,
Pada kode: & Me![NOMINAL]"";"
Coba diganti ya menjadi: & Me![NOMINAL] & ";"
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-oneSent: Friday, September 14, 2012 4:11 PMSubject: Re: Query untuk operator (>,<,=,<=,>=)
Terima Kasih mas atas respondnya...
Cuma maaf maksud saya tanda operatornya (>,<,=,<=,>=) kita bisa pilih secara bebas.
Sedangkan contoh yang mas berikan tanda operatornya sudah DIPATEN >=.
Saya sdh coba bikin form untuk memasukan nominal serta tanda operator (dlm bentuk pilihan combo box) yang akan kita pilih secara bebas.
di VBA mas opi sy modifikasi where nya jadi :
"WHERE Tbl_setoran.totaL_ziswaf " & Me![OPT] & " & Me![NOMINAL]"";"
tapi selalu muncul message error :
Syntax error (missing operator) in query expression 'Tbl_setoran.total_Ziswaf <= & Me![NOMINAL]";'.
salahnya dimana ya? Mohon pencerahannya ....
Thanks,
ed-one
--- Pada Kam, 13/9/12, Sofyan Efendi <sofyanefendi@gmail.com> menulis:
Dari: Sofyan Efendi <sofyanefendi@gmail.com>
Judul: Re: Query untuk operator (>,<,=,<=,>=)
Kepada: belajar-access@yahoogroups.com
Cc: "Ed-one" <idwan_rmk@yahoo.co.id>
Tanggal: Kamis, 13 September, 2012, 11:11 AM
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 SubProsedure 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----- 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