[ prunto @ 03.02.2010. 11:49 ] @
Pozz ljudi,moj problem se sastoji u sledecem,imam bazu na koju sam konektovan putem DATA1,upisujem podatke u tabelu i iscitavam,ali kada hocu da uradim deljenje dva broja,prijavljuje mi da ne mogu da delim sa nulom,i ako je to polje u bazi prazno,ali verovatno ga cita vb kao nulu.
podatke koje obradjujem su u accessu tipa
a=integer
b=integer
c=double , a data type je svima number

kod koji kucam u vb je sledeci
-----------------------------
Private Sub Command2_Click()
Dim a As Integer
Dim b As Integer
Dim c As Double
a = Val(Text7.Text)
b = Val(Text6.Text)
c = a / b
Text8.Text = a / b
-----------------------------

Molio bih za pomoc kako da ovo resim?

Evo link sa projektom,da pogledate gde sam zaj***o

http://www.easy-share.com/1909184768/REZERVISANJE OTPREMNINE.rar

[Ovu poruku je menjao prunto dana 03.02.2010. u 13:08 GMT+1]

Da napomenem da je broj b ceo broj sa 1 ili 2 cifre,dok je broj a isto ceo broj i iznosi 161682,a c ce biti zacisno od situacije ili ceo ili sa decimalom.

[Ovu poruku je menjao prunto dana 03.02.2010. u 13:10 GMT+1]
[ Shadowed @ 03.02.2010. 15:26 ] @
Pa, stavi proveru
Code (vb):

If b <> 0 Then
    c = a / b
Else
    c = sta_vec_hoces_ako_je_b_nula
End If
 
[ prunto @ 04.02.2010. 12:32 ] @
Druze uradio sam na drugaciji nacin,ali u svakom slucaju ti hvala.
Sad da pitam kako da uradim zbir svih rezervisanja (za svakog coveka imam odredjenu sumu),znaci meni treba ukupan zbir,koji bi dobio pritiskom na commandbutton u textbox-u?
Hvala
[ dzigilibonglica @ 05.02.2010. 08:54 ] @
Code:

Private Sub Command1_Click()
Dim i As Integer
Dim Zbir as Long

    Zbir = 0
    Data1.Refresh
    For i = 0 To Data1.Recordset.RecordCount-1
        If i=0 then 
            Data1.Recordset.MoveFirst
        Else
             Data1.Recordset.MoveNext
        End if

        Zbir = Zbir + Data1.Recordset.Fields(1)
    Next
    Text1.Text = Zbir
End Sub
[ Marko_L @ 05.02.2010. 09:53 ] @
Ovo je veoma loš način (i jedan i drugi primer) za izvođenje računskih operacija kada se radi o bazama podataka. Ne samo što dosta komplikuje i prlja kod, već i zato što je sporije. Za takve stvari treba koristiti SQL

Prvi primer (sa deljenjem) može da se izvede na ovaj način
Code:
SELECT IIF(ISNULL(Polje2) OR Polje2 = 0, 0, Polje1 / Polje2) As Rezultat FROM Tabela1


a drugi primer sa sabiranjem
Code:
SELECT SUM(Polje1) As Zbir FROM Tabela1


ili kombinacija ovih kverija.
[ prunto @ 10.02.2010. 11:16 ] @
Hvala na pomoci!!!