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

Rabu, 26 Desember 2012

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

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