update komutunda "söz dizimi hatası(eksik işleç)" mesajı veriyor

[abc6455]

arkadaşlar iyi akşamlar, ekte göndermiş olduğum dosyadada belittiğim gibi kapalı bir dosyada işlem yapmak ve aynı anda 2 değişken için aynı function kullanmak istiyorum.bu değerleri tek (function a) gönderirsem hata vermiyor. ancak ikisini peş peşe gönderdiğimde "söz dizimi hatası(eksik işleç)" hatası veriyor.ektede örnek var.
teşekkürler

 

[abc6455]

bu konuda bilgisi olan arkadaşlar lütfen cevap verebilirmisiniz.benim için çok önemli

 

[Zeki Gürsoy]

Aşağıdaki gibi deneyin.

Dim tutar  As Single
Dim tut    As Single
Dim topgir As Single
Dim kod1   As String
 
Private Sub CommandButton1_Click()
 Dim MyFile As String, MySh As String
 
    kod1 = "D-125"
    MyFile = "C:\Rapor\veri.xls"
    MySh = "[Sayfa1$]"
    tut = 0
    topgir = 0
    
    If Dir(MyFile) = Empty Then
        MsgBox MyFile & " dosyasi bulunamadi"
        Exit Sub
    End If
    
     tut = 250
     topgir = FormatNumber(tut, groupdigits:=vbFalse)
 
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & MyFile
    MsgBox kod1
 
   conn.Execute _
   "UPDATE " & MySh & " SET [toplam] = " & topgir & " WHERE [kod] ='" & kod1 & "'"
   
   conn.Close
 End Sub

 

[abc6455]

sayın anemos teşekkür ederim,
dediklerinizi yaptım ama sonuç değişmedi ben

ResultRange = "harcanan"
harcananx = KapDuseyAra(MyFile, MySh, LookUpRange, kod1, ResultRange)

ResultRange = "toplam"
topx = KapDuseyAra(MyFile, MySh, LookUpRange, kod1, ResultRange) olarak aynı anda kullandığımda;

"[Microsoft][[ODBC excel sürücüsü] 'kod=D-125' sorgu ifadesi içindeki sözdizimi hatası (eksik işleç)" mesajı vermekte


ResultRange = "harcanan"
harcananx = KapDuseyAra(MyFile, MySh, LookUpRange, kod1, ResultRange) bu şekilde tek kullandığımda ise hata vermemekte.cevabınızı bekliyorum iyi çalışmalar.