Private Sub Yeni_Kayıt_Click()

On Error GoTo Err_Yeni_Kayıt_Click

DoCmd.GoToRecord , , acNewRec

'Aşağıya ekle

tarayici.Navigate "http:// http://www.sydgm.gov.tr/tr/yenikisikaydet.jsp"



Exit_Yeni_Kayıt_Click:

Exit Sub



Err_Yeni_Kayıt_Click:

MsgBox Err.Description

Resume Exit_Yeni_Kayıt_Click



End Sub