[belajar-access] Re: VBA tidak jalan ketika setelah database ditutup

Option Compare Database
Option Explicit

Private Sub Form_Current()
'   Dim Stdr As Integer
'   Stdr = Me.TxtStdr
'   Me.TxtKupon = Int(Me.Total_Trx / Stdr)
End Sub

Private Sub Form_Open(Cancel As Integer)
   DoCmd.GoToRecord acActiveDataObject, , acLast
End Sub
Private Sub Total_Trx_BeforeUpdate(Cancel As Integer)
    Call isikupon
End Sub

Private Sub Bayar_BeforeUpdate(Cancel As Integer)
    Call isikupon
End Sub

Private Sub isikupon()

   Dim Stdr As Integer

   Stdr = Me.TxtStdr

    If (Stdr <= Me.Bayar) And (Me.Bayar < Me.Total_Trx) Then

        Me.TxtKupon = Int(Me.Bayar / Stdr)

    ElseIf Me.Bayar < Me.Total_Trx Then

        Me.TxtKupon = 0

    Else

        Me.TxtKupon = Int(Me.Total_Trx / Stdr)

    End If

End Sub

 

Semoga sesuai 

--- In belajar-access@yahoogroups.com, Cecep W <cepwahyu@...> wrote:
>
> Hallo pakar access semua,
>
> saya mengalami masalah dengan database saya dimana ketika database dibuka
> coding yg sy buat di VBA tidak berfungsi padahal pada waktu dibuat tidak ada
> masalah, apakah yg terjadi?
> seharusnya ketika field bayar di update maka text5 angkanya berubah, pada
> waktu dibuat itu tidak ada masalah namun ketika database tsb saya tutup dan
> saya buka kembali Coding-nya ga jalan.
>
> saya pake 2010.
>
> berikut saya lampirkan databasenya
>
> sebelumnya saya ucapkan terimakasih bagi yg berkenan membantu.
>
> Regards
> Cecep Wahyudin
>

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___