Re: [belajar-access] go to first record button

 

setfocus nya jangan diatas

coba begini :

Private Sub cmdAwal_Click()
> On Error GoTo Err_cmdAwal_Click
>
' txtkd_jabatan.SetFocus - dipindah kebawah
> cmdAwal.Enabled = False
> cmdSebelum.Enabled = True
> cmdSesudah.Enabled = True
> cmdAkhir.Enabled = True
>
> DoCmd.GoToRecord , , acFirst
> me.txtkd_jabatan.setfocus '-> udah ditambahkan me.

> Exit_cmdAwal_Click:
> Exit Sub
>
> Err_cmdAwal_Click:
> MsgBox Err.Description
> Resume Exit_cmdAwal_Click
>
> End Sub

2013/1/2 Sofyan Efendi <sofyanefendi@gmail.com>

Private Sub cmdAwal_Click()
> On Error GoTo Err_cmdAwal_Click
>
> txtkd_jabatan.SetFocus
> cmdAwal.Enabled = False
> cmdSebelum.Enabled = True
> cmdSesudah.Enabled = True
> cmdAkhir.Enabled = True
>
> DoCmd.GoToRecord , , acFirst
>
> Exit_cmdAwal_Click:
> Exit Sub
>
> Err_cmdAwal_Click:
> MsgBox Err.Description
> Resume Exit_cmdAwal_Click
>
> End Sub

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 7

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___