form1.text (form como variable)

[carnero]

hola resuta que en un modulo hise una intruccion que me sirve para 2 form.
esntocnes por ejemplo la intruccion es:

Código vb:

if form1.text1.text = "" then
 

y lo que yo necesito e sque dependiendo del formulario que lo llame sea :

Código vb:

if form1.text1.text = ""
 

o

Código vb:

if form2.text1.text = ""
 

espero se entienda lo que necesito la verdad no se como hacer, trate con una variable pero no me la toma, o use la incorrecta

gracias

[erbuson]

Donde pusiste la "instruccion" que indicas, porque dependerá de ello como modificar la misma para que funcione, ¿ está en un módulo ? ¿ En un código de formulario ?

Tal vez lo mejor sería que copiaras el código para ver donde.

Saludos

[-rommel_]

a bueno... ya creo entender...
En el modulo haces un procedimiento PUBLICO
algo parecido a esto

Public Sub Formularios(frm as Form, txt as TextBox)
if frm.txt.text = "" then
msgbox "mensaje"
end if
End Sub

y desde cada Formulario utilizas este PROCEDIMIENTO desde Form1 y Form2

call Formularios(Me, me.Text1)

[carnero]

Código vb:

Public Sub filtro()
If IsNull(princi.DTPicker1.Value) And princi.Combo4.Text = "" And princi.Combo5.Text = "" And princi.Combo6.Text = "" And princi.Combo7.Text = "" And princi.Combo8.Text = "" Then
                If login.rst1.State = 1 Then login.rst1.Close
                 login.SQL = "SELECT * FROM solicitar  "
                 login.rst1.Open login.SQL, login.cnn, adOpenDynamic, adLockOptimistic
 

HAY TE DEJO UNA PARTE DEL CODIGO SON COMO 20 PARTES COMO ESTA, ESTA EN UN MODULO, ES UN PROCEDIMIENTO PUBLICO.
LO QUE YO QUIERO HACER ES PODER COAMBIAR "princi" POR "jefatura" DEPENDIENDO DEL FORMULARIO QUE UTILISE EL PROCEDIMIENTO.

Y APROVECHANDO OTRA CONSULTA, ME PUEDES EXPLICAR QUE PONES ENTRE LOS PARENTECIS, COMO SE USA? PARA QUE? GRACIAS??

Public Sub Formularios(frm as Form, txt as TextBox)

[culd]

En ves de usar:

Código vb:

Public Sub filtro()
 

Hace lo siguiente

Código vb:

Public Sub filtro(Formulario as Form)
 

Entonces en ves de llamar

Código vb:

Call filtro
 

Vas a llamarlo

Código vb:

Call filtro(Me)
 

Donde "Me" refiere al formulario que llama a la funcion, es decir el formulario padre que realiza el llamado, si el llamado lo haces desde otro formulario, o desde un modulo, simplemente llamas con el formulario correspondiente.

[carnero]

y por ejemplo aca?

Código vb:

princi.DTPicker1.Value
 

en "princi" le pongo form?

[carnero]

probe poniendo form, pero no resulta

que hago??

[-rommel_]

lo que pasa en los Procedimientos... Cierto que tu puedes enviar parametros? SI!

ejemplo:

Código vb:

'Evento Click
Private sub Command1_Click()
   Dim a as integer
   Dim b as integer
   a = textbox1
   b = textbox2
   SumarDatos(a,b)
End Sub
'Procedimiento
Public sub SumarDatos (Param1 as integer, Param2 as Integer)
   textbox3.text = Param1 + Param2
End Sub
 

Si te das cuenta como envias parametros VALORES al Procedimiento, donde Envias 2 Valores y la suma lo adiciona al 3er textbox, pero podemos enviar los Controles y tiene el mismo resultado, asi date cuenta:
'Evento Click

Código vb:

Private sub Command1_Click()
   'Envio los 3 controles como parametros, donde los 2 primeros se suman para poner el resultado
   'en el 3ro
   SumarDatos(me.textBox1, me.textBox2, me.textBox3)
End Sub
'Procedimiento
Public Sub SumarDatos(txt1 as TextBox, txt2 as TextBox, txt3 as TextBox)
   txt3.text = txt1.text + txt2.text
End Sub
 

Si ejecutas el resultado es el mismo... entonces CABE DECIR, que si se puede mandar CONTROLES como parametros... lo mismo puedes hacer con los Formularios, te pongo ejemplos:
'Este ejemplo solo envia valores
'Formulario llamado FormularioXXX

Código vb:

Private sub Command1_Click()
   Dim a as integer
   Dim b as integer
   a = textbox1
   b = textbox2
   SumarDatos(a,b)
End Sub
'Este Procedimiento esta en un MODULO
Public sub SumarDatos (Param1 as integer, Param2 as Integer)
   FormularioXXX.textbox3.text = Param1 + Param2
End Sub
 

'Ahora veamos como podemos utilizar este procedimiento para todos los formularios
'Formulario llamado FormularioXXX

Código vb:

Private sub Command1_Click()
   'Envio 4 parametros... 
   '(A)El Formulario del cual mando a ejecutar el procedimiento
   '(B)Los TextBox que estan dentro de ese formulario
   SumarDatos(Me, me.textBox1, me.textBox2, me.textBox3)
End Sub
'Este Procedimiento esta en un MODULO pero definido con Controles
Public Sub SumarDatos(frm as Form, txt1 as TextBox, txt2 as TextBox, txt3 as TextBox)
   frm.txt3.text = frm.txt1.text + frm.txt2.text
End Sub
 

Ahora si... utilizas la funcion para cualquier formulario... "frm" es el nombre de parametroy "Form" es el tipo de parametro (tipo formulario)

Espero aclarar tus dudas amigo... Saludos

[carnero]

muuuuuuuuuuchas gracias.

todo OK!!!

he aprendido mucho mas en este foro que con mis profesores

[-rommel_]

en realidad yo tambien... jajaja ya se un poco mas...