Click here to Skip to main content
13,086,662 members (56,646 online)
Rate this:
Please Sign up or sign in to vote.
See more:
Dear all
My name is Sarfaraz.
I am developing a small project in vb6 and access.
My problem is like that I have a table called investigations which has investigations and rate and other table patients where i am storing patient name receipt no. investigations prescribed and rate.
Actually i want the rate to be automatically inserted into the corresponding field of patient table from the investigations table for the corresponding item.
All the other things are going quite well but i do not know how to do that.
My following code is running successfully. But now i want to insert rate also.
Please help
Thank you

sql = "patients"
Set rs = New ADODB.Recordset
rs.Open sql, Con, adOpenDynamic, adLockOptimistic
 Dim x As Long
 For x = 0 To List2.ListCount - 1
With rs
        !Receipt_no = Text1.Text
        !OPD_MRD = Text2.Text
        !Patientname = Text3.Text
     !Investigations = List2.List(x)
        !Receipt_date = Label6.Caption
        !Receipt_time = Label7.Caption
End With
    MsgBox "New student record successfully saved..", vbInformation, "Success"
Posted 28-Sep-12 2:25am
Updated 28-Sep-12 4:25am

1 solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy |
Web04 | 2.8.170813.1 | Last Updated 29 Sep 2012
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100