Programación General > Visual Basic 6.0 e inferiores

 Convertir Nombre De Form(string) En Objeto Form

(1/1)

dramonbp:
Hola amigos tengo el siguiente problema, haber si me podeis ayudar:

  Estoy realizando una aplicación en la cual a traves de un boton llamo

a un formulario que tengo almacenado en la base de datos, pero debido a

la gran cantidad de formularios a los que se puede llamar el codigo

empieza a ser demasido largo y engorroso. A continuacion os pongo lo

que tengo y lo que me gustaria.

Lo que tengo es:

  rs.open "Select formulario FROM propiedades WHERE documento LIKE '" &

sDocumento & "'", con

  if not rs.eof then
     if rs.fields(0) = "frmCliente" then
        frmcliente.show
     elseif rs.fieds(0) = "frmMaeRetencion" then
        frmMaeRetencion.show
     elseif ..... (y asi sucesivamente)
        .......
     end if
  end if

  Lo que me gustaria pq es mucho mas comodo, además de evitar el olvido

de algun formulario seria lo siguiente:

  rs.fields(0).show

  Pero claro un recorset no es un objeto form, necesitaria pasar bien

el valor del recordset o de una variable a objeto form, ¿Es posible?, y

si es posible ¿cual seria la forma de hacerlo?

   Muchas gracias de antemano

DiabloRojo:
Creo que para tu propósito te puede ser útil la función CallByName. Busca en el foro que hay varios posts que hablan sobre el tema.
Saludos

DiabloRojo

Widark:
Que tal!

Este código lo vi en el guille

NombreForma = "frmManobra"
Set Variable_Cualquiera = Forms.Add(NombreForma)
Variable_Cualquiera.Show

Espero te sirva.

Navegación

[0] Índice de Mensajes