Pesan errornya apa ya Mas? Mungkin coba dibalik urutannya menjadi:
DoCmd.GoToRecord , , acFirst
txtkd_jabatan.SetFocus
cmdAwal.Enabled = False
cmdSebelum.Enabled = True
cmdSesudah.Enabled = True
cmdAkhir.Enabled = True
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
----- Original Message -----
From: "oh bangsaku" <safril.karim@gurlmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, January 02, 2013 9:47 AM
Subject: [belajar-access] go to first record button
> salam semua
>
>
> kira2 apa masalahnya sehingga button Awal ini tidak berjalan
>
> 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
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar