ada kesalahan di postingan terdahulu.
seharusnya sbb:

Private Sub NIP_GotFocus()
      NIP.BackColor = vbBlue
End Sub

Private Sub NIP_LostFocus()
     NIP.BackColor = vbWhite
End Sub

Private Sub NamaPegawai_GotFocus()
      NamaPegawai.BackColor = vbBlue
End Sub

Private Sub NamaPegawai_LostFocus()
     NamaPegawai.BackColor = vbWhite
End Sub

salam, 
murid access - CL

Kirim email ke