Selasa, 01 Januari 2013

Re: [belajar-access] Mengedit Salah Satu Data Tertentu Pada Table Dengan VBA

 

ikut nambahin pertanyaan,mohon rekan-rekan dapat membantu
jika menggunakan perintah yang pak Talib Share, Access secara otomatis memberikan Notifikasi "You are about to Update 1 row(s)."
gimana caranya menghilangkan notifikasi tersebut??
 
ABDUL
 
----- Original Message -----
From: Haer Talib
Sent: Monday, December 31, 2012 9:31 AM
Subject: Re: [belajar-access] Mengedit Salah Satu Data Tertentu Pada Table Dengan VBA

 

Contoh:

Nama table: tbl_Data
Nama field yang mau diupdate: NamaField  (tipe data text)
Nama field primary key: ID (tipe data autonumber/number)

Nama form: Form1
Nama text box di form: Text1
Nama field yang menyimpan ID record yang diupdate: Text0



tSQLCommand = "UPDATE tbl_Data SET NamaField = '" & Forms!Form1!Text1 & "' WHERE ID=" & Forms!Form1!Text0
DoCmd.RunSQL tSQLCommand

Semoga dapat dimengerti.

HAER

"Diam bisa jadi EMAS, tapi kalau ditanya orang jadi TIDAK SOPAN"




2012/12/29 mac ba <macba2000id@yahoo.com>



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 -----
From: mac ba
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 -----
From: mac ba
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 -----
From: mac ba
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

From: Afrizal
Date: Wed, 19 Dec 2012 07:26:24 -0800 (PST)
To:
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






--


Haer Talib

RumahAccess Indonesia
Tempatnya Belajar Microsoft Access
Artikel | Forum | Milis | Download | Training | Links | Blog | Event


__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (33)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___
Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)