Veronica
04 de Julio del 2003

Hola, estoy usando un dbgrid y un textbox en el que escribo por ejemplo el apellido de un cliente en el textbox y me aparece en el dbgrid ese cliente. Lo que quiero hacer es que cuando encuentro ese cliente darle doble click y enviarlo a otro form en varios textbox, para mostrar toda la informacion de ese cliente.
Muchas Gracias.... BESIS VERO
PD: se nota? soy principiante! Ayudenme!!!!

Gaston Nat
04 de Julio del 2003

No comprendo bien tu pregunta, pero si lo que quieres hacer es DobleClick en DBgrid1 y pasarlo a otro formulario, debes utilizar las propiedades Row y Col del DBgrid, este te indica Columna y Fila de la Celda.
Si estas trabando con Registros(recordset) hay una propiedad bookmark del dbgrid que lee el registro completo.
Para pasar valores a un formulario hay varias formas pero la mas facil es:
Crear un modulo
Definir las variables como publicas
ejemplo
Public variable as Integer
a esta variable se le asigna el valor de la celda del Dbgrid cuando haces DoubleClick,
cuando cargas el Formulario 2 le asignas el valor
ejemplo con caja de texto
text1.text = variable
Suerte
Y Proba con las propiedades del Dbgrid.
[email protected]

Andr?
04 de Julio del 2003

a mi me funciona con esto, espero que te sirva.


Private Sub DBGrid1_DblClick()
Set tabla3 = datos.OpenRecordset("CLIENTES", dbOpenTable)

CodigoC = DBGrid1.Columns("CODIGO")


BuscarCodigoC

FrmCobrosPagos.Combo3.Text = NombreC
FrmCobrosPagos.Text3.Text = CodigoC



FrmFacAlbVentas.Text1 = CodigoC
FrmFacAlbVentas.Combo1 = NombreC

FrmPresupuestos.Text3 = CodigoC
FrmPresupuestos.Combo1 = NombreC

FrmCabFactCompras.Text4 = CodigoC
FrmCabFactCompras.Combo5 = NombreC
FrmCabFactCompras.Combo6 = Nombre2C

FrmFicheros.Text49.Text = CodigoC
FrmFicheros.Combo12.Text = NombreC




Unload Me
End Sub


'busca en el fichero de CLIENTES para asignar los datos segun el combo seleccionado

Function BuscarCodigoC()
On Error Resume Next
If Not tabla3.EOF Then
G = 0

If CodigoC = tabla3.Fields("Codigo") Then
CargarCLIENTE
G = 1
Exit Function
End If

tabla3.MoveNext
BuscarCodigoC
End If
End Function

Andr?
04 de Julio del 2003

se me olvidaba...


´carga las variables de clientes
Function CargarCLIENTE()
On Error Resume Next
LimpiarCLIENTE
CodigoC = tabla3.Fields("CODIGO")
NombreC = tabla3.Fields("NOMBRE")
Nombre2C = tabla3.Fields("NOMBRE2")
CifC = tabla3.Fields("CIF")
Tel1C = tabla3.Fields("TELEFONO1")
Tel2C = tabla3.Fields("TELEFONO2")
TelMC = tabla3.Fields("TELEFONOM")
FaxC = tabla3.Fields("FAX")
EmailC = tabla3.Fields("EMAIL")
DirFC = tabla3.Fields("DIRECCIONF")
PobFC = tabla3.Fields("POBLACIONF")
CPFC = tabla3.Fields("CPOSTALF")
ProvFC = tabla3.Fields("PROVINCIAF")
DirCC = tabla3.Fields("DIRECCIONC")
PobCC = tabla3.Fields("POBLACIONC")
CPCC = tabla3.Fields("CPOSTALC")
ProvCC = tabla3.Fields("PROVINCIAC")
NomCont1C = tabla3.Fields("PCONTACTO1")
TelCont1C = tabla3.Fields("TELCONTACTOP1")
TelMCont1C = tabla3.Fields("TELMOVILC1")
NomCont2C = tabla3.Fields("PCONTACTO2")
TelCont2C = tabla3.Fields("TELCONTACTOP2")
TelMCont2C = tabla3.Fields("TELMOVILC2")
NomCont3C = tabla3.Fields("PCONTACTO3")
TelCont3C = tabla3.Fields("TELCONTACTOP3")
TelMCont3C = tabla3.Fields("TELMOVILC3")
NomCont4C = tabla3.Fields("PCONTACTO4")
TelCont4C = tabla3.Fields("TELCONTACTOP4")
TelMcont4C = tabla3.Fields("TELMOVILC4")
NomCont5C = tabla3.Fields("PCONTACTO5")
TelCont5C = tabla3.Fields("TELCONTACTOP5")
TelMcont5C = tabla3.Fields("TELMOVILC5")
End Function