MiFormCliente As FormCliente

[TheGhost(Z)]

Hola. Tengo un formulario "FormCliente" que tiene una variable Publica ID
Ejecuto al Cliente:

Código [Seleccionar] Expandir

Dim IDcliente As Long
IDcliente = CLng(Val(lsv.SelectedItem.Text))
Dim MiCliente As New FormCliente
With MiCliente
    .ID = IDcliente
    .Show
End With

[TheGhost(Z)]

Le he dado a publica en ves de previsulaizar... 

Pues como habran notado tengo un Listado con clientes. pues al dar doble click las cargo con el codigo de arriba.

Pero que pasa si ya tengo cargado al cliente. seria genal que reciba un mensaje "El cliente ya esta abierto".

Pues esa parte es lo que no me sale...

he intentado con el codigo que se mostrará abajo.. pero me da a entender que f.ID no existe

Código [Seleccionar] Expandir

Dim f As Form
For Each f In Forms
    If f.ID = ID Then MsgBox "El cliente ya esta abierto"
Next


Notanto que la f.ID no existe intento con esto:

Código [Seleccionar] Expandir

Dim f As ForCliente
For Each f In Forms
    If f.ID = ID Then MsgBox "Cliente abierto"
Next


Y mesale con que los tipos no cinciden... algien me puede decir donde esta el aerror..??

[BlackZeroX]

Código (vb) [Seleccionar] Expandir



Dim f As Form
For Each f In Forms
   If f.ID = ID Then MsgBox "Cliente abierto"
Next



OJO el For Each recorrerá TODOS los Forms cargados y si alguno de estos no tiene la variable/Propiedad invocada te causara error así qué hay qué hacer esto!¡.

Código (vb) [Seleccionar] Expandir



Dim f As Form
For Each f In Forms
   if f is FormCliente then
       If f.ID = ID Then MsgBox "Cliente abierto"
   end if
Next



Ahora en el formulario "FormCliente" pega esto en el cabezal.

Código (vb) [Seleccionar] Expandir



option explicit

Public ID as string




P.D.: Puedes usar de igual forma la propiedad .Tag en lugar de una variable ID creada por ti!¡.

Dulces Lunas!¡.

[TheGhost(Z)]

Exelente. Muchas gracias. Con el código que me pasaste no arroja error, pero no detecta la instruncción:

Código [Seleccionar] Expandir

If f Is FormCliente then

Pero cambie por:

Código [Seleccionar] Expandir

If f.Name  = "FormCliente" then y funciona... Gracias BlackZeroX

[BlackZeroX]

Código [Seleccionar] Expandir

If f Is FormCliente then

Código [Seleccionar] Expandir

If f.Name  = "FormCliente" then y funciona... Gracias BlackZeroX

Es mejor con   if Objeto is objeto then en lugar de if Objeto.Nombre = "Objeto" then pero si te sirvio asi estara bien xP

Dulces Lunas!¡.