Untuk Posting Down_Payment saya coba pakai kode ini kok ada error
Error yang ada di "SQL_Line"
Ada yang puny Ide bagaimana memasukkan jumlah DP ( dari PO_line ) ke
General_ledger
Berikut kode saya mohon di koreksi
Dim rst As Recordset
Dim lihat_transaksi As Variant
Dim sql_line As String
Set rst = CurrentDb.OpenRecordset("General_Ledger")
rst.AddNew
a = Left("[Transaksion_ID]", 3)
lihat_transaksi = DLookup("[transaksion_id]", "[general_ledger]",
"Cstr(Left([transaksion_id], 3) = ' " & PDP & " ' )")
If lihat_transaksi > 0 Then
rst!transaksion_id = NOPDP
Else
rst!transaksion_id = PDP_PERTAMA
End If
rst!GL_Number = DLookup("[GL_Number]", "[PO_DP_posting]", "[ID] = 1")
rst!GL_Description = DLookup("[GL_description]", "[PO_DP_posting]",
"[ID]=1")
rst!Date = Now
rst!posting = Me.PO_Number
rst!posting_to = Me.PO_Suplyer_ID
rst!Description = "down payment" & Me.PO_Number
sql_line = "Select Down_payment from PO_Line where PO_Number = ' " &
Me.PO_Number & " ' "
DoCmd.RunSQL sql_line
rst!Value = sql_line
rst.Update
End Sub
Function PDP_PERTAMA() As String
x = 1
xy = "PDP" & Format(x, "000")
PDP_PERTAMA = xy
End Function
Function NOPDP() As String
'NOPDP = "PDP" & Format(CStr(Right(DLast("[transaksion_id]",
"[general_ledger]","(left([transaksion_id]),3) =' " & PDP & " '),3)) +
1,"000")
a = Left("[transaksion_id]", 3)
B = DLast("[transaksion_id]", "[general_ledger]", " & a & " = "PDP")
C = Right(" & b & ", 3) + 1
NOPDP = "PDP" & Format(" & c & ", "000")
End Function
Salam
Yokanan
