Re: [belajar-access] Mengganti Default value

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
>
>
>
>

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___