Originally Posted by ProfessorPC

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.

Help with Code Tags

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

Originally Posted by cguan_77

hi, this might give you an idea:

Help with Code Tags

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;

Help with Code Tags

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

Originally Posted by cguan_77

hi, this might give you an idea:

Help with Code Tags

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;

Help with Code Tags

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

Originally Posted by cguan_77

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

Originally Posted by ProfessorPC

you grab its text.