ACCESS FEED: Re: [belajar-access] Merubah criteria pada query dengan coding VBA

Kamis, 27 Desember 2012

Re: [belajar-access] Merubah criteria pada query dengan coding VBA

Trima kasih pak Sofyan atas respon nya..
mgkn lebih spesifiknya error nya itu mengarah ke bagian coding yang berikut ini pak:
"WHERE NamaTable.Field1>=" & Me![NamaVariable1] & ";"

saya udah kutak katik dgn mengganti nama tabel dengan nama query yang akan dibuat,terus nama fieldnya juga tapi yang muncul syntax error missing operator pada bagian di atas..
sekali lagi mohon maaf ganggu waktunya..
trims

--- On Fri, 12/28/12, Sofyan Efendi <sofyanefendi@gmail.com> wrote:

From: Sofyan Efendi <sofyanefendi@gmail.com>
Subject: Re: [belajar-access] Merubah criteria pada query dengan coding VBA
To: belajar-access@yahoogroups.com
Date: Friday, December 28, 2012, 10:29 AM

Wa'alaikumussalam Kang Mac, mungkin ada kesalahan di kode SQL nya. Mohon maaf belum bisa kirim sample. Dicek dulu aja Kang Mac, sedikit demi sedikit, atau bila perlu kode On Error Goto di nonaktifkan dulu.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
Access Course by Request: http://wp.me/PW3LC-hR

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

From: mac ba

To: belajar-access@yahoogroups.com

Sent: Friday, December 28, 2012 9:57 AM

Subject: Re: [belajar-access] Merubah criteria pada query dengan coding VBA

Assalamualaikum, master Sofyan..terima kasih atas pencerahan dan coding VBA nya..saya sudah coba aplikasikan tetapi malah muncul msg box error "Syntax error missing variable 3075"..krn saya "anak baru" pak di access,,kira2 itu penyebabnya apa ya pak ? mohon pencerahan tambahan atau sampel aplikasinya pak,,makasih sebelumnya pak sofyan

Salam dari Banten

--- On Thu, 12/27/12, Sofyan Efendi <sofyanefendi@gmail.com> wrote:

From: Sofyan Efendi <sofyanefendi@gmail.com>
Subject: Re: [belajar-access] Merubah criteria pada query dengan coding VBA
To: belajar-access@yahoogroups.com
Date: Thursday, December 27, 2012, 12:08 PM

Halo Mas Mac, untuk membuat kriteria dengan operator lain secara bebas, maka query harus dibuat via VBA, tidak melalui design view ataupun SQL view. 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.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
Access Course by Request: http://wp.me/PW3LC-hR

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

From: mac ba

To: belajar-access@yahoogroups.com

Sent: Friday, December 21, 2012 10:30 AM

Subject: [belajar-access] Merubah criteria pada query dengan coding VBA

Selamat Pagi para Access Master..
Saya membuat aplikasi yang mengharuskan saya mengcopy query setiap hari,saya mengcopy dgn menggunakan coding VBA docm.copy object dst...tetapi yang menjadi permasalahan criteria yang ada pada salah satu field di query asli ikut tercopy,padahal saya ingin merubahnya (melalui referensi sebuah text box suatu form), sebenarnya saya bisa saja membuka design view query nya di database window dan mengganti criterianya secara manual...tapi saya rasa itu terlalu rumit dan kurang efisien..
Mohon pencerahan dan sampel codingnya dari para master semuanya ..semoga Tuhan YME membalas kebaikan para master sekalian..

--- On Fri, 12/21/12, Bramantya S Pratama <bramantyasp@yahoo.com> wrote:

From: Bramantya S Pratama <bramantyasp@yahoo.com>
Subject: Re: [belajar-access] mohon bantuan cara membuat nomer otomatis
To: belajar-access@yahoogroups.com
Date: Friday, December 21, 2012, 6:21 AM

Benar sekali mas afrizal... Penomoran RM di RS kami pake sistem TDF ( Terminal Data Filling) dimana 2 digit terakhir mennunjukkan nomor lemari, 2 digit yang tengah menunjukkan nomor rak dalam lemari dan 2 digit depan menunjukkan nomer file pada rak tsb.. Jadi klo diurut misal no rekam medisnya 65.05.01 artinya file tersebut ada di lemari nomor 01 rak nomor 05 dan file nomor 65.. Begitu seterusnya.. Dimana 1 lemari ada 100 rak dan tiap rak ada 100 file.. Jadi 1 lemari diisi penuh dulu baru mengisi lemari selanjutnya.. Jika diurut dari 00.00.01 , 00.00.02 dst kn sudah beda lemari.. Mohon maaaf jika mbulet penjelasan saya.. Matur nuwun terima kasih

From: Afrizal <aflazio7@yahoo.com>

Sender: belajar-access@yahoogroups.com

Date: Wed, 19 Dec 2012 07:26:24 -0800 (PST)

To: <belajar-access@yahoogroups.com>

ReplyTo: belajar-access@yahoogroups.com

Subject: RE: [belajar-access] mohon bantuan cara membuat nomer otomatis

. Nomer rekam medis otomatis
pada rekam medis aturan pemberian nomor adalah:
00.00.00 dimana 2 angka 0 didepan diisi dulu baru yang tengah & yang belakang.. jd seperti ini urutannya

00.00.00 nomer rm ke 1
01.00.00 nomer rm ke 2
02.00.00 nomer rm ke 3
99.00.00 nomer rm ke 100
00.01.00 nomer rm ke 101
00.10.00 nomer rm ke 1001
00.00.01 nomer rm ke 10001 dst

to mas bram untuk aturan penomoran rekam medis sama seperti no urut biasa di mulai dari
00 00 00
00 00 01
00 00 02
00 00 03
dst

sepertinya yg mas bram simulasikan itu kayaknya cara baca no rekam medis untuk penyimpanan dalam rak penyimpanan (serial numbering system = membaca no rekam medis dari depan ke belakang)

thank
Afrizal