MS ACCESS MAILING LIST: [belajar-access] Re: Query untuk operator (>,<,=,<=,>=)

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

----- Original Message -----

From: Ed-one

To: belajar-access@yahoogroups.com ; Sofyan Efendi

Sent: Friday, September 14, 2012 4:11 PM

Subject: 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 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

----- Original Message -----

From: Ed-one

To: Sofyan Efendi

Sent: Tuesday, September 11, 2012 6:45 PM

Subject: 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