DataGrid Question

[Dr_Evil]

I am designing a new form for the laboratory at my company, as of now the records from the Access table are displayed in a DataGrid. I would like to be able to select a row in the grid and have the fields displayed in individual text boxes for editing. I'd appreciate it if anyone could point me in the right direction for this.

[Dr_Evil]

Never mind this post, I figured it out...

[Altecjjf]

Dr_Evil
So how did you do it??

[Dr_Evil]

I am using the VideoSoft Flex Grid. It's not perfect yet but it works the way I was hoping.

Private Sub vfgRotap_Click()
Dim cnn As Connection
Dim rs As Recordset
Dim rsRotap1 As Recordset

'Connection to Lab Sample Tracking.mdb
Set cnn = New Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                          "Data Source =C:\\My Documents\Access Files\Lab Sample Tracking.mdb;"

'Sample Information
Set rs = New Recordset
rs.Open "SELECT `Sample Number`, `Chemical Name`, `Container Number`, `Container Weight`, `Date`, `Tested`" & _
        "FROM `SampleLogin`" & _
        "WHERE CVar(`Sample Number`) = '" & vfgRotap.Text & "' ", cnn, adOpenStatic, adLockOptimistic
  
'Rotap Information
Set rsRotap1 = New Recordset
rsRotap1.Open "SELECT `Sample Weight`, `Sieve1`, `Sieve2`, `Sieve3`, `Sieve4`, `Sieve5`, `ON1`, `ON2`, `ON3`, `ON4`, `ON5`, `THRU1`, `THRU2`, `THRU3`, `THRU4`, `THRU5`, `Tested By`, `Date Tested`" & _
         "FROM `Rotap`" & _
         "WHERE CVar(`Sample Number`) = '" & vfgRotap.Text & "' ", cnn, adOpenStatic, adLockOptimistic
     

'Set TextBoxes & ComboBoxes = Data Sources

    Set txtTestedBy1.DataSource = rsRotap1
    txtTestedBy1.DataField = "Tested By"

    Set txtDateTested.DataSource = rsRotap1
    txtDateTested.DataField = "Date Tested"

    Set txtSampleWeight.DataSource = rsRotap1
    txtSampleWeight.DataField = "Sample Weight"

    Set cboSieve1.DataSource = rsRotap1
    cboSieve1.DataField = "Sieve1"

    Set cboSieve2.DataSource = rsRotap1
    cboSieve2.DataField = "Sieve2"

    Set cboSieve3.DataSource = rsRotap1
    cboSieve3.DataField = "Sieve3"

    Set cboSieve4.DataSource = rsRotap1
    cboSieve4.DataField = "Sieve4"

    Set cboSieve5.DataSource = rsRotap1
    cboSieve5.DataField = "Sieve5"

    Set txtON1.DataSource = rsRotap1
    txtON1.DataField = "ON1"

    Set txtON2.DataSource = rsRotap1
    txtON2.DataField = "ON2"

    Set txtON3.DataSource = rsRotap1
    txtON3.DataField = "ON3"

    Set txtON4.DataSource = rsRotap1
    txtON4.DataField = "ON4"

    Set txtON5.DataSource = rsRotap1
    txtON5.DataField = "ON5"

    Set txtTHRU1.DataSource = rsRotap1
    txtTHRU1.DataField = "THRU1"

    Set txtTHRU2.DataSource = rsRotap1
    txtTHRU2.DataField = "THRU2"

    Set txtTHRU3.DataSource = rsRotap1
    txtTHRU3.DataField = "THRU3"

    Set txtTHRU4.DataSource = rsRotap1
    txtTHRU4.DataField = "THRU4"

    Set txtTHRU5.DataSource = rsRotap1
    txtTHRU5.DataField = "THRU5"

    Set txtSampleNumber.DataSource = rs
    txtSampleNumber.DataField = "Sample Number"

    Set cboChem.DataSource = rs
    cboChem.DataField = "Chemical Name"

    Set txtContainerNumber.DataSource = rs
    txtContainerNumber.DataField = "Container Number"

    Set txtContainerWeight.DataSource = rs
    txtContainerWeight.DataField = "Container Weight"
    
    rs.Close
    rsRotap1.Close
    cnn.Close
   
End Sub