MS ACCESS MAILING LIST: Re: [belajar-access] Re: memberikan peringatan

betul, karena disitu ada syntax txttotal.SetFocus.

bisa dimodifikasi dengan memanfaatkan satu even saja:

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

Salam,

Edi Rosadi

Algoritma dan Pemrograman

Peta Industri dan Wisata Cilegon

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

From: hadis0678 <hadis0678@yahoo.co.id>
Subject: [belajar-access] Re: memberikan peringatan
To: belajar-access@yahoogroups.com
Date: Thursday, 8 September, 2011, 10:49 AM

dear mas rosadi

ada sedikit masalah nih, dari syntak yang mas rosadi sampaikan itu mengharuskan txttotal harus dalam posisi enable ya, kalau field ini dibikin disable sehingga user tidak perlu masuk ke sini, bisa gak ya, cos user pun tidak bisa mengubah hasil di txttoal.

begitu mas rosadi, atas perhatian dan bantuan yang diberikan saya ucapkan banyak terima kasih

best regards

must hdis

--- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@...> wrote:
>
> 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
> >
>