[Attachment(s) from MBA included below]
kalau hasilnya sbb:
Gunakan VBA sbb:
Private Sub Combo0_AfterUpdate()
strSQL = "UPDATE table1 SET " & Combo0.Column(1) & " = " & Combo0
CurrentProject.Connection.Execute strSQL, True
End Sub
kalau hasilnya maunya sbb:
gunakan VBA sbb:
Private Sub Combo0_AfterUpdate()
strSQL = "INSERT INTO table1 (" & Combo0.Column(1) & ") VALUES (" & Combo0 & ")"
CurrentProject.Connection.Execute strSQL, True
End Sub
salam hangat dan jabat erat,
Edy Wiyono
On 10/17/2011 12:43 PM, Sutrisno Ae wrote:
terima kasih mas edy, maksud saya yang seperti ini mas. untuk pengambilan nilainya bagaimana?
file terlampir.
From: Edy <murid.belajaraccess@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Monday, October 17, 2011 11:40 AM
Subject: [belajar-access] Re: Mengambil Nilai dari combo box
tabel1
Kolom1 Kolom2
1 A
2 B
3 C
4 D
pada combobox after update:
Private Sub NamaComboBox_afterUpdate()
isi=NamaComboBox.value
tabel=NamaComboBox.column(1)
strSQL="INSERT INTO " & tabel & " VALUES (" & isi & ")"
with docmd
.setwarning false
.runsql strSQL,true
.setwarning true
end with
Sub
Salam hangat dan jabat erat,
Edy Wiyono
--- In belajar-access@yahoogroups.com, "Soetrisno" <trisno_ae@...> wrote:
>
> Dear master2 access yg terhormat
>
> mohon pencerahan, bagaimana cara filter nilai dari combo Box,
> contoh saya mempunyai.
> Tabel1.
> 1. A
> 2. B
> 3. C
> 4. d
> jika saya pilih anhka 1 dari combobox, maka tabel A akan terisi angka 1, jika saya pilih angka 2 maka tabel B akan terisi angka 2 dan seterusnya..
> Terima kasih..
>
> salam,
>
__._,_.___
Attachment(s) from MBA
1 of 1 File(s)
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
Tidak ada komentar:
Posting Komentar