Private Sub Komut297_Click()
'excel deneme 3
  Dim xl As Excel.Application
    Dim xlwkbk As Excel.Workbook
        
    If Me.Dirty Then
    DoCmd.RunCommand acCmdSaveRecord
    End If
        
    Set xl = New Excel.Application
    Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\indkdvlist.xls")
           xl.Visible = True
    With xl.Sheets("İndirilecek KDV Listesi").Select
    xl.Range("B4") = DLookup("[Kimlik]", "listeAfrm", "[Kimlik]=" & Me.Id)
    End With
    
    xl.Visible = True
        
    
    Set xl = Nothing
    Set xlwkbk = Nothing
    
End Sub

Private Sub Komut297_Click()
'excel deneme 3
 
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object
 
Set objXL = CreateObject("Excel.Application")
Set objWB = objXL.Workbooks.Open(CurrentProject.Path & "\indkdvlist.xls")
Set objWS = objWB.Worksheets("İndirilecek KDV Listesi")
 
With objWS
.Cells(4, 2).Value = Me.giris_tarihi.Value
.Cells(4, 3).Value = Me.giris_fatura_no.Value
 
End With
 
objXL.Visible = True
End Sub