kepada Yth. Mas Rosadi
terima kasih mas, sudah berhasil saya aplikasikan
GBU
best regards
hdis
--- In belajar-access@yahoogroups.com, edi rosadi <edirosadie@...> wrote:
>
> 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 PemrogramanPeta Industri dan Wisata Cilegon Â
>
>
>
> --- On Wed, 7/9/11, hadis0678 <hadis0678@...> wrote:
>
> From: hadis0678 <hadis0678@...>
> 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
>
Tidak ada komentar:
Posting Komentar