Dear P.Aksan or ALL
dibawah penggalan Command Tambah pada Form penerimaan, masalah sama seperti yg
sudah saya kirim kemarin, tapi masih ada kendala tolong donk d koreksi y, n
untuk type yg berupa number di sini saya set typenya text, tetapi kenapa y d
tabel penerimaan untuk status tidak berubah atau terupdate menjadi Y defaultnya
design d set N
apa ada yg kurang?
Salam
Private Sub Command9_Click() -' Tambah
Dim VARA As Variant
Dim VARB As Variant
VARB = DLookup("UNIT_PRICE", "TBARANG", "STORE_KODE='" &
Forms!TRECEIPT!Store_Kode & "'")
If IsNull(VARB) Then
VARB = 0
End If
Dim SQL As String
DoCmd.RunMacro "RECEIPT1"
VARA = DLookup("VALUE", "TCURRENCY", "CURRENCY='" & Forms!TRECEIPT!CURRENCY &
"'")
If UNIT_PRICE > 0 Then
SQL = "UPDATE TBARANG SET UNIT_PRICE=" & Forms!TRECEIPT!UNIT_PRICE * VARA & "
WHERE STORE_KODE='" & Forms!TRECEIPT!Store_Kode & "'"
DoCmd.RunSQL SQL
Else
SQL = "UPDATE TBARANG SET UNIT_PRICE=" & VARB & " WHERE STORE_KODE='" &
Forms!TRECEIPT!Store_Kode & "'"
DoCmd.RunSQL SQL
End If
VARA = DLookup("ORDER_QTY", "TPURCHASE_ORDER", "INDENT_NO='" &
Forms!TRECEIPT!INDENT_NO & "'")
If IsNull(VARA) Then
VARA = DLookup("QTY", "Tindent_status", "INDENT_NO='" &
Forms!TRECEIPT!INDENT_NO & "'")
End If
VARB = DLookup("SUM(QTY)", "BAL_QTY", "INDENT_NO='" & Forms!TRECEIPT!INDENT_NO
& "'")
If IsNull(VARB) Then
VARB = 0
End If
If (QTY + VARB) < VARA Then
SQL = "INSERT INTO BAL_QTY VALUES('" & Forms!TRECEIPT!INDENT_NO & "'," &
Forms!TRECEIPT!QTY & ")"
DoCmd.RunSQL SQL
SQL = "UPDATE TPURCHASE_ORDER SET DELIVERY_STATUS='O' WHERE INDENT_NO='" &
Forms!TRECEIPT!INDENT_NO & "' AND STORE_KODE='" & Forms!TRECEIPT!Store_Kode &
"'"
DoCmd.RunSQL SQL
Else
SQL = "UPDATE Tindent_status SET DELIVERY_STATUS='Y' WHERE INDENT_NO='" &
Forms!TRECEIPT!INDENT_NO & "' AND STORE_KODE='" & Forms!TRECEIPT!Store_Kode &
"'"
DoCmd.RunSQL SQL
SQL = "UPDATE TPURCHASE_ORDER SET DELIVERY_STATUS='Y' WHERE INDENT_NO='" &
Forms!TRECEIPT!INDENT_NO & "' AND STORE_KODE='" & Forms!TRECEIPT!Store_Kode &
"'"
DoCmd.RunSQL SQL
End If
