Skipping in for loop

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