MS ACCESS MAILING LIST: Re: [belajar-access] Merubah criteria pada query dengan coding VBA

Hallo Mac Ba,

Mungkin itu yang saya alami dulu,

Saya dapat pencerahan dari para suhu di sini,

Ini tampilan formnya :

Ini vba saat tanggal order di klik,

'------------------------

Private Sub CmdQryTglPO_Click()
    Dim db As DAO.Database
    Dim QD As QueryDef
    Dim where As Variant

    Set db = CurrentDb()

    On Error Resume Next
    db.QueryDefs.DELETE ("qryMar_5_OrderSumary")
    On Error GoTo 0

    Where = Null
    Where = where & " AND [order_id]= '" + Me![CmbOrder] + "'"
    Where = where & " AND [prod_id]= '" + Me![CmbPartNo] + "'"
    Where = where & " AND [cust_id]= '" + Me![CmbCustomer] + "'"
    Where = where & " AND [lokasi]= '" + Me![CmbLokasi] + "'"
    Where = where & " AND [thnpo]= " + Me![CmbTahun]
    Where = where & " AND [blnpo]= " + Me![CmbBulan]
    Where = where & " AND [balance]= " + Me![sisanya]

    If Not IsNull(Me![SdTanggal]) Then
        Where = where & " AND [order_date] between #" & _
        Me![DariTanggal] & "# AND #" & Me![SdTanggal] & "#"
    Else
    If Not IsNull(Me![DariTanggal]) Then
          Where = where & " AND [order_date]= #" & Me![DariTanggal] & " #"
    End If
    End If

    MsgBox "Kriteria yang anda pilih : => " & Mid(where, 6) & " <="
    Set QD = db.CreateQueryDef("qryMar_5_OrderSumary", _
    "Select * from [qrymar_orderreportfinal] " & (" where " + Mid(where, 6) & ";"))

DoCmd.OpenForm "frmMar_5_OrderSumary"
End Sub

Terima kasih kepada para suhu yang dulu menginspirasi saya,

Ini kami namakan Dynamic Query

Semoga ini menjadi inspirasi yg lain.

Belajar Dan Belajar

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

From: mac ba

Date: 12/21/2012 10:41:44 AM

To: belajar-access@yahoogroups.com

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