Seleccionar Fila en Datagrid
Hola.
Tengo un datagrid que me gustaria que al pulsar doble click sobre una fila se me abriese un segundo formulario y que los campos de este se me rellenasen con las columnas correspondientes a la fila seleccionada en el datagrid del otro form para poder modificar los datos.
Alguien me puede ayudar, no tengo ni idea de como hacerlo.
Gracias.
Tengo un datagrid que me gustaria que al pulsar doble click sobre una fila se me abriese un segundo formulario y que los campos de este se me rellenasen con las columnas correspondientes a la fila seleccionada en el datagrid del otro form para poder modificar los datos.
Alguien me puede ayudar, no tengo ni idea de como hacerlo.
Gracias.
yo lo hago asi y funciona, te paso el codigo
Private Sub dbgrdX_DblClick()
Dim var As Variant
var = dbgrdPractica.Bookmark
frm2.Label1.Caption = dbgrdX.Columns(0).CellText(var)
With rsItem
.ActiveConnection = Cn
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.Open "Select desItem as item, valorReferencia As valor, desUnidad as unidad " & _
" From Item, unidad " & _
" where item.idpractica = " & dbgrdPractica.Columns(1).CellText(var) & _
" and unidad.idUnidad = item.unidad"
If .RecordCount <> 0 Then
.MoveFirst
Set frmItems.dbgrdItem.DataSource = rsItem
frmItems.Show
End If
End With
End Sub
espero te sirva
Private Sub dbgrdX_DblClick()
Dim var As Variant
var = dbgrdPractica.Bookmark
frm2.Label1.Caption = dbgrdX.Columns(0).CellText(var)
With rsItem
.ActiveConnection = Cn
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.Open "Select desItem as item, valorReferencia As valor, desUnidad as unidad " & _
" From Item, unidad " & _
" where item.idpractica = " & dbgrdPractica.Columns(1).CellText(var) & _
" and unidad.idUnidad = item.unidad"
If .RecordCount <> 0 Then
.MoveFirst
Set frmItems.dbgrdItem.DataSource = rsItem
frmItems.Show
End If
End With
End Sub
espero te sirva
