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

[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

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

[belajar-access] Re: Mengganti Default value

he he...ada yang kelupaaan, tambah record baru di table T_Controls, di field nama isi dengan: tbox_Hari

[belajar-access] Re: Mengganti Default value

Kita coba ya...

1. Buat table baru dengan nama T_Data.
2. Tambah field: ID_Data (autonumber),Hari (string),Lokasi (string)

3. Buat table baru dengan nama T_Controls.
4. Tambah field: ID_Control(autonumber),Nama (string), Nilai (string)

5. Buat Form baru, datasource: T_Data, tambah semua field ke form.
6. Tambahkan lagi label control baru dan beri nama lbl_Info
7. Rename textbox Hari menjadi tbox_Hari
8. Masuk module form, copy dan pastekan semua koding dibawah ini:

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

Re: [belajar-access] Mengganti Default value [1 Attachment]

[Attachment(s) 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@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

Re: [belajar-access] Mengganti Default value

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

[belajar-access] Re: Mengganti Default value

Kamu copy aja kode berikut pada bagian default value textbox tsb, baik yg ada di form maupun yg di tabel filed.

=IIf(Weekday(Now();1)=1;"Minggu";IIf(Weekday(Now();1)=2;"Senin";IIf(Weekday(Now();1)=3;"Selasa";IIf(Weekday(Now();1)=4;"Rabu";IIf(Weekday(Now();1)=5;"Kamis";IIf(Weekday(Now();1)=6;"Jumat";IIf(Weekday(Now();1)=7;"Sabtu";Null)))))))

=====================================================================
--- In belajar-access@yahoogroups.com, him mah <himmah.mlg@...> wrote:
>
> maaf kalau sebelumnya pernah ditanyakan
>
> dalam suatu form saya buat textbox saya namain txtHari,
> kemudian default value nya saya buat "senin"
> bisa mengubah atau mengganti default value nya menjadi apa yang
> terakhir di ketik atau dimasukan dalam textbox tersebut, misal
> terakhir dientry Selama maka deault value nya menjadi selasa.
>
> terima kasih sebelumnya
>

[belajar-access] Re: Mengganti Default value

untuk quote tanggal ganti """" dengan "#"

aksan kurdin

--- In belajar-access@yahoogroups.com, Cecep W <cepwahyu@...> 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@...>
> 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
> >
> >
> >
> >
>

Re: [belajar-access] Mengganti Default value

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 -

Re: [belajar-access] Mengganti Default value

kalo mau disimpan saat program ditutup, saran bang aksan lebih cocok....simpan di tabel. event lostfocus-nya diisi script untuk menyimpan nilai textbox ke tabel, onload focus diisi dengan script yang mengambil value field yang diambil dari tabel. Salam, Edi Rosadi

Re: [belajar-access] Mengganti Default value

tapi ketika filenya di close kemudian di buka lagi, textbox tersebut
kembali ngga ada pak

2010/9/22, edi rosadi <edirosadie@yahoo.com.sg>:
> buat modul untuk mendeklarasikan variabel public
> silahkan dicoba, mudah-mudahan sesuai dengan yang dibutuhkan....
>
>
>
> Salam,
>
> Edi Rosadi
>

Re: [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

Re: [belajar-access] Mengganti Default value [1 Attachment]

[Attachment(s) from edi rosadi included below]

buat modul untuk mendeklarasikan variabel public silahkan dicoba, mudah-mudahan sesuai dengan yang dibutuhkan.... Salam, Edi Rosadi Algoritma dan Pemrograman Peta Industri dan Wisata Cilegon Blog Bahasa Cilegon Facebook-Perancangan Sistem

Re: [belajar-access] Mengganti Default value

kebetulan saya juga permasalah yg sama....
saya coba tidak berhasil, textboxnya dalam bentuk combobox.

regards
CW

----- Original Message -----
From: "him mah" <himmah.mlg@gmail.com>
To: belajar-access@yahoogroups.com
Date: 22 September 2010 15.26
Subject: [belajar-access] Mengganti Default value

>
> koq saya coba belum berhasil pak, setelah formnya saya buka kembali
> koq default valuenya ngga berubah ya
>
> Pada tanggal 22/09/10, Hasan Salman <salmankomputer@yahoo.com> menulis:
> >
> > Buat event procudure afterupdate pada txthari sbb:
> >
> > me.txthari.defaultvalue = me.txthari
> >
> > Sekian, terima kasih
> >
> > Salman Hasan,
> > Denpasar - Bali.
> >

Re: [belajar-access] Mengganti Default value

koq saya coba belum berhasil pak, setelah formnya saya buka kembali
koq default valuenya ngga berubah ya

Pada tanggal 22/09/10, Hasan Salman <salmankomputer@yahoo.com> menulis:
>
> Buat event procudure afterupdate pada txthari sbb:
>
> me.txthari.defaultvalue = me.txthari
>
> Sekian, terima kasih
>
> Salman Hasan,
> Denpasar - Bali.
>

Bls: [belajar-access] Mengganti Default value

Buat event procudure afterupdate pada txthari sbb: me.txthari.defaultvalue = me.txthari Sekian, terima kasih Salman Hasan, Denpasar - Bali.

[belajar-access] Mengganti Default value

maaf kalau sebelumnya pernah ditanyakan

dalam suatu form saya buat textbox saya namain txtHari,
kemudian default value nya saya buat "senin"
bisa mengubah atau mengganti default value nya menjadi apa yang
terakhir di ketik atau dimasukan dalam textbox tersebut, misal
terakhir dientry Selama maka deault value nya menjadi selasa.

terima kasih sebelumnya

Re: [belajar-access] Re: Save Record

Oke mas Aksan,...trims atas penjelasannya
Regards
Hendra

---

From: aksankurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Thu, September 16, 2010 10:03:32 AM
Subject: [belajar-access] Re: Save Record

Rancangan interface di Access umumnya bisa dikelompokkan menjadi dua: Bound form dan Unbound form.
Bagi pemula dan untuk pembuatan prototipe yang cepat, bound form sangat menolong, karena formnya instan langsung menyimpan setiap perubahan yang terjadi di atas form tersebut.
Beberapa expert memilih mengkombinasikan bound form dan unbound form untuk memaksimalkan sekuriti dan user friendly.
Unbound form lebih membutuhkan sedikit kerja tambahan untuk melakukan penyimpanan / perubahan / hapus data di atas form melalui programming vba/macro. Tetapi kontrol terhadap perubahan jadi lebih teliti.

aksan kurdin

--- In belajar-access@yahoogroups.com, Hendra Agestha Hamid <the_agestha@...> wrote:
>
> Dear warga milis...
>
> Saya ingin bertanya apakah dalam sebuah form perlu diberikan fasilitas "Save"
> record..?
> karena saya lihat contoh di Northwind tidak ada form yg memberikan button
> "Save",
> dan kelihatannya memang tidak perlu karena saya coba masukkan beberapa record
> baru dan langsung saya keluar tanpa save, semua record yg saya isikan itu tetap
> tersimpan
> dan pada waktu keluar form juga tidak ada MsgBox yg menanyakan apakah ingin
> menyimpan
> perubahan atau tidak.
>
> Terima kasih
> Regards
> Hendra
>