Skipping in for loop

[bharanidharanit]

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

[ahmad7_8]

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

[dee-u]

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

[bharanidharanit]

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

[dee-u]

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

    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...

[bharanidharanit]

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

    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 .

[dee-u]

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

[bharanidharanit]

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

[dee-u]

You have to replace

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

with your own data...

[Pradeep1210]

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

[sessi4ml]

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