MS ACCESS MAILING LIST: Re: [belajar-access] Mengganti Default value [1 Attachment]

[Attachment(s) from Cecep W included below]

masih belum bisa mas Aksan...
ketika form ditutup dan kemudian dibuka lagi textbox (TxtFirstDateOfTheYear) tidak ada default tanggal.
saya inginnya ketika form itu dibuka maka pada textbox(TxtFirstDateOfTheYear) tampil/default tanggal paling akhir pada list combobox itu.

berikut saya lampirkan lagi contoh file yg sudah saya masukan fungsi dari mas Aksan

regards
CW

Pada 23 September 2010 17.34, Aksan Kurdin <aksan.kurdin@gmail.com> menulis:

Kasus anda berbeda.
Yang ingin anda rekam adalah semua nilai yang pernah masuk di combo box.

pake fungsi ini:
Private Sub TxtFirstDateOfTheYear_AfterUpdate()     If Nz(DLookup("First_Date", "TblFirstDateOfTheYear", "First_Date=#" & Format(Me.TxtFirstDateOfTheYear, "mm/dd/yyyy") & "#"), "") = "" Then            DoCmd.RunSQL "INSERT INTO TblFirstDateOfTheYear(First_Date) VALUES (#" & Format(Me.TxtFirstDateOfTheYear, "mm/dd/yyyy") & "#)"            Me.TxtFirstDateOfTheYear.Requery     End If End Sub  
aksan kurdin

On 9/23/2010 2:15 PM, Cecep W wrote:

masih belum bisa mas Aksan...
berikut saya lampirkan contoh file-nya

regards
CW

Pada 23 September 2010 12.14, Aksan Kurdin <aksan.kurdin@gmail.com> menulis:

mmm...
reply sebelumnya belum masuk juga.
saya reply ulang:

ganti """" dengan "#"

me.TxtFirstDateOfTheYear.devaultvalue="#" & me.TxtFirstDateOfTheYear & "#"

ingat, ada operator ampersand [&] untuk menggabungkan stringnya.

aksan kurdin

On 9/23/2010 7:20 AM, Cecep W wrote:

Dear Mas Aksan,
kalo kasus saya type-nya Tanggal, jelasnya sbb:
saya buat textbox (TxtFirstDateOfTheYear), textbox ini saya buat
combobox yg datanya saya ambil dari tabel TblFirstDate kemudian saya
buat procedure sbb:

me.TxtFirstDateOfTheYear.devaultvalue=""""me.TxtFirstDateOfTheYear""""

tapi ga berhasil.

dari combobox itu sy ingin men-devault-kan tanggal yang paling akhir
dari list yg ada di combobox tsb. bagaimana ya caranya?

regards
CW

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Date: 22 September 2010 16.15
Subject: [belajar-access] Mengganti Default value

>
>
> Dear Cecep,
>
> property defaultvalue memerlukan literal string, jadi modifikasi kode berikut:
>
>
> me.txthari.defaultvalue = """"& me.txthari& """"
>
> atau biar terbaca enak, definisikan literal string menjadi constanta:
>
> const quotes as string = """"
>
> dan kode bisa dimodif:
>
> me.txthari.defaultvalue = quotes& me.txthari& quotes
>
>
> agar defaultvalue bisa diingat saat program ditutup, maka dia harus di simpan dalam satu tabel yang nantinya bisa dibaca kembali setiap kali form dibuka.
>
>
> aksan kurdin
> - Perlihatkan kutipan teks -
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
>