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