Para suhu suhu access yg terhormat,
mohon pencerahannya bagaimana cara membuat coding VBA� untuk melakukan pengeditan/perubahan suatu nilai pada satu baris data di table dan menggantinya dengan sebuah nilai yang ada pada sebuah textbox dalam form
trims
--- On Fri, 12/28/12, Sofyan Efendi wrote:
From: Sofyan Efendi
Subject: Re: [belajar-access] Merubah criteria pada query dengan coding VBA
To: belajar-access@yahoogroups.com
Date: Friday, December 28, 2012, 1:25 PM
� Apakah karena kurang tanda petik satu ya Mas ? Karena itu untuk number, kalau teks harus diberi tanda petik satu, menjadi: "WHERE NamaTable.Field1>='" Me![NamaVariable1] �"';" � Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
Access Course by Request: http://wp.me/PW3LC-hR ----- Original Message ----- Sent: Friday, December 28, 2012 11:07 AM Subject: 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 wrote:
From: Sofyan Efendi
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 ----- 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 wrote:
From: Sofyan Efendi
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 ----- 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 wrote:
From: Bramantya S Pratama
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
Sender: belajar-access@yahoogroups.com Date: Wed, 19 Dec 2012 07:26:24 -0800 (PST) To: 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
|
|
|
|
|
Tidak ada komentar:
Posting Komentar