- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Aşağıdaki SQL sorgusunda tam sayı ifadeleri normal çalışırken, küsüratlı sayılarda (Örn: 3,5) hata veriyor.
nasıl bir çözüm önerirsiniz?
teşekkürler,
iyi hafta sonları
Aşağıdaki SQL sorgusunda tam sayı ifadeleri normal çalışırken, küsüratlı sayılarda (Örn: 3,5) hata veriyor.
nasıl bir çözüm önerirsiniz?
teşekkürler,
iyi hafta sonları
Kod:
Sub test()
Dim a As Double
Dim b As Double
Baglan
b = 7 / 2
a = BirimFiyat2("F3", "KL-1900", b)
End Sub
Kod:
Public Function BirimFiyat2(alan As String, kod As String, boyut As Variant) As Double
Dim RS As Object
Dim deger As Double
Dim sorgu As String
deger = 0
sorgu = "Select [" & alan & "] From [Data$A2:E]" & _
" Where [F1] = '" & kod & "'" & _
" And [F2] = " & boyut & ""
Set RS = Conn.Execute(sorgu)
If Not RS.EOF Then
deger = RS(0)
End If
Set RS = Nothing
sorgu = ""
BirimFiyat2 = deger
End Function
Ekli dosyalar
-
15.8 KB Görüntüleme: 7
-
203.1 KB Görüntüleme: 7