Grabar en una tabla las variables almacenadas en TempVars
Señores expertos, como dice el título de la pregunta necesito obtener en una tabla el nombre, contenido y tipo de variable que se hayan definido como TempVars. También me sirve verlas en la ventana de inmediato.
1 Respuesta
Respuesta de Eduardo Pérez Fernández
1
Le preparé este ejemplo:
TABLA
Para el ejemplo defino en la ventana de inmediato las siguientes TempVars:
Tempvars!ciudad="Cali"
Tempvars!usuario="idusuario"
Tempvars!nombre="Eduardo"
Tempvars!apellidos="Pérez Fernández"
Tempvars!Edata=65
Tempvars!fechanac=CDATE("25/09/1957")FORMULARIO
CÓDIGO BOTÓN ACTUALIZAR
Private Sub btnActualizar_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblTempVar", dbOpenTable)
CurrentDb.Execute "DELETE FROM tblTempVar", dbFailOnError
With rs
Dim Var As TempVar
For Each Var In TempVars
.AddNew
!NombreVar = Var.Name
!ValorVar = Nz(Var.Value, "{NULL}")
!TipoVar = TypeName(Var.Value)
.Update
Next Var
End With
rs.Close
Set rs = Nothing
Me.Requery
End SubIgualmente, le dejo una función para ver en la ventana de inmediato los TempVars
CÓDIGO DE LA FUNCIÓN
Function ver_tempvars() ' Obtener en la ventana de inmediato las variables TempVars Dim z As TempVar For Each z In TempVars Debug.Print "NOMBRE : " & z.Name & vbCrLf & "VALOR :" & z.Value & vbCrLf & "TIPO :" & TypeName(z.Value) & vbCrLf Next End Function
Ejemplo de llamada y resultado:
?ver_tempvars() NOMBRE : ciudad VALOR :idusuario TIPO :String NOMBRE : nombre VALOR :Eduardo TIPO :String NOMBRE : apellidos VALOR :Pérez Fernández TIPO :String NOMBRE : Edata VALOR :65 TIPO :Integer NOMBRE : fechanac VALOR :25/09/1957 TIPO :Date
Como tengo su correo le estoy enviando el ejemplo.
