Rabu, 19 Oktober 2011

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

 
[Attachment(s) from Sutrisno Ae included below]

Salam access,

Terima kasih mas Galih atas pencerahan kasus sebelumnya,yang jadi pertanyaan saya lagi bagimana untuk memasukkan nilai di kolom berikutnya / kesampingnya
contoh:
Kolom 1 sudah terisi "Belajar1", untuk memasukkan "Belajar2"  dikolom 2 bagaimana codingny mas..? file terlampir.  
NB: Coding tersebut apakah bisa digunakan di textbox.?
Terima kasih
salam,
trisnoe

From: GALIH PERSADHA <galih_persadha@yahoo.co.id>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Monday, October 17, 2011 7:20 PM
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,
>







__._,_.___

Attachment(s) from Sutrisno Ae

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