El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
Foro de Visual Basic/VB.NET
Foros del Guru > Visual Basic/VB.NET
Usuario Enlazar y pasar datos de dos forms
Oblacionx
34 Mensaje(s)
Enviado - 23/9/2004
 
Tebgo un form buscarproducto y tengo mas de 1 form que hace referencia a este form, se que pasa unir dos form seria: form.control.propiedad y ya pero que ocurre que si coloco en form el nombre de un form dado, ya no podria utilizar para el resto de forms, lo que yo he hecho es crear
Public strForm As String en un modulo, y en el form 1 al hacer click en buscar :

Private Sub cmdBuscar_Click()
strForm = Me.Name
frmBuscarProducto.Show vbModal
End Sub

el moduilo buscar tengo un text box, datalist al hacer click sobre un elemento del datalist:

Private Sub dblstProducto_Click()
strForm.txtCodPro.Text = dblstProducto.BoundText
End Sub

lo que necesito es que me pase el dato seleccionado al form1 , en un textbox, lo me sale que es un msj que dice calificador no valido, les agradeceria su ayuda
 
Desconocido
Enviado - 23/9/2004
 
MIra yo digo que tu problema esta en forma en la que lo mandas
por que no cereas una variable como

private sub CmdBuscar_click()
dim F as form
set f = me
frm2.show vbmodal
end sub

asi le haces referencia al formulario mas facil
 
Desconocido
Enviado - 23/9/2004
 
se me olvido decirte asi le haces.

public F as form

Private Sub cmdBuscar_Click()
set f = Me.Name
frmBuscarProducto.Show vbModal
End Sub

y luego.

Private Sub dblstProducto_Click()
f.txtCodPro.Text = dblstProducto.BoundText
End Sub

la f la declaras en un modulo por que si la declaras en un formulario ocupas declarar el nombre del frm....
 
Desconocido
Enviado - 23/9/2004
 
Errores como estos hacen la diferencia.

public F as form

Private Sub cmdBuscar_Click()
set f = Me
frmBuscarProducto.Show vbModal
End Sub

y luego.

Private Sub dblstProducto_Click()
f.txtCodPro.Text = dblstProducto.BoundText
End Sub

la F va declarada en un modulo

Bassillo
 
Oblacionx
34 Mensaje(s)
Enviado - 24/9/2004
 
Tu respuestaes de OK, muchisimas gracias,.
 
 

 

Contactos myStudio Network