1) Maksud anda cara entry _*data*_ dengan vb script ? 2) Bukan tidak berjalan dengan baik, tapi memang tidak bisa berjalan. text box yang anda isikan bukan nilai tertentu, tetapi justru script sql-nya sendiri. Dari sini anda belum paham menggunakan vba. Jika anda sudah memasang combo, seharusnya field yang anda butuhkan bisa diambil dari combo tersebut. Contoh property rowsource dari combo anda adalah: SELECT tblWaiverLogPN.[wapnP/N], tblWaiverLogPN.[wapnMATERIALP/N] FROM tblWaiverLogPN
Lalu property column count anda set 2, maka anda bisa merujukkan textbox ke kolom combo yang sedang terpilih saat itu dengan: Me.[wapnMATERIALP/N].Value = Me.Combo68.Column(1) Ingatlah bahwa combo base index-nya 0, jadi kalau ada dua kolom, maka dia adalah column(0) dan column(1). Aksan Kurdin --- In [email protected], "ms.ac07" <[EMAIL PROTECTED]> wrote: > > Dear Master, > > 1) Mohon diberikan penjelasan bagaimana cara entry/add form pd ms access > menggunakan VB script? > > 2) Saya ingin memberikan VB code pada ufter update di Texbox jadi > ketika saya memasuk kan suatu nilai dari text boxt maka maka text box > lain nya akan tampil nilai berdsarkan select Query contoh > > Private Sub Combo68_AfterUpdate() > Dim sMSource As String > > sMSource = "SELECT tblWaiverLogPN.[wapnMATERIALP/N]" & _ > "FROM tblWaiverLogPN " & _ > "WHERE (((tblWaiverLogPN.[wapnP/N]) = " & > Combo68.Value & "));" > > > Me.[wapnMATERIALP/N].Value = sMSource > Me.[wapnMATERIALP/N].Requery > > > End Sub > > Tapi ini tidak berjalan dengan baik > > Mohon pencerahan nya > > Thanks, > Ad >
