santiagomf

Así, sin más, no adivino el motivo del error. Habría que ver la ejecución. En cuanto al usuario del ordenador puedes crear fácilmente una función como esta: function nombreUsuario() as string nombreUsuario=environ("username") end function Con eso no...

Prueba con este código: Sub buscar() Dim valBuscar As Variant Dim aux As Variant Dim snAlgunOk As Boolean snAlgunOk = False valBuscar = Reporte.Range("B2") On Error Resume Next aux = Application.WorksheetFunction.VLookup(valBuscar,...

Tendrías que ejecutar una instrucción SQL para añadir el nuevo campo. El código sería algo así: Docmd. Runsql "alter table <nombreDeLaTabla> add <nombreDeCampo> <tipoDatos>"

Puedes usar el control de errores de VB. Es sencillo pero muy peligroso; me explico. La instrucción "On error resume next" desactiva el control de errores de VB y permite al programador controlarlos. Por otro lado "On error goto 0" vuelve a activar...

Estás poniendo que el campo2 sea siempre "[variable]" Lo que tienes que hacer es que la cadena contenga el valor de esa variable, no el nombre. Prueba a sustituir la línea por esta: SQL="SELECT campo1 FROM tabla1 WHERE campo2=" & variable & " ORDER...

El código que suelo usar yo para cargar ficheros de texto es algo parecido al que sigue: Option Compare Database Option Explicit Sub cargarFicheroEnTabla1(ByVal nomFich As String) Const nomTabla = "nombreTabla1" Dim nf As Integer Dim linea As String...

Copia estas funciones en un módulo: Function convertirTextoAFecha(ByVal txtFecha As String) As Variant Dim dd As String Dim mm As String Dim aa As String ' Primero comprobamos que la fecha sea correcta If snFechaValida(txtFecha) Then ' Separamos los...

Mi consejo es que leas la fecha con formato AAAAMMDD. Aunque no sea el formato habitual es mejor que siempre uses el mismo formato y que este no dependa de la configuración de tu ordenador. Además, es un formato bastante sencillo de validar y después...

Yo utilizo el siguiente código en una base de datos. Te cuento. Tengo en una tabla de la base de datos el nombre del destinatario, el asunto, el texto del correo y la dirección de los ficheros adjuntos. Para enviar los correos utiliza las funciones...

Primero comprobaría si es una fecha ¿válida?. Y lo pongo así porque traga con casi todo. Después, sabiendo que la fecha es válida haría lo siguiente: convertirla a fecha y después a texto. Si el resultado es igual que lo que han escrito es porque no...