Terima kasih mas atas pencerahannya dan sangat membantu sakali.
salam,
trisnoe
From: GALIH PERSADHA <galih_persadha@yahoo.co.id>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Tuesday, October 18, 2011 9:20 AM
Subject: Bls: [belajar-access] Re: Mengambil Nilai dari combo box [1 Attachment]
Ikutan sumbang saran pak EDY
dalam after clik untuk combo0 saya tambahin seperti ini
Private Sub Combo0_AfterUpdate()
Dim x As String
Dim y As String
If Me.Combo0.Column(0) = 1 Then
x = "A"
ElseIf Me.Combo0.Column(0) = 2 Then
x = "B"
ElseIf Me.Combo0.Column(0) = 3 Then
x = "C"
ElseIf Me.Combo0.Column(0) = 4 Then
x = "D"
End If
DoCmd.RunSQL "insert into table1 (" & x & ") values ('" & Me.Combo0.Column(0) & "')"
End Sub
Dim x As String
Dim y As String
If Me.Combo0.Column(0) = 1 Then
x = "A"
ElseIf Me.Combo0.Column(0) = 2 Then
x = "B"
ElseIf Me.Combo0.Column(0) = 3 Then
x = "C"
ElseIf Me.Combo0.Column(0) = 4 Then
x = "D"
End If
DoCmd.RunSQL "insert into table1 (" & x & ") values ('" & Me.Combo0.Column(0) & "')"
End Sub
saya lampirkan juga lampirannya yang sadah saya coba
semoga membantu
Dari: Sutrisno Ae <trisno_ae@yahoo.com>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Senin, 17 Oktober 2011 12:43
Judul: Re: [belajar-access] Re: Mengambil Nilai dari combo box [1 Attachment]
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,
>
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,
>
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
Tidak ada komentar:
Posting Komentar