okay lets see what we can do lol. so you get the data from the product id. you are updating the table with the values in txt boxes? if that is the way your are working it lets try this.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

rs1.Open "UPDATE Stock (qty, stock_date, trans_type, qtydb ) Values (" & qtyfield &", " & stock_datefield &", " & trans_type &", " & qtydbfield &")", updatedb

rs1.Open "UPDATE Stock (qty, stock_date, trans_type, qtydb ) Values (" & qtyfield &", " & stock_datefield &", " & trans_type &", " & qtydbfield &")", updatedb

been a long day hope that works lol

hi, this might give you an idea:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

    num = 1 ' initialize counter
 'rs is the reference to your recordset change if needed
    Do While Not rs.EOF
        ' See if the data has been found
        If product_id = rs!product_id Then
            'do something here
        End If
 
        ' If not found move to the next record.
        num = num + 1
        rs.MoveNext
    Loop

num = 1 ' initialize counter 'rs is the reference to your recordset change if needed Do While Not rs.EOF ' See if the data has been found If product_id = rs!product_id Then 'do something here End If ' If not found move to the next record. num = num + 1 rs.MoveNext Loop

and just curious why you need me on this code;

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

dim productid as integer
productid=me.productid.text

dim productid as integer productid=me.productid.text

why not do like this:
productid=productid.text

i hope it helps..

hi, this might give you an idea:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

    num = 1 ' initialize counter
 'rs is the reference to your recordset change if needed
    Do While Not rs.EOF
        ' See if the data has been found
        If product_id = rs!product_id Then
            'do something here
        End If
 
        ' If not found move to the next record.
        num = num + 1
        rs.MoveNext
    Loop

num = 1 ' initialize counter 'rs is the reference to your recordset change if needed Do While Not rs.EOF ' See if the data has been found If product_id = rs!product_id Then 'do something here End If ' If not found move to the next record. num = num + 1 rs.MoveNext Loop

and just curious why you need me on this code;

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

dim productid as integer
productid=me.productid.text

dim productid as integer productid=me.productid.text

why not do like this:
productid=productid.text

i hope it helps..

use Microsoft Calendar Control..go to Project->Components then click Microsoft Calendar Control..

you grab its text.