IVISATIS formuna excele gönder isimli buton ekledim.
butonun tıklandığında olayındaki kod
Kod:
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click
Dim stDocName As String
stDocName = "IVISATIS"
DoCmd.OutputTo acReport, stDocName
Exit_Komut7_Click:
Exit Sub
Err_Komut7_Click:
MsgBox Err.Description
Resume Exit_Komut7_Click
End SubKod:
([Kimlik]=[Forms]![IVISATIS]![Kimlik])
