ACCESS FEED: Bls: [belajar-access] aplikasi warehouse sederhana [1 Attachment]

Jumat, 02 Mei 2014

Bls: [belajar-access] aplikasi warehouse sederhana [1 Attachment]

[Attachment(s) from GALIH PERSADHA included below]

Coba tambahkan :

Private Sub cb_kode_barang_pd_BeforeUpdate(Cancel As Integer)
Dim CEK As ADODB.Recordset
Set CEK = New ADODB.Recordset
CEK.Open "SELECT * FROM DBBARANG WHERE VAL(KODE_BARANG) = '" & Val(Me.kode_barang.Value) & "'", CurrentProject.Connection, adOpenDynamic, adLockBatchOptimistic
With CEK
    If CEK.BOF = True Then
        MsgBox "ASAS"
    Else

        Me.nama_barang_pd.Value = .Fields("NAMA_BARANG")
        Me.satuan_pd.Value = .Fields("SATUAN")
    End If
End With
End Sub

saya sertakan contohnya
semoga membantu

Pada Jumat, 2 Mei 2014 0:10, "atriandari@yahoo.com" <atriandari@yahoo.com> menulis:

[Attachment(s) from atriandari@yahoo.com included below]

Dear Team Accesso mania

Mohon bantuannya,

Disini ane ada masalah, file pada attachment

disana ada beberapa form, yang mau ane tanyakan

1. Pada form input produksi, ada subform kode_barang dengan combobox. Combobox itu relefant dengan form input data barang. Nah sekiranya ada yang bisa berbagi ilmu, cara ketika ane milih kode_barang, dan colom nama_barang + satuan, dapat terisi secara otomatis, sesuai dengan kode barangnya

mudah- mudahan ada yang bisa share ilmu

hatur nuhun

-amelia

__._,_.___

Attachment(s) from GALIH PERSADHA | View attachments on the web

1 of 1 File(s)