sudah bisa pak edy, terima kasih. ternyata ada yang salah di rumus sql
harusnya
DoCmd.RunSQL "INSERT INTO tblTemp (Ket) VALUES ('" & x(i) & "') ", True
Pada tanggal 04/10/12, him mah <himmah.mlg@gmail.com> menulis:
> saya coba cara yang ke 2 tapi koq run time error syntax error in '
> INSERT INTO statement'
>
> Pada tanggal 03/10/12, MBA <murid.belajaraccess@yahoo.co.id> menulis:
>> biasanya kalau begini saya gunakan antara do while loop atau for next.
>> terutama kalau nambah datanya dari tabel lain.
>> atau kalau ngisi datanya berupa beberapa data yang berjejer dipisahkan
>> oleh spasi, koma, titik koma.
>>
>> contohnya.
>>
>> untuk menambah data keterangan.
>> bisa coba beberapa alternatif sbb:
>>
>> 1. data diletakkan di tabel lain. namanya tbl_Ket, fieldnya Ket.
>>
>> dim db as dao.database
>> dim rsKet as dao.recordset
>>
>> set db = currentdb
>> set rsKet=db.openrecordset("tbl_Ket")
>> set rs = db.openrecordset("tblTemp")
>>
>> ' alternatif 1
>>
>> do while not (rsKet.BOF or rsKet.EOF) ' dijalankan kalau record
>> di tabel tbl_Ket berisi data.
>> rs.addnew
>> rs!Ket=rsKet!Ket
>> rs.Update
>> rsKet.movenext
>> loop
>>
>> 'alternatif 2
>> 'pilih salah satu saja
>>
>> if not (rsKet.BOF or rsKet.EOF) then
>> rsKet.movelast
>> rsKet.movefirst
>>
>> for i=1 to rsKet.recordcount
>> rs.addnew
>> rs!Ket=rsKet!Ket
>> rs.Update
>> rsKet.movenext
>> next
>>
>> end if
>>
>> rs.close
>> rsKet.close
>> set rs=nothing
>> set rsKet=nothing
>> db.close
>> set db=nothing
>>
>>
>> 2. data di letakkan / dituliskan dalam sebuah text box. misalnya ditulis:
>> ABC DEF GHI --> perhatikan data dipisahkan dengan spasi.
>>
>> misalnya data dituliskan di form frm_Ket, di textbox txtKet.
>> ada tombol IsiData.
>> pada event IsiData_OnClick() dituliskan sbb:
>>
>> Private Sub IsiData_OnClick()
>>
>> x=split(txtKet.value,space(1)) --> karena dipisahkan dengan
>> spasi 1
>> for i=0 to ubound(x)
>> docmd.setwarnings false
>> docmd.runsql "INSERT INTO tblTemp (Ket) VALUES ('"
>> & x(i) & "'" , true
>> docmd.setwarnings true
>> next
>>
>>
>> End Sub
>>
>>
>> 3. nomor 2 bisa juga di jadikan procedure
>>
>> Sub IsiData( byval Ket as string)
>>
>> x=split(txtKet.value,space(1)) --> karena dipisahkan dengan
>> spasi 1
>>
>> for i=0 to ubound(x)
>> docmd.setwarnings false
>> docmd.runsql "INSERT INTO tblTemp (Ket) VALUES ('"
>> & x(i) & "'" , true
>> docmd.setwarnings true
>>
>> End Sub
>>
>> Nanti panggilnya tinggal sbb:
>>
>> IsiData "ABC DEF GHI"
>>
>>
>> Semoga bisa membantu.
>>
>> salam hangat dan jabat erat,
>>
>> MBA
>>
>> On 10/3/2012 09:00, him mah wrote:
>>>
>>> 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"
>>>
>>>
>>
>>
>
No comments:
Post a Comment