Evaluar una expresión que crea un objeto.... cómo?

Perdona mi ignorancia... ¿cuando y como declaras la variable objeto?

Saludos,
marjan

"RonnyLab" escribió en el mensaje
news:bdp023$c0n$
Mostrar la cita

Que tal, ñuseros:

Los calores del verano afectan a mi mente, y llevo dándole vueltas a esta
cuestión todo el fín de semana sin resultados positivos, a ver si alguien
tuvo el mismo problema con mejores resultados que yo.

La cuestión es que quiero crear un objeto definido por un módulo de clase
Access, pero la clase de este objeto es variable. Para ello se me

ocurrieron
Mostrar la cita

dos alternativas:

1. Mediante la función Eval: Set miObjTmp = eval("New " & cNbClase), pero
esta y otras alternativas con eval que he probado me da el error

"Microsoft
Mostrar la cita

Access no puede encontrar el nombre 'New' que introdujo en la expresión."

2. Mediante la función CreateObject: Set miObjTmp Createobject(cNbClase),
pero esta alternativa me dice que "El componente ActiveX no puede crear el
objeto".

Me suena que existe otra función de evaluación, pero no recuerdo el

nombre,
Mostrar la cita

he estado buscando en la ayuda sin éxito.

Cualquier sugerencia es acogida de muy buen grado.

Un saludo y gracias.

...pues mientras no viene Chea...

... aunque no acabo de entender lo que quieres (y tampoco creo que te
sirva...) ¿has mirado la colección Modules ? y si puedes referenciar el
objeto desde allí.

Saludos,
marjan

"RonnyLab" escribió en el mensaje
news:bdpb60$j2q$
Mostrar la cita

No hay nada que perdonar, porque el ignorante soy yo ;)

Imagínate un formulario con un textbox (texto0) y un commandbutton
(Comando2)


<tmpForm>
Option Compare Database
Option Explicit

Dim miObjeto As uctTextBox
Dim miObjeto2 As uctTextBox

Private Sub Form_Load()
Set miObjeto = New uctTextBox
Set miObjeto.uctTxt = Me.Texto0 'Aquí si funciona la asignación
correctamente, que por otra parte
'es lo que se espera
End Sub


Private Sub Comando2_Click()
If Not Trim(Me.Texto0.Value) = "" Then
Set miObjeto2 = New uctTextBox
Set miObjeto2.uctTxt = Eval("Me." & Me.Texto0.Value) '(*)
End If
End Sub
</tmpForm>

(*) Ahí falla porque Eval sólo puede evaluar para devolver cadenas de

texto
Mostrar la cita

y valores numéricos. Por otra parte la idea sería crear en una sóla línea
esta y la línea anterior, es decir, dentro de una gama de clases, poder
crear dinámicamente la que me diera la gana.

Te expongo mi clase uctTextbox
<uctTextbox>
Option Compare Database
Option Explicit

Implements iControl

Private m_txtBox As TextBox

Public Property Set uctTxt(Txt As TextBox)
Set m_txtBox = Txt
End Property


Private Property Let iControl_Left(ByVal RHS As Long)
m_txtBox.Left = RHS
End Property

Private Property Get iControl_Left() As Long
iControl_Left = m_txtBox.Left
End Property


Private Property Let iControl_Width(ByVal RHS As Long)
m_txtBox.Width = RHS
End Property

Private Property Get iControl_Width() As Long
iControl_Width = m_txtBox.Width
End Property

Private Property Let iControl_Top(ByVal RHS As Long)
m_txtBox.Top = RHS
End Property

Private Property Get iControl_Top() As Long
iControl_Width = m_txtBox.Top
End Property

Private Property Let iControl_Height(ByVal RHS As Long)
m_txtBox.Height = RHS
End Property

Private Property Get iControl_Height() As Long
iControl_Height = m_txtBox.Height
End Property
</uctTextbox>

y el interface que implementa, iControl

<iControl>
Option Compare Database
Option Explicit

Public Left As Long
Public Top As Long
Public Width As Long
Public Height As Long
</iControl>

En fín ahí queda eso

Un saludote, marjan

"marjan" escribió en el mensaje
news:
> Perdona mi ignorancia... ¿cuando y como declaras la variable objeto?
>
> Saludos,
> marjan
>
> "RonnyLab" escribió en el mensaje
> news:bdp023$c0n$
> > Que tal, ñuseros:
> >
> > Los calores del verano afectan a mi mente, y llevo dándole vueltas a
esta
> > cuestión todo el fín de semana sin resultados positivos, a ver si
alguien
> > tuvo el mismo problema con mejores resultados que yo.
> >
> > La cuestión es que quiero crear un objeto definido por un módulo de
clase
> > Access, pero la clase de este objeto es variable. Para ello se me
> ocurrieron
> > dos alternativas:
> >
> > 1. Mediante la función Eval: Set miObjTmp = eval("New " & cNbClase),
pero
> > esta y otras alternativas con eval que he probado me da el error
> "Microsoft
> > Access no puede encontrar el nombre 'New' que introdujo en la
expresión."
> >
> > 2. Mediante la función CreateObject: Set miObjTmp > > Createobject(cNbClase),
> > pero esta alternativa me dice que "El componente ActiveX no puede

crear
Mostrar la cita

el
> > objeto".
> >
> > Me suena que existe otra función de evaluación, pero no recuerdo el
> nombre,
> > he estado buscando en la ayuda sin éxito.
> >
> > Cualquier sugerencia es acogida de muy buen grado.
> >
> > Un saludo y gracias.
> >
> >
>
>

Hola,

no estoy muy seguro de si es lo que preguntas, pero dices
que aquí

Set miObjeto2.uctTxt = Eval("Me." & Me.Texto0.Value)

es donde te falla el código (efectivamente, falla por lo
que tú comentas). Si mi suposición es correcta el valor de
Texto0 contendrá el nombre de otro cuadro de texto, ¿no?.
Si fuera así, creo que lo que te serviría sería este otro
tipo de asignación:

Set miObjeto2.uctTxt = Me.Controls(Me.Texto0.Value)

A ver si es eso.

Saludos,
happy


Mostrar la cita

No hay nada que perdonar, porque el ignorante soy yo ;)

Imagínate un formulario con un textbox (texto0) y un

commandbutton
Mostrar la cita

(Comando2)


<tmpForm>
Option Compare Database
Option Explicit

Dim miObjeto As uctTextBox
Dim miObjeto2 As uctTextBox

Private Sub Form_Load()
Set miObjeto = New uctTextBox
Set miObjeto.uctTxt = Me.Texto0 'Aquí si funciona

la asignación
Mostrar la cita

correctamente, que por otra parte
'es lo que se espera
End Sub


Private Sub Comando2_Click()
If Not Trim(Me.Texto0.Value) = "" Then
Set miObjeto2 = New uctTextBox
Set miObjeto2.uctTxt = Eval("Me." &

Me.Texto0.Value) '(*)
Mostrar la cita

End If
End Sub
</tmpForm>

(*) Ahí falla porque Eval sólo puede evaluar para

devolver cadenas de texto
Mostrar la cita

y valores numéricos. Por otra parte la idea sería crear

en una sóla línea
Mostrar la cita

esta y la línea anterior, es decir, dentro de una gama de

clases, poder
Mostrar la cita

crear dinámicamente la que me diera la gana.

Te expongo mi clase uctTextbox
<uctTextbox>
Option Compare Database
Option Explicit

Implements iControl

Private m_txtBox As TextBox

Public Property Set uctTxt(Txt As TextBox)
Set m_txtBox = Txt
End Property


Private Property Let iControl_Left(ByVal RHS As Long)
m_txtBox.Left = RHS
End Property

Private Property Get iControl_Left() As Long
iControl_Left = m_txtBox.Left
End Property


Private Property Let iControl_Width(ByVal RHS As Long)
m_txtBox.Width = RHS
End Property

Private Property Get iControl_Width() As Long
iControl_Width = m_txtBox.Width
End Property

Private Property Let iControl_Top(ByVal RHS As Long)
m_txtBox.Top = RHS
End Property

Private Property Get iControl_Top() As Long
iControl_Width = m_txtBox.Top
End Property

Private Property Let iControl_Height(ByVal RHS As Long)
m_txtBox.Height = RHS
End Property

Private Property Get iControl_Height() As Long
iControl_Height = m_txtBox.Height
End Property
</uctTextbox>

y el interface que implementa, iControl

<iControl>
Option Compare Database
Option Explicit

Public Left As Long
Public Top As Long
Public Width As Long
Public Height As Long
</iControl>

En fín ahí queda eso

Un saludote, marjan

"marjan" escribió en el mensaje
news:
Mostrar la cita

Perdona mi ignorancia... ¿cuando y como declaras la

variable objeto?
Mostrar la cita

Mostrar la cita

Saludos,
marjan

"RonnyLab" escribió en el

mensaje
Mostrar la cita

Mostrar la cita

news:bdp023$c0n$

data.net...
Mostrar la cita

Mostrar la cita

> Que tal, ñuseros:
>
> Los calores del verano afectan a mi mente, y llevo

dándole vueltas a
Mostrar la cita

esta
Mostrar la cita

> cuestión todo el fín de semana sin resultados

positivos, a ver si
Mostrar la cita

alguien
Mostrar la cita

> tuvo el mismo problema con mejores resultados que yo.
>
> La cuestión es que quiero crear un objeto definido

por un módulo de
Mostrar la cita

clase
Mostrar la cita

> Access, pero la clase de este objeto es variable.

Para ello se me
Mostrar la cita

Mostrar la cita

ocurrieron
> dos alternativas:
>
> 1. Mediante la función Eval: Set miObjTmp = eval

("New " & cNbClase),
Mostrar la cita

pero
Mostrar la cita

> esta y otras alternativas con eval que he probado me

da el error
Mostrar la cita

Mostrar la cita

"Microsoft
> Access no puede encontrar el nombre 'New' que

introdujo en la
Mostrar la cita

expresión."
Mostrar la cita

>
> 2. Mediante la función CreateObject: Set miObjTmp >> Createobject(cNbClase),
> pero esta alternativa me dice que "El componente

ActiveX no puede crear
Mostrar la cita

el
Mostrar la cita

> objeto".
>
> Me suena que existe otra función de evaluación, pero

no recuerdo el
Mostrar la cita

Mostrar la cita

nombre,
> he estado buscando en la ayuda sin éxito.
>
> Cualquier sugerencia es acogida de muy buen grado.
>
> Un saludo y gracias.
>
>

.

Es correcto Juan y muchas gracias

Pero el objeto es que en Texto0.Value figure cualquier típo de módulo de
clase que tenga mi proyecto access por ejemplo cClientes.

Un saludo
"Juan M Afan" escribió en el mensaje
news:006b01c33f2f$2fbb4240$
Hola,

no estoy muy seguro de si es lo que preguntas, pero dices
que aquí

Set miObjeto2.uctTxt = Eval("Me." & Me.Texto0.Value)

es donde te falla el código (efectivamente, falla por lo
que tú comentas). Si mi suposición es correcta el valor de
Texto0 contendrá el nombre de otro cuadro de texto, ¿no?.
Si fuera así, creo que lo que te serviría sería este otro
tipo de asignación:

Set miObjeto2.uctTxt = Me.Controls(Me.Texto0.Value)

A ver si es eso.

Saludos,
happy


Mostrar la cita

No hay nada que perdonar, porque el ignorante soy yo ;)

Imagínate un formulario con un textbox (texto0) y un

commandbutton
Mostrar la cita

(Comando2)


<tmpForm>
Option Compare Database
Option Explicit

Dim miObjeto As uctTextBox
Dim miObjeto2 As uctTextBox

Private Sub Form_Load()
Set miObjeto = New uctTextBox
Set miObjeto.uctTxt = Me.Texto0 'Aquí si funciona

la asignación
Mostrar la cita

correctamente, que por otra parte
'es lo que se espera
End Sub


Private Sub Comando2_Click()
If Not Trim(Me.Texto0.Value) = "" Then
Set miObjeto2 = New uctTextBox
Set miObjeto2.uctTxt = Eval("Me." &

Me.Texto0.Value) '(*)
Mostrar la cita

End If
End Sub
</tmpForm>

(*) Ahí falla porque Eval sólo puede evaluar para

devolver cadenas de texto
Mostrar la cita

y valores numéricos. Por otra parte la idea sería crear

en una sóla línea
Mostrar la cita

esta y la línea anterior, es decir, dentro de una gama de

clases, poder
Mostrar la cita

crear dinámicamente la que me diera la gana.

Te expongo mi clase uctTextbox
<uctTextbox>
Option Compare Database
Option Explicit

Implements iControl

Private m_txtBox As TextBox

Public Property Set uctTxt(Txt As TextBox)
Set m_txtBox = Txt
End Property


Private Property Let iControl_Left(ByVal RHS As Long)
m_txtBox.Left = RHS
End Property

Private Property Get iControl_Left() As Long
iControl_Left = m_txtBox.Left
End Property


Private Property Let iControl_Width(ByVal RHS As Long)
m_txtBox.Width = RHS
End Property

Private Property Get iControl_Width() As Long
iControl_Width = m_txtBox.Width
End Property

Private Property Let iControl_Top(ByVal RHS As Long)
m_txtBox.Top = RHS
End Property

Private Property Get iControl_Top() As Long
iControl_Width = m_txtBox.Top
End Property

Private Property Let iControl_Height(ByVal RHS As Long)
m_txtBox.Height = RHS
End Property

Private Property Get iControl_Height() As Long
iControl_Height = m_txtBox.Height
End Property
</uctTextbox>

y el interface que implementa, iControl

<iControl>
Option Compare Database
Option Explicit

Public Left As Long
Public Top As Long
Public Width As Long
Public Height As Long
</iControl>

En fín ahí queda eso

Un saludote, marjan

"marjan" escribió en el mensaje
news:
Mostrar la cita

Perdona mi ignorancia... ¿cuando y como declaras la

variable objeto?
Mostrar la cita

Mostrar la cita

Saludos,
marjan

"RonnyLab" escribió en el

mensaje
Mostrar la cita

Mostrar la cita

news:bdp023$c0n$

data.net...
Mostrar la cita

Mostrar la cita

> Que tal, ñuseros:
>
> Los calores del verano afectan a mi mente, y llevo

dándole vueltas a
Mostrar la cita

esta
Mostrar la cita

> cuestión todo el fín de semana sin resultados

positivos, a ver si
Mostrar la cita

alguien
Mostrar la cita

> tuvo el mismo problema con mejores resultados que yo.
>
> La cuestión es que quiero crear un objeto definido

por un módulo de
Mostrar la cita

clase
Mostrar la cita

> Access, pero la clase de este objeto es variable.

Para ello se me
Mostrar la cita

Mostrar la cita

ocurrieron
> dos alternativas:
>
> 1. Mediante la función Eval: Set miObjTmp = eval

("New " & cNbClase),
Mostrar la cita

pero
Mostrar la cita

> esta y otras alternativas con eval que he probado me

da el error
Mostrar la cita

Mostrar la cita

"Microsoft
> Access no puede encontrar el nombre 'New' que

introdujo en la
Mostrar la cita

expresión."
Mostrar la cita

>
> 2. Mediante la función CreateObject: Set miObjTmp >> Createobject(cNbClase),
> pero esta alternativa me dice que "El componente

ActiveX no puede crear
Mostrar la cita

el
Mostrar la cita

> objeto".
>
> Me suena que existe otra función de evaluación, pero

no recuerdo el
Mostrar la cita

Mostrar la cita

nombre,
> he estado buscando en la ayuda sin éxito.
>
> Cualquier sugerencia es acogida de muy buen grado.
>
> Un saludo y gracias.
>
>

.

Que tal, Juan.

La verdad es que estoy flipando con lo que os estoy quebrando la cabeza
jjejejejejejej, y el mérito es doble con el calor que hace

La solución que propones es correcta, soluciona el problema pero me gustaría
ir un poco más allá, el tema es que imaginate que para actualizar a un
cliente bastara con enviarle un módulo de clase y actualizar un registro en
una tabla con el nombre de ese módulo de clase a lo mejor con ese
ejemplo me explico un poco mejor.

Creo que el problema de todo esto es encontrar una función similar a Eval,
sé que existe, porque un día, hace muuuuuucho tiempo me pareció verla en la
ayuda o por Internet, no recuerdo, pero ahora no la encuentro o estaba
soñando aquel día

Sigo navegando en la ayuda y en Internet a ver si lo localizo... si lo
encuentro lo postearé en las News..

De todos modos, y lo digo de corazón, muchísimas gracias por vuestra
paciencia.