Kalau untuk memasukkan data ke unbound text, bisa dengan sbb:
Contoh ini dengan menggunakan form employees di Northwind.
BirthDate.visible=false
HireDate.visible=false
3 textbox untuk BirthDate (DBD=Day BirthDate; MBD = Month BirthDate; YBD =
Year BirthDate)
3 textbox untuk HireDate (DHD=Day HireDate; MHD = Month HireDate; YHD = Year
HireDate)
Private Sub Form_Current()
'birthdate
DBD.Value = IIf(Not Me.NewRecord, Day(BirthDate.Value), "")
MBD.Value = IIf(Not Me.NewRecord, Month(BirthDate.Value), "")
YBD.Value = IIf(Not Me.NewRecord, Year(BirthDate.Value), "")
'hiredate
DHD.Value = IIf(Not Me.NewRecord, Day(HireDate.Value), "")
MHD.Value = IIf(Not Me.NewRecord, Month(HireDate.Value), "")
YHD.Value = IIf(Not Me.NewRecord, Year(HireDate.Value), "")
End Sub
Salam hangat dan jabat erat,
MBA
_____
From: [email protected] [mailto:[email protected]]
On Behalf Of Ahmad Qomaruddin
Sent: Thursday, 11 March, 2010 06:24
To: [email protected]
Subject: Re: [belajar-access] INPUT TANGGAL
saya coba buat dengan tiga buah textbox dengan dateserial, tapi waktu
dipanggil ketiga textbox-nya isinya tidak data dari yang dipanggil.
Kalo hitung2an cepet dan efisien tetap lebih enak langsung input manual mas
(masukkan angka), pake tiga textbox (cara 2) tapi ya itu masalahnya diatas,
btw thanks atas masukannya
2010/3/11 Ahmad Qomaruddin <[email protected]>
benar juga sih pake form kaya gini, tp kalo manual tanpa form gimana,
maksudnya tetap memasukkan angka,
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2733 - Release Date: 03/10/10
02:33:00
