Re: [belajar-access] input data

 

coba berlatih dengan vba.
setiap field di form selalu punya property defaultvalue, sebagai nilai inisialisasi saat add data baru.
jika faudzy bisa set di setiap event after update setiap field yang dimaksudkan harus mewarisi data sebelumnya, maka keinginannya sudah terpenuhi.
berikut potongan kodenya :


Private Sub CmdTambah_Click()
    DoCmd.RunCommand acCmdRecordsGoToNew
End Sub

Private Sub Line_AfterUpdate()
    Me.Line.DefaultValue = Me.Line
End Sub

Private Sub No_Carton_AfterUpdate()
    Me.No_Carton.DefaultValue = Me.No_Carton
End Sub

Private Sub No_PO_AfterUpdate()
    Me.No_PO.DefaultValue = Me.No_PO
End Sub

Private Sub No_Size_AfterUpdate()
    Me.No_Size.DefaultValue = Me.No_Size
End Sub

Private Sub No_Style_AfterUpdate()
    Me.No_Style.DefaultValue = Me.No_Style
End Sub

Private Sub Quantity_AfterUpdate()
    Me.Quantity.DefaultValue = Me.Quantity
End Sub

Private Sub Tgl_Masuk_Finishing_AfterUpdate()
    Me.Tgl_Masuk_Finishing.DefaultValue = Me.Tgl_Masuk_Finishing
End Sub


sedangkan untuk menghandel agar penekanan tombol buat baru semua field jadi kosong, set defaultvaluenya jadi kososng juga:

Private Sub CmdBuatBaru_Click()
    Me.No_Style.DefaultValue = ""
    Me.No_PO.DefaultValue = ""
    Me.No_Size.DefaultValue = ""
    Me.Quantity.DefaultValue = ""
    Me.No_Carton.DefaultValue = ""
    Me.Line.DefaultValue = ""
    Me.Tgl_Masuk_Finishing.DefaultValue = ""
    DoCmd.RunCommand acCmdRecordsGoToNew
End Sub


selamat berjuang


aksan kurdin



On 3/27/2013 11:32 AM, Faudzy wrote:

 

Dear MASTER ACCESS

 

Tolong dong saya bener-bener newbe banget di access…

Saya butuh pertolongan untuk masalah input data dalam form…

 

Penjelasan terlampir…

 

 

Oh ya sekalian Tanya buat para master berapa sich KAPASITAS MAksimal database Access…

Gimana cara memperiritnya…

 

 

Salam Hangat,.

 

faudzy

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 10

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___