Selasa, 18 Oktober 2011

Re: [belajar-access] Re: Mengambil Nilai dari combo box [1 Attachment]

 
[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)

Recent Activity:
SPAM IS PROHIBITED
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Tidak ada komentar:

Posting Komentar