Buton İşlevi Birleştirme

Arkadaşlar, Yeni_Kayıt isimli buton ile Komut52 isimli butonu tek buton olarak nasıl birleştirebilirim? Yeni Kayıt'a tıklandığında Komut52'de belirtilen işlevlerinde çalışması mümkün müdür?. Teşekkürler.


Private Sub Komut52_Click()
tarayici.Navigate "http:// http://www.sydgm.gov.tr/tr/yenikisikaydet.jsp"
End Sub

-------------------------------
Private Sub Yeni_Kayıt_Click()
On Error GoTo Err_Yeni_Kayıt_Click
DoCmd.GoToRecord , , acNewRec

Exit_Yeni_Kayıt_Click:
Exit Sub

Err_Yeni_Kayıt_Click:
MsgBox Err.Description
Resume Exit_Yeni_Kayıt_Click

End Sub

Sayın durkheim;
ilk aklıma gelen

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 

Sayın Hayri16 hocam, çok teşekkürler ederim, çalışıyor...