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

Const kutip As String = """"

Private Sub Form_Activate()

Me.tbox_Hari.DefaultValue = kutip & (Access.DLast("Nilai", "T_Controls", "Nama=" & kutip & "tbox_Hari" & kutip)) & kutip
Me.lbl_Info.Caption = "tbox_Hari.DefaultValue = " & Me.tbox_Hari.DefaultValue

End Sub

Private Sub tbox_Hari_AfterUpdate()
Dim strSQL As String

If Len(Me.tbox_Hari) > 0 Then
strSQL = "UPDATE T_Controls SET Nilai = " & kutip & Me.tbox_Hari & kutip & " WHERE Nama=" & kutip & "tbox_Hari" & kutip & ";"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.tbox_Hari.DefaultValue = kutip & Access.DLast("Nilai", "T_Controls", "Nama=" & kutip & "tbox_Hari" & kutip) & kutip
End If

Me.lbl_Info.Caption = "tbox_Hari.DefaultValue = " & Me.tbox_Hari.DefaultValue

End Sub

------------------------------------

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/