MS ACCESS MAILING LIST: Re: [belajar-access] Hasil run coding yg berbeda (Aneh...) [1 Attachment]

Saturday, July 14, 2012

Re: [belajar-access] Hasil run coding yg berbeda (Aneh...) [1 Attachment]

[Attachment(s) from privat access included below]

'execution result berbeda ketika sebuah objek property kita ubah
'kenapa bisa berbeda???
'karena CURSOR belum menemukan objek baru untuk melakukan eksekusi (kursor masih berada pada area kerja (text0 dan text2)
'Cursor memerlukan sebuah objek selain text0 dan text2 misalnya objek VisibleMe
'ketika VisibleMe diubah propertynya menjadi visible=true/yes, maka cursor mendapatkan fokus baru
'hal ini dikarenakan objek "klik gambar" bukanlah sebuah commandbutton yang dapat menerima fokus dari cursor
'dan karena setelah after update disela dg melakukan message box

'alternatif solusi :
'telah dicontohkan pada sebuah form logon
'pindahkan semua kode program pada event label29_click ke event text0_afterupdate
'agar cursor dapat melepaskan ikatan fokus pada text0 dan text2 dan tidak berpindah fokus pada messagebox untuk
'menampilkan pesan
'
'NOTES :
'
'jangan lupa mengubah "[UserName]=forms![ZZ_LOGIN]![text0]"
'menjadi "[UserName]=forms![LOGON]![text0]" pada form_Logon

Lusky

PERHATIKAN LampFile

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
DoCmd.OpenForm "Petunjuk"
End Sub

Private Sub Label29_Click()

'Me.Text0.SetFocus
If Me.UserName = Me.Text0 And Me.UserPWD = Me.Text2 Then
   MsgBox "Login sukses, selamat bekerja... ^_^", vbInformation, "SUCCESS"
   'DoCmd.OpenForm "WELCOME"
   DoCmd.Close acForm, Me.Name
Else
   MsgBox "Passwordnya salah.., Coba ulang lagi...", vbCritical, "ERORR"
   Me.Text2.Value = ""
   Me.Text2.SetFocus
End If

End Sub

Private Sub Text0_AfterUpdate()
DoCmd.ApplyFilter , "[UserName]=forms![ZZ_LOGIN]![text0]"
Dim rs As Object
Set rs = Me.RecordsetClone
If rs.EOF Then
   MsgBox "UserName tdk kedaftar", vbCritical, "WARNING"
   Me.Text0.Value = ""
   Me.RecordSource = "T_XPWD"
   Me.Text0.SetFocus
Else
   Me.Text2.SetFocus
End If
End Sub

Private Sub Text2_AfterUpdate()
'MsgBox "Klik gambar....", vbInformation, "PROSEDUR"
End Sub

Pada 8 Juli 2012 05:05, Hendra Agestha Hamid <the_agestha@yahoo.com> menulis:

Dear warga milis...

Saya mendapatkan hasil run coding yg berbeda hanya dengan menset property visible dari suatu objek
yg juga terdapat dalam form tsb...mohon penjelasan dari rekan2 "keanehan" ini...file terlampir..
Terima kasih...

Regards
Hendra