Dear Pakar,
saya buat form untuk pencarian seperti ini,
dan saya mau buat button untuk setiap item yang di klik lewat combo12
dapat menampilkan data seperti, button detail tetapi yag ini berupa report yg
datanya meliputi dari tabel indent,issue,purchase,receipt saja bagaimana
sqlnya,
intinya setiap item barang akan menampilkan data dalam satu report semua
informasi yang dibutuhkan
o y cara kerja combo12 ini ketika kita klik item combo12 kemudian klik button
detail akan terbuka form update barang.
terimakasih
salam, Maulana
Private Sub Command19_Click() (BUTTON DETAIL)
Forms!UPDATE_BARANG.AllowEdits = False
DoCmd.OpenForm "UPDATE_BARANG"
Forms!UPDATE_BARANG!Store_Kode = Store_Kode
Forms!UPDATE_BARANG!Command34.SetFocus
Forms!UPDATE_BARANG.Command19.Enabled = False
Forms!UPDATE_BARANG.Command35.Enabled = False
Forms!UPDATE_BARANG.Command36.Enabled = False
Forms!UPDATE_BARANG.Command37.Enabled = False
Forms!UPDATE_BARANG.Command38.Enabled = False
End Sub
Private Sub Form_Load()
KODE_BARANG.SetFocus
End Sub
Private Sub Combo12_Click()
Store_Kode = RTrim(Left(Combo12, 7))
End Sub
Private Sub NAMA_BARANG_KeyPress(KeyAscii As Integer)
'ubah karakter jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then NAMA_BARANG.SetFocus
End Sub
Private Sub NAMA_BARANG_LostFocus()
Dim vara As Variant
Dim VARI As Variant
Dim VARS As Variant
Dim varc As Variant
Dim VARDATE As Variant
Dim VARB As Variant
vara = Combo12.ListCount
For j = 0 To vara - 1 Step 1
Combo12.RemoveItem 0
Next j
varc = ""
VARI = DLookup("COUNT(STORE_KODE)", "TBARANG", "NAMA_BARANG LIKE '*" &
Forms!CARI_BARANG!INDENT_NO & "*'")
For j = 1 To VARI Step 1
VARS = DLookup("STORE_KODE", "TBARANG", "NAMA_BARANG LIKE '*" &
Forms!CARI_BARANG!INDENT_NO & "*' AND STORE_KODE NOT IN ('" & varc & "')")
VARB = VARS
varc = varc & "','" & VARS
VARS = DLookup("NAMA_BARANG", "TBARANG", "STORE_KODE='" & VARS & "'")
VARB = VARB & " " & VARS
Combo12.AddItem VARB
VARB = ""
Next j
End Sub
Private Sub STORE_KODE_KeyPress(KeyAscii As Integer)
'ubah karakter jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then Store_Kode.SetFocus
End Sub
Private Sub Command22_Click()
On Error GoTo Err_Command22_Click
DoCmd.Close
Exit_Command22_Click:
Exit Sub
Err_Command22_Click:
MsgBox Err.Description
Resume Exit_Command22_Click
End Sub
