ACCESS FEED: Re: [belajar-access] tambah record

Selasa, 02 Oktober 2012

Re: [belajar-access] tambah record

Untuk proses tambah data bisa menggunakan looping mas,

kemudian tambahkan dummy pada tblData berupa nomor urut.

proses dibawah merupakan vba jika tblData hanya berisi semua data yang akan dipindahkan.

=========

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim DataLoop as long

Dataloop=dcount(referensi, nama tabel)

if Dataloop<1 then exit function 'Exit Sub jika diletakkan di Private Sub()

Set db = CurrentDb
Set rs = db.OpenRecordset("tblTemp")

for i=1 to Dataloop

KT$=dlookup("[Ket]", "tblData","[NoUrut]="& i &"") 'misalkan data dimulai dari no urut 1

rs.AddNew
rs!Ket = KT
rs.Update

next i

rs.close

Set rs = Nothing
Set db = Nothing

==========

Guna No urut tidak lain untuk memberitahukan proses pemindahan/penambahan data.

apabila no urut tidak dimulai dari 1 bisa menggunakan fasilitas DMin() dan DMax().

Apabila data no urut bisa terhapus tambahkan fungsi dcount() untuk menghindari error.

...

if dcount(nourut, namatabel, nourut=?)<>0 then

for i ....

...

next i

end if

....

Salam,

Roland

----- Receiving the following content -----

From: him mah

Receiver: belajar-access

Time: 2012-10-03, 09:00:10

Subject: [belajar-access] tambah record

saya buat VBA untuk tambah record seperti ini

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("tblTemp")

rs.AddNew
rs!Ket = "ABC"
rs.Update

Set rs = Nothing
Set db = Nothing

kalau seperti di atas kita hanya menambahkan satu record saja, terus
bagaimana kalau menambhakan lebih dari 1 misal selain "ABC",
ditambahkan juga "DEF",GHI" dan lainnya

terus kalau ditambahakan nya dari tabel lainya bagaiamana misal tabel
"tblTEmp" untuk field [KET] ditambahkan dari field [ASAL] table
"tblData"