Senin, 17 Oktober 2011

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

 

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

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,
>







__._,_.___
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