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

Senin, 05 Mei 2014

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

[Attachment(s) from Agung Santoso included below]

Kalau ane biasa pake simple aja (liat attach) ga pake coding

Pada 3 Mei 2014 11.08, GALIH PERSADHA <galih_persadha@yahoo.co.id> menulis:

[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