Coba otak atik posisi bulan dan hari..., saya mencoba dengan posisi bulan di
depan bisa. Seperti ini:
Dim VARA As Variant
If TANGGAL <> "" Then
VARA = DLookup("[COIL_OK]", "T_PRODUCTION_FIGURE", "[TANGGAL]=#" _
& Format(Forms!F_PRODUCTION_MASTER!TANGGAL, "MM") & " " _
& Format(Forms!F_PRODUCTION_MASTER!TANGGAL, "DD") & " " _
& Format(Forms!F_PRODUCTION_MASTER!TANGGAL, "YY") & "#")
GROSS_PRODUCTION_PCS_TODAY = VARA * 1.295
GROSS_PRODUCTION_PCS_TODAY.Requery
End If
Semoga bisa membantu
--- On Thu, 8/4/10, Maulana <[email protected]> wrote:
From: Maulana <[email protected]>
Subject: Re: [belajar-access] DATA TABEL [1 Attachment]
To: [email protected]
Date: Thursday, 8 April, 2010, 8:02 AM
[Attachment(s) from Maulana included below]
bukan itu maksud saya mas...untuk lebih jelasnya saya lampirkan
aja formnya...dan mohon di koreksi buat yg lainnya barangkali ada yang
mirip-mirip
ini stengah jadi..
salam
----- Original Message -----
From: hari yanto
To: belajar-access@ yahoogroups. com
Sent: Wednesday, April 07, 2010 7:31 PM
Subject: Re: [belajar-access] DATA TABEL
Coba sintaxnya diperbaiki seperti ini:
VARA = DLookup("COIL_ OK", "T_PRODUCTION_ FIGURE", "TANGGAL=#"
& Forms!F_PRODUCTION_ MASTER!TANGGAL & "#")
Mohon dicek juga format textbox tanggal pada form. Harus menggunakan date
pula....
Mungkin ini bisa membantu...
--- On Wed, 7/4/10, Maulana <maulana_pup@ yahoo.co. id> wrote:
From: Maulana <maulana_pup@ yahoo.co. id>
Subject: [belajar-access] DATA TABEL
To: "access" <belajar-access@ yahoogroups. com>
Date: Wednesday, 7 April, 2010, 2:49 PM
Dear All
ada sintax sperti ini tapi kenapa y tidak bisa tampil pada
textbox yang di inginkan
ada textbox data diambil dari tabel
Private Sub TANGGAL_LostFocus( )
Dim VARA As Variant
VARA = DLookup("COIL_ OK", "T_PRODUCTION_ FIGURE", "TANGGAL=#" &
Forms!F_PRODUCTION_ MASTER!TANGGAL & "#")
GROSS_PRODUCTION_ PCS_TODAY = VARA
End Sub
Salam
MAulana
New Email names for you!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
New Email names for you!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
http://mail.promotions.yahoo.com/newdomains/aa/
