Excele gönderme kısmı aşağıdaki sub dır.

Private Sub Komut4_Click()

 



'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,

'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.

Dim exceldosyasi As Object





    '---------------------------------------------------------------------------------------------------------

    'Excel açılıyor ve başlıklar ayarlanıyor

    '---------------------------------------------------------------------------------------------------------

    Set exceldosyasi = CreateObject("Excel.Application")

    

    With exceldosyasi

        .Application.Visible = True

        .UserControl = True

        .Workbooks.Open FileName:=CurrentProject.Path & "\MT2.xls"

        .Range("D7").Value = Me.MÜŞTERİ_ADI

        .Range("D8").Value = Me.MADDE_NUMARASI

        .Range("d9").Value = Me.MADDE_ADI

        .Range("d14").Value = Me.KALİTE

        .Range("d16").Value = Me.EN

        .Range("e16").Value = Me.BOY

        .Range("f16").Value = Me.KALINLIK

        .Range("d18").Value = Me.BRÜT_AĞIRLIK

        

        Dim Sql As String

        Dim sayac As Integer

        

        

        Sql = "select * from recetelISTESI where [Madde numarası] = '" & Me.MADDE_NUMARASI & "'"

 

 Debug.Print sql

 Dim rs As ADODB.Recordset

 Set rs = New ADODB.Recordset

 

rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

sayac = 0

Do Until rs.EOF

    

       .Cells(28 + sayac, 4).Value = rs.Fields("madde grubu4")

     

     .Cells(28 + sayac, 7).Value = rs.Fields("miktar")

    

rs.MoveNext

sayac = sayac + 1

Loop





Set rs = Nothing

Set conn = Nothing

 

 

        

    



    End With

    Set exceldosyasi = Nothing

       



 End Sub