maksih atas solusinya,
saya coba bikin fungsinya :
Function CUTI(tanggal As Date, NIK As String) As Integer
Dim TGLMAX As date
TGLMAX = DMax("tanggal", "KARYAWAN_CUTI", "[NIK] ='" & NIK.Value & "'")
CUTI = DLookup("SISA_CUTI", "KARYAWAN_CUTI", "[NIK] ='" & NIK.Value & "' AND
[tanggal]=#" & TGLMAX & "#")
End Function
dan ternyata masih ada error, apakah ada yang salah dengan fungsi tersebut ?
diki
________________________________
Dari: Murid Belajar Access <[email protected]>
Kepada: [email protected]
Terkirim: Jumat, 15 Mei, 2009 09:16:47
Topik: Re: [belajar-access] cari nilai
mungkin begini.
tglMax=dMax( "TANGGAL" ,"KARYAWAN_ CUTI","[NIK] ='" & NIK.value & "')"
sisaCuti=Dlookup( "SISA_CUTI" ,"KARYAWAN_ CUTI","[NIK] ='" & NIK.value & "' AND
[Tanggal]=#" & tglMax & "#)"
kalau dijadikan fungsi, nilai nik.value tinggal diganti jadi argumen fungsi
saja saja.
salam,
murid access - NRN CL BEW
----- Original Message -----
From: "diki wahyudin" <pangestu_cx@ yahoo.com>
To: <belajar-access@ yahoogroups. com>
Sent: Friday, May 15, 2009 08:38
Subject: [belajar-access] cari nilai
Mohon bantuan para pakar semuanya,
ada tabel KARYAWAN_CUTI dengan field :
NIK text
TANGGAL date
SISA_CUTI number
pada suatu form, Saya ingin mengambil nilai field SISA_CUTI dari record
dengan tanggal terakhir untuk suatu NIK.
Bagaimanakah script VBA-nya ?
Terima Kasih
Diki
Pemanasan global? Apa sih itu? Temukan jawabannya di Yahoo! Answers!
http://id.answers. yahoo.com
------------ --------- --------- ------
SPAM IS PROHIBITEDYahoo! Groups Links
Akses email lebih cepat. Yahoo! menyarankan Anda meng-upgrade browser ke
Internet Explorer 8 baru yang dioptimalkan untuk Yahoo! Dapatkan di sini!
http://downloads.yahoo.com/id/internetexplorer
