Saltar al contenido

Cambiar valor de variable en tiempo de ejecución


Recommended Posts

publicado

Buenas tardes amigos foristas pues me he atorado en un proyecto espero alguien me pueda orientar o soltar alguna opinion o sugerencia con lo siguiente: deseo cambiar el valor de una variable en tiempo de ejecucion el problema radica en que este valor puede venir de una bd access o de un archivo .ini y dicho valor contiene otras variables ejemplo

nota he utilizado callbyname para realizar el cambio de la variable

Public sVariable As String
Dim sNiño As String
Dim sPapa As String
'=====================
Private Sub Command1_Click()
Dim sT As String

sT = Variable
CallByName Me, "sVariable", VbLet, sT
MsgBox sVariable
End Sub
'====================
Private Sub CargaDatos()
Open "C:\prueba.txt" For Input As #1
Line Input #1, sVariable
Close #1
End Sub
'==================
Private Sub UserForm_Initialize()
sNiño = "o"
sPapa = "ron"
sVariable = "Manzana"
MsgBox sVariable
CargaDatos
End Sub
[/CODE]

el valor de la sVariable que contiene en este caso el archivo .ini

[CODE]"los papas del niñ" & sNiño& "Fue" & sPapa "Jose y Maria"
[/CODE]

el resultado que se espero es el siguiente

[b]Los papas del niño Fueron Jose y Maria[/b]

desgraciadamente el valor de sVariable me lo toma como string mostrandome los siguiente

[b]"los papas del niñ" & sNiño& "Fue" & sPapa "Jose y Maria"[/b]

en cambio hago el cambio en esta linea

[CODE] CallByName Me, "sVariable", VbLet, sT [/CODE]

por esta

[CODE] CallByName Me, "sVariable", VbLet,
"los papas del niñ" & sNiño& "Fue" & sPapa "Jose y Maria"
[/CODE]

funciona correctamente ....

:( espero alguien me pueda apoyar con alguna duda o sugerencia de antemano gracias y saludos desde Méxicoo_O

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.