ACCESS FEED: Re: [belajar-access] memberikan peringatan

Rabu, 07 September 2011

Re: [belajar-access] memberikan peringatan

gunakan metode berikut:

Private Sub Textfielda_LostFocus()
Me.Refresh
txttotal.SetFocus
End Sub

Private Sub txttotal_GotFocus()
If txttotal > 100 Then
pesan = MsgBox("Lebih dari 100", vbCritical)
Textfielda.SetFocus
End If
End Sub

mudah-mudahan membantu.

Salam,

Edi Rosadi

Algoritma dan Pemrograman

Peta Industri dan Wisata Cilegon

--- On Wed, 7/9/11, hadis0678 <hadis0678@yahoo.co.id> wrote:

From: hadis0678 <hadis0678@yahoo.co.id>
Subject: [belajar-access] memberikan peringatan
To: belajar-access@yahoogroups.com
Date: Wednesday, 7 September, 2011, 9:58 AM

dear friends

SELAMAT IDUL FITRI, MOHON MAAF LAHIR BATIN

nah, setelah itu baru minta tolong hehehe

ini masalahnya

ada field a integer

dimasukkan ke dalam form

dalam field a tersebut dimasukkan angka
kemudian dijumlahkan semua angka tersebut.. saya buat unbound dengan nama totalnilai= sum([field a])..kemudian dalam event lost focus dalam field a dimasukka perintah untuk merefresh form data

permasalahan yang ingin saya tanyakan adalah bagaimana memberi peringatan agar ketika totalnilai tersebut lebih dari 100 muncul peringatan berupa msgbox "Nilai lebih dari 100", sehingga nilai yang akan dimasukkan ke dalam field a harus dikurangi

demikian pertanyaan saya, atas bantuan dan perhatin teman teman saya ucapkan terima kasih..

best regards

hdis