MS ACCESS MAILING LIST: Re: [belajar-access] Re: Mengganti Default value [2 Attachments]

[Attachment(s) from Cecep W included below]

Ada error seperti terlampir dan ketika saya debug ada yg diBold kuning sbb:
Private Sub Form_Load()
Me.TxtFirstDateOfTheYear.DefaultValue = DLookup("StpValue", "tblM_SETUP", "StpKey = 'FrmFirstDate_ComboFirstDateOfTheYear_DefValue'")

End Sub

tapi saya sangat-sangat terinspirasi dengan fungsi ini pada point pembuatan tabel tambahan akhirnya saya buat "Query Make Table" dan dari tabel buatan Query ini saya ambil datanya untuk dijadikan default pada Textbox "TxtFirstDateOfTheYear" dan akhirnya SUKSES sesuai harapan....sungguh luar biasa inspirasi dari seorang Master....
terimaksih banyak mas Aksan atas segala ilmunya yg tak lelah beberapa hari ini terus memberi jawaban.
berikut saya lampirkan hasilnya.

regards
CW

Pada 24 September 2010 10.27, aksankurdin <aksan.kurdin@gmail.com> menulis:

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