MS ACCESS MAILING LIST: Re: [belajar-access] [WTA] Tambah record dengan beberapa nilai record sama

--- On Tue, 17/1/12, Ice Lemon Tea <agunawan003@yahoo.com> wrote:

From: Ice Lemon Tea <agunawan003@yahoo.com>
Subject: [belajar-access] [WTA] Tambah record dengan beberapa nilai record sama
To: belajar-access@yahoogroups.com
Date: Tuesday, 17 January, 2012, 4:23 PM

Dear All,

Salam Kenal, mau tanya bagaimana menambahkan record dengan beberapa nilai field yang sama dalam tabel yang sama.

Contoh kasus :

- Tabel A punya field : ID, Nama, Alamat

- Form A berisikan bound textbox dari field yang ada di Tabel A + Tombol Combo Box

Pertanyaan:

- Apa bisa dalam Tabel A tersebut di isi record dengan data field yang sama?

mis : data field "ID" sama, "Nama" sama tapi "Alamat" berbeda karena yang bersangkutan pindah lebih dari 1 kali, tapi record yg sebelumnya tidak ditimpa/modified

Bisa... Tergantung struktur Tabel yang Sampeyan buat. Misal kita buat id_record (unik, primary key), id_nama, nama, alamat, dst.

Dari sini kita bisa buat beberapa id_nama dan nama sama. Sehingga ketahuan, pindah tidaknya seseorang, menggunakan kontrol id_nama. Bila jumlahnya lebih dari satu, berarti ada perubahan data.

- Apakah bisa tombol yang ada di Form A digunakan untuk action "penambahan" record tersebut (macro/script mungkin)?

Ada banyak metode untuk memasukkan data ke dalam tabel. Salah satunya menggunakan insert into. Contohnya:

Function ubs(txt As Variant)
    If txt Like "*'*" Then
        ubs = Replace(txt, "'", "`") 'mengganti karakter ' menjadi `
    Else
        ubs = txt
    End If
End Function

Dim db As Database
    If id_nama <> "" and nama <> "" and alamat <> ""   Then



        nama = ubs(nama)

        alamat = ubs(alamat )

       dst = ubs(dst)

        Set db = CurrentDb
           db.Execute "insert into namatabel" _
            & " (id_nama, nama, alamat, textbox_dst) values (" _

            & textbox_id_nama_diForm & ",'" _

           & textbox_nama_diForm _

          & textbox_alamat_diForm _

          & textbox_dst_diForm & "')"
         db.Close
        Set db = Nothing
    End If

Prinsip dasar insert into adalah:

"insert into nam_tabel (nama_field_1, nama_field_2) values (nilai_1, nilai_2)"

Bila type data yang number, hilangkan tanda ' (upperstrop). Sehingga berubah menjadi values (" & Text1 & ")"

Bila text, tambahi dengan tanda ' (upperstrop) ==> ('" & Text1 & "')"

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

http://110.139.57.19

Sudah mencoba menggunakan Combobox Wizard, tapinya ada : add, delete, duplicate record. Apa mungkin ada yang terlewat?

sudah mencoba mencari di internet, namun implementasinya belum berhasil
-http://allenbrowne.com/ser-18.html
-http://www.pcreview.co.uk/forums/copy-some-fields-current-record-into-new-record-t1068169.html

Mohon bantuannya, maklum newbie.

Salam,
Andry Gunawan