[belajar-access] Re: Mengganti Default value

Yahoogroups agak aneh beberapa hari ini.
replymu sudah saya approve, cep, tapi tampaknya belum masuk juga.
berikut jawaban saya:
(sebelumnya tambahkan tabel baru M_SETUP(stpKey text, stpValue text), tambahkan satu record dengan stpKey = 'FrmFirstDate_ComboFirstDateOfTheYear_DefValue', dan stpValue kosongkan saja.)

Option Compare Database

Dim bol_DefValueFirstDateOfTheYearChanged As Boolean

Private Sub Form_Close()
If bol_DefValueFirstDateOfTheYearChanged Then
DoCmd.RunSQL "UPDATE M_SETUP SET StpValue = '" & Me.TxtFirstDateOfTheYear.DefaultValue & "' WHERE StpKey='FrmFirstDate_ComboFirstDateOfTheYear_DefValue'"
End If
End Sub

Private Sub Form_Load()
Me.TxtFirstDateOfTheYear.DefaultValue = DLookup("StpValue", "M_SETUP", "StpKey = 'FrmFirstDate_ComboFirstDateOfTheYear_DefValue'")
End Sub

Private Sub TxtFirstDateOfTheYear_AfterUpdate()
bol_DefValueFirstDateOfTheYearChanged = True
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
Me.TxtFirstDateOfTheYear.DefaultValue = "#" & Me.TxtFirstDateOfTheYear & "#"
End Sub

aksan kurdin

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> 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:
> > [Attachment(s) <#TopText> from Cecep W included below]
> >
> > masih belum bisa mas Aksan...
> > berikut saya lampirkan contoh file-nya
> >
> > regards
> > CW
> >
> >
> > Pada 23 September 2010 12.14, Aksan Kurdin <aksan.kurdin@...
> > <mailto:aksan.kurdin@...>> 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@...
> >> <mailto:aksan.kurdin%40gmail.com>>
> >> To: belajar-access@yahoogroups.com
> >> <mailto:belajar-access%40yahoogroups.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 PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/