Se encontraron 923 coincidencias

por Sveinbjorn
Sab Abr 21, 2018 3:54 pm
Foro: Código VBA
Tema: Para pasar valor de variable de un formulario a otro correctamente
Respuestas: 6
Vistas: 77

Re: Para pasar valor de variable de un formulario a otro correctamente

Veo que le sigues buscando los cinco pies al gato y te complicas sin necesidad... Por curiosidad me he bajado ahora tu archivo (y no veo el error 2501 por ningún lado), tan solo con poner: DoCmd.OpenForm "CLIENTES", acNormal, , , , , True y: Private Sub Form_Open(Cancel As Integer) If Me.O...
por Sveinbjorn
Jue Abr 19, 2018 9:59 am
Foro: Objetos Access
Tema: Consulta que devuelva bloque registros
Respuestas: 7
Vistas: 94

Re: Consulta que devuelva bloque registros

Hola Jacinto, yo algo he conseguido para eliminar los registros de aquellas compañías que no llegan a 5 pedidos, con esta consulta: SELECT DISTINCT PedidosA.IdPedido, PedidosA.Destinatario, PedidosA.FormaEnvío, Agencias.NombreAgencia, PedidosA.Cargo FROM Agencias INNER JOIN PedidosA ON Agencias.IdFo...
por Sveinbjorn
Mar Abr 17, 2018 8:58 am
Foro: Código VBA
Tema: Para pasar valor de variable de un formulario a otro correctamente
Respuestas: 6
Vistas: 77

Re: Para pasar valor de variable de un formulario a otro correctamente

Que manera de rizar el rizo: si ya tienes el valor en el OpenArgs, ¿para que das esa vuelta de pasarlo a un cuadro de texto y luego validar su contenido? Hazlo directamente sobre el OpenArgs: If Me.OpenArgs=... Then... Además, al OpenArgs le puedes pasar un valor que no sea texto (es decir, le puede...
por Sveinbjorn
Mar Abr 17, 2018 8:55 am
Foro: Código VBA
Tema: Dudas sobre Módulo
Respuestas: 3
Vistas: 32

Re: Dudas sobre Módulo

Por aportar una idea que te simplifique el proceso: si en vez de pasarle como argumentos los controles le pasas el nombre del formulario, tendrás que escribir algo menos ;) : Sub btEditar(elForm as String) With Forms(elForm) .Nombre.BorderStyle = 1 .Apellido.BorderStyle = 1 .Direccion.BorderStyle = ...
por Sveinbjorn
Lun Abr 09, 2018 7:19 pm
Foro: Código VBA
Tema: Consulta con rangos de fechas en VBA
Respuestas: 4
Vistas: 65

Re: Consulta con rangos de fechas en VBA

En VBA (y en Access) las fechas se ponen entre almohadillas:

Código: Seleccionar todo

... dbo_Kardex.fecha_entrada Between #2017/06/01# And #2017/06/16#
por Sveinbjorn
Lun Abr 09, 2018 6:46 pm
Foro: Objetos Access
Tema: IMAGEN GIRADA EN INFORME
Respuestas: 6
Vistas: 172

Re: IMAGEN GIRADA EN INFORME

Pues comprímelo en rar o zip, o mejor aún, súbelo a la nube y pon el enlace de descarga.

En el foro tienes explicado cómo hacerlo.
por Sveinbjorn
Mar Abr 03, 2018 9:58 pm
Foro: Código VBA
Tema: Problema con el procedimiento: sender As Object, e As EventArgs
Respuestas: 4
Vistas: 113

Re: Problema con el procedimiento: sender As Object, e As EventArgs

Hola! Pon los cuatro primeros Ifs así:

If Not IsNull(Me.Nombre) Then cont=cont+1

Saludos!
por Sveinbjorn
Sab Mar 31, 2018 11:56 am
Foro: Código VBA
Tema: Conflicto al depurar código: Error de sintaxis 3075
Respuestas: 2
Vistas: 56

Re: Conflicto al depurar código: Error de sintaxis 3075

Es lógico ese error, porque en el momento de crear un registro nuevo, el campo id_cliente aún no tiene valor.

Una forma fácil de solucionarlo es añadir una comprobación en ese sentido al inicio del código de Form_Current:
If Me.NewRecord Then Exit Sub

Saludos!
por Sveinbjorn
Vie Mar 30, 2018 5:06 pm
Foro: Código VBA
Tema: Validar NIE extranjero
Respuestas: 5
Vistas: 91

Re: Validar NIE extranjero

Me alegra escuchar que ahora funciona bien.

Ya aviso a Neckkito para que actualice el archivo en su web.

Saludos!
por Sveinbjorn
Vie Mar 30, 2018 4:40 pm
Foro: Código VBA
Tema: Validar NIE extranjero
Respuestas: 5
Vistas: 91

Re: Validar NIE extranjero

Hola Zelarra, efectivamente el código original del ejemplo tenía un pequeño error que provocaba una letra incorrecta en algunos casos de NIEs. En teoría esta BD que te adjunto lo tiene corregido (digo en teoría porque llevo con ella más de 3 años en el trabajo con ella y no le encontré problemas): h...

Ir a búsqueda avanzada