AccessTr.neT

Merhaba.

Resimdeki textboxa ondalık sayı girince tam sayı olarak sonuç çıkıyor.

Mesela 0,73 textboxa yazıp güncelle yapınca 1 olarak sonuç çıkıyor.

Acaba çözüm nasıldır?

Saygılar.

KOD:

Kod:
Dim b, c, d, x, f As Single

ve güncellemeyi
KOD:

Kod:
        Dim sql As New String("update Tablo1 set [dd]='" & aa & "',[ee]='" & b & "',[ff]='" & c & "',[gg]='" & d & "' ,[hh]='" & x & "',[jj]='" & f & "',[kk]='" & g & "' where [id]= " & id_no & "")

ve ekleyi de

Kod:
               Dim sql As New String("insert into Tablo1 ([dd],[ee],[ff],[gg],[hh],[jj],[kk]) values ('" & aa & "','" & b & "','" & c & "','" & d & "','" & x & "','" & f & "','" & g & "') ")

ilgili yerleri verdiğim kodlarla değiştiriniz.

7. Satırda değişken türünü tanımlarken Decimal olarak tanımlamanız lazım yoksa sayı Integer'a çeviriyor. Şu şekilde olması lazım :

Dim b, c, d, x, f As Decimal

Böyle yapsanız da çalışmayacak çünkü Update kodunuz yanlış. Parametre ile eklemediğiniz için parametre hatası alacaksınız. Değerler birbirinden , ile ayrılıyor ancak sayı da virgüllü olunca alan ve değer sayısı aynı olmayacaktır.

Teşekkürler her iki hocamada.

Ali hocamınki tam çalıştı.

Alpeki hocamızınkini ayarlayamadım.

feraz

alican60

alpeki99

feraz