[belajar-access] event procedure 1 tombol

 

Dear All

Mohon bantuannya.

Saya ingin buat 1 button agar bisa digunakan untuk buka 2 form dengan kriteria;

kemudian button itu juga bisa meng-query form tersebut dengan event procedure semua tanpa memberi

kriteria di querynya.

ini event procedure yang sudah saya buat:

Yang Pertama :

Private Sub Command28_Click()

Beep

If CmbPK = 1 Then

DoCmd.OpenForm "Smstr 6 NPL", acNormal, , , , acWindowNormal

ElseIf CmbPK = 4 Then

DoCmd.OpenForm "Smstr 6 TBP", acNormal, , , , acWindowNormal

End If

End Sub

Yang Kedua:

Private Sub Command33_Click()

On Error GoTo Command33_Click_Err

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Smstr 6 NPL"

stLinkCriteria = "[ditunda]=no"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Command33_Click_Exit:

    Exit Sub

Command33_Click_Err:

    MsgBox Err.Description

    Resume Command33_Click_Exit

End Sub

Bagaimana cara menggabungkan 2 event procedure diatas.

Atas bantuannya saya ucapkan terima kasih

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

SPAM IS PROHIBITED

Visit Your Group

• New Members 14

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___