MS ACCESS MAILING LIST: RE: [belajar-access] Re: texbox sbg tempat entry data pada beberapa field yg berlainan tabel

Coba bantu ya Saudara Momont

Pada tombol “Simpan” pada event On Click ketikan perintah sbb :

docmd.SetWarnings False

docmd.RunSQL "Insert Into tabelA(Fieldsatu) Values(“ & Input.text & “ )"

docmd.RunSQL "Insert Into tabelB(Fieldsatu) Values(“ & Input.text & “ )"

docmd.SetWarnings True

‘Catatan

Mudah2an membantu ya Saudara Momont

Salam Hangat.. J

From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of momont
Sent: 19 Februari 2012 11:08
To: belajar-access@yahoogroups.com
Subject: [belajar-access] Re: texbox sbg tempat entry data pada beberapa field yg berlainan tabel

sdh coba dijalankan tp masih ngambek gak mau tersimpan di tabel.

Seandainya keadaan form saya ubah seperti ini bagaimana?
Misal saya telah membuat form dng nama "Entry"
dalam form tersebut ada 2 objek, masing2 adl :
1. Textbox (unbound) dgn nama "Input"
2. Tombol dng nama "Simpan"

Yg saya tanyakan, Bagaimana caranya agar
disaat saya mengisi textboxt"Input" dan kemudian klik tombol Simpan
maka nilai yg saya isikan pada textbox "Input" tersebut
akan tersimpan di 2 field yg berlainan tabel.
misal nilai tersebut akan tersimpan di
1. "Fieldsatu" pada "tabelA" dan
2. "Fieldsatu" pada "tabelB".

Mohon Pencerahannya, terimkasih sebelumnya.

--- In belajar-access@yahoogroups.com, hari yanto <har_i20002000@...> wrote:
>
> Ada banyak metode untuk memasukkan data ke dalam tabel. Salah satunya menggunakan insert into. Ini contohnya:
> Â
> Dim db As Database
> Dim i As Integer
> Â Â Â If Text1 <> "" Then
> Â Â Â Â Â Â Â Set db = CurrentDb
> Â Â Â Â Â Â Â For i = 1 To 3
> Â Â Â Â Â Â Â Â Â Â Â db.Execute "insert into tabel" & i _
> Â Â Â Â Â Â Â Â Â Â Â & " (field" & i & ") values ('" & Text1 & "')"
> Â Â Â Â Â Â Â Next i
> Â Â Â Â Â Â Â db.Close
> Â Â Â Â Â Â Â Set db = Nothing
> Â Â Â End If
> Â
> Script diatas jalan untuk type data fieldnya adalah text. Bila type datanya number maka pada valuenya harus dihilangkan tanda ' (upperstrop). Sehingga berubah menjadi values (" & Text1 & ")"
> Â
> Semoga bisa membantu dan memberi semangat.
> Â
> Hariyanto (Surabaya)
> http://110.139.57.19
>
>
> Â
> Â
> --- On Sat, 14/1/12, Nurul Mukminin <cahoraman@...> wrote:
>
>
> From: Nurul Mukminin <cahoraman@...>
> Subject: [belajar-access] texbox sbg tempat entry data pada beberapa field yg berlainan tabel
> To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
> Date: Saturday, 14 January, 2012, 4:50 PM
>
>
>
> Â
>
>
>
>
>
>
>
>
> Salam kenal bwt semua master2 access.
>
> karena baru memulai beljar acces jd masih bingung.
> yg ingin saya tanyakan :
> bagaimana cara menjadikan satu texbox sbg tempat entry data pada beberapa field yg berlainan tabel sekaligus.
> misal:
> - nama textbox adl "text1", dengan mengisi nilai pada "text1" lalu "simpan" maka nilai yg tlh kita masukkan ini akan menjadi data baru di "field1" pada "tabel1", "field2" pada "tabel2" dan "field3" pada "tabel3".
> mohon solusinya. terimakasih.
>