Excelde form açtırmak için öncelikle projenize bir "module" ekleyin ve aşağıdakileri bu module kopyalayın. Daha sonra da, butonunuza AccessTr_Goster makrosunu atayın. Formunuzun ismine göre formadi yazan yeri düzenleyin.
Kod:
Sub AccessTr_Goster()
formadi.Show
End Sub
Kod:
Private Sub CommandButton1_Click()
fatih = MsgBox("YAPILAN DEĞİŞİKLİKLERİ KAYDETMEK İSTER MİSİNİZ?", vbYesNo, "Onay - AccessTr.neT")
If fatih = vbYes Then
Unload UserForm1
Application.Visible = False
ActiveWorkbook.Save
Application.Visible = False
ActiveWorkbook.Close
Else
Unload UserForm1
Application.Visible = False
Application.Visible = False
ActiveWorkbook.Close
End If
End Sub