Skipping in for loop

My recordset contains datas as 11/2, 8/3 , 7 ,9

I am using FOR loop

I used coding in loop to convert them to decimals. But, what i want now is if there are no fractions in the recordset the data alone must be skipped.

(ie) it must convert to decimals for 11/2 and 8/3 but want to skip 7 and 9

Pls do anyone help me in this coding

make a condetion to proccess ur case and if the condetion is false try using exit for or goto:

You could set a condition inside the loop, using INSTR function to determine the existence of '/' in the data....

Quote:

---

Originally Posted by dee-u

You could set a condition inside the loop, using INSTR function to determine the existence of '/' in the data....

---

I used the coding Below but not working.


Private Sub Command1_Click()
rs.Open "check1", db, 3, 2
If InStr(no1, "/") > 0 Then
a = Left([no1], InStr([no1], "/") - 1)
b = Right([no1], Len([no1]) - InStr([no1], "/"))
c = a / b
Call calc
Else
no1 = no1 / 1
Call calc
End If
rs.Close
End Sub

Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Bharani\Desktop\New Folder (2)\check.mdb;Persist Security Info=False"
End Sub

Private Sub calc()
rs.Open "check2", 3, 2
rs.AddNew
rs.Fields(0) = no1
rs.Update
rs.Close
End Sub

My output needs to be 5.5, 2.67, 7, 9
which must be added to database

For parsing a fraction it may be easier to use a split...

Code:

---

    Dim data() As String
    Dim firstValue As Long
    Dim secondValue As Long
   
    data = Split("100/50", "/")
    firstValue = data(0)
    secondValue = data(1)
    MsgBox firstValue / secondValue

---

There is no code the save the record yet, you have to include it also if you want to save... :)

Quote:

---

Originally Posted by dee-u

For parsing a fraction it may be easier to use a split...

Code:

---

    Dim data() As String
    Dim firstValue As Long
    Dim secondValue As Long
   
    data = Split("100/50", "/")
    firstValue = data(0)
    secondValue = data(1)
    MsgBox firstValue / secondValue

---

There is no code the save the record yet, you have to include it also if you want to save... :)

---

I used your coding as this
but not working

Private Sub Command1_Click()
rs.Open "check1", db, 3, 2
Dim data() As String
Dim firstValue As Long
Dim secondValue As Long

data = Split("100/50", "/")
firstValue = data(0)
secondValue = data(1)
MsgBox firstValue / secondValue
End Sub
It only dividing the values which is 100/50 = 2, but i want my recorset values to be divided .

That was just for demo purposes, of course you have to modify it to suit your needs... ;)

Quote:

---

Originally Posted by dee-u

That was just for demo purposes, of course you have to modify it to suit your needs... ;)

---

Ya But Instead of that 11/2 i specified my recordset field name as no1, but it is showin error as type missmatch

You have to replace

Code:

---

data = Split("100/50", "/")

---

with your own data...

Why not get only that data in recordset which you need to work on by altering your query. This way your program will be faster.


Pradeep

Code:

---

Private Sub Command1_Click()
rs.Open "check1", db, 3, 2
If InStr(no1, "/") > 0 Then
    a = Left([no1], InStr([no1], "/") - 1)
    b = Right([no1], Len([no1]) - InStr([no1], "/"))
    c = a / b
    Call calc
  Else
    ' no1 = no1 / 1
    Call calc
  End If
 rs.Close
 End Sub

---

---
Maybe I don't understand, if there is a '/'...you divide, if not...just write the number out