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

Kamis, 08 September 2011

[belajar-access] Re: memberikan peringatan

dear mas rosadi..

terima kasih atas sarannya.. saya menggunakan alternatif pertama mas, tapi dengan menambahkan satu buah unbound untuk digunakan sebagai tujuan set focusnya, sehingga set focusnya tidak pada txttotal..

demikian mas rosadi.. sekali lagi banyak matur tengkyu..

buat bang Haer .. si pitung dari betawi,,, biar pantun gak nyambung.. ilmu dan saran bang Haer.. tetap di hati dan diikuti hehehe..
selamat Idul Fitri Bung Haer.. mohon maaf lahir batin

best regards

must hdi s

--- In belajar-access@yahoogroups.com, edi rosadi <edirosadie@...> wrote:
>
> 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 PemrogramanPeta Industri dan Wisata CilegonÂ
>
>
>
>
> --- On Thu, 8/9/11, hadis0678 <hadis0678@...> wrote:
>
> From: hadis0678 <hadis0678@...>
> 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
>
> > >
>
> >
>