ACCESS FEED: Re: [belajar-access] XML Custom Ribbon

Jumat, 24 Mei 2013

Re: [belajar-access] XML Custom Ribbon - Run Module

Bismillahirrohmanirrohim...

Prinsipnya, modul dibuat untuk digunakan di banyak form. Mirip fungsi umum. Sehingga nggak perlu nulis fungsi sama di masing-masing form.

Coba bikin script di module:

Option Explicit

Function tes(isipesan As String)
MsgBox isipesan
End Function

Lalu, buat form isinya:

1. Label.caption = pesan

2. text.name = pesan

3. Command0 button

Isi command0 on click dengan script:

Option Explicit

Private Sub Command0_Click()
    If pesan <> "" Then
        tes (pesan)
    Else
        MsgBox "Pesan harus diisi"
        pesan.SetFocus
    End If
End Sub

Buat form lainnya, lakukan hal sama. Hasil akan sama.

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--- On Fri, 24/5/13, Azkia Shabrina <azkia.shabrina@yahoo.co.id> wrote:

From: Azkia Shabrina <azkia.shabrina@yahoo.co.id>
Subject: [belajar-access] XML Custom Ribbon - Run Module
To: belajar-access@yahoogroups.com
Date: Friday, 24 May, 2013, 2:11 PM

Dear Rekans

Azkia sedang belajar pakai custom ribbon menggunakan xml

tombol untuk open form sudah bisa, dengan run – function DoCmd.Openform

yang belum bisa perintah untuk run modul dengan banyak DoCmd bagaimana ya caranya

terima kasih sebelumnya dari Azkia