Re: [belajar-access] TANYA : memaksimalkan Fungsi Button

 



Dear Mas Pur Wanto,

Silahkan masuk ke mode design view form Contoh, kemudian pada tombol Add, set properties On Click sbb:

Private Sub CmdAdd_Click()

    Dim txtSPK As String, txtBo_Bukti As String, txtThp As String

    Dim lngExkey As Long

    txtSPK = Me!SPK

    txtBo_Bukti = Me!Bo_Bukti

    txtThp = Me!Thp

    lngExkey = Me!Exkey

    DoCmd.GoToRecord acActiveDataObject, , acNewRec

    Me!SPK = txtSPK

    Me!Bo_Bukti = txtBo_Bukti

    Me!Thp = txtThp

    Me!Exkey = lngExkey + 1

End Sub

Kemudian coba Save dan Run form tsb, lalu isikan dengan data sbb:

Kemudian klik tombol Add, maka hasilnya:

Bila ada kesulitan, silahkan reply kembali, Insya Allah saya coba kirimkan sample yang sudah saya buat di PC saya. Terima kasih.

 

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com
Belajar Access Offline & Online: http://wp.me/PW3LC-hR

----- Original Message -----

From: Pur Wanto

To: belajar-access@yahoogroups.com

Sent: Saturday, December 08, 2012 2:46 PM

Subject: [belajar-access] TANYA : memaksimalkan Fungsi Button [1 Attachment]

Dear Pakar Access, mohon bantuan anda sekalian.

Berikut saya lampirkan database.
Di form "contoh" sudah saya berikan 3 button New, Add, dan delete.


Gimana cara membuat kondisi button Add agar bisa otomatis menyimpan records dan menuju recodrs baru tetapi dalam kondisi SPK, Bo_Bukti, Thp bernilai sama seperti records sebelumnya dan Exkey menjadi +1 dari field sebelumnya.

Mohon sangat bantuan dari pakar pakar sekalian.

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 7

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___