Jacinto Trillo Jareño

Jacinto Trillo Jareño

 630K puntos  España @jacintotrillojareno desde - visto

Respuestas en VBA

Respuesta en y en 3 temas más a

Access. Consulta "Crear Tabla"; definir Tipo de Datos de la tabla creada para los campos con Fórmulas

Si la consulta siempre es la misma y la tabla también no necesitas crearla cada vez. Borra el contenido de la tabla e inmediatamente inserta en ella los datos que tiene la consulta. Un Procedimiento Publico en Módulo Estandar, para borrar la Tabla e...
Respuesta en y en 1 temas más a

Calcular varios valores en una función y llamar a algunos de ellos desde formulario

Miguel: De acuerdo a como yo lo veo, has declarar cada una de las Variables en cabecera del Módulo Estándar para luego llenarlas, que supongo están bi´en y te sube los valores correctos. Para la Variables: Public FnIDH As String Public FnLote As...
Respuesta en y en 2 temas más a

Como cambiar listbox selectmulti a selectsingle en tiempo de ejecución

Hernán: Que yo sepa el Cambio de Propiedad se ha de hacer en tiempo de diseño, con lo cual lo has de hacer desde fuera. Dale una mirada a éste pregunta que hicieron en >> http://www.mvp-access.com/foro/listbox-multiselect_topic81756.html Un saludo >>...
Respuesta en y en 3 temas más a

Agrupar un código que se repite en un módulo

Diego: Evidentemente el camino es el de hacer una Función personalizada. Para ello has de provocar un Evento al abrir o cargar el Formulario, que alcance a los Controles que tu necesites. Una forma que a mi me parece buena, aunque el Evento no sea el...
Respuesta en y en 3 temas más a

Comprobar si un formulario tiene encabezado de formulario

Diego: Pon algo así >> Private Sub Form_Load() On Error GoTo Form_Load_TratamientoErrores If Me.Section(1).Height > 0 Then MsgBox "La cabecera de éste formulario tiene una altura de:" & Me.Section(1).Height, vbInformation,"ALTO SECCION" 'Si no...
Respuesta en y en 2 temas más a

¿Cómo se puede generar un folio para factura de tipo texto y numero (CVMM 00001)?

Jorge: En lugar de ponerte a "secas" una formula para que uses por ejemplo en el Evento >> Al activar registro de tu Formulario, te recomiendo leas (si quieres) éste articulo y aplicas la parte que se adapte a tus facturas. No te valdrá el aleatorio,...
Respuesta en y en 3 temas más a

Campo de un recordset en unmódulo, llamado desde un formulario

Diego: Esa línea de Código podría ser : RstTPV.Fields(CampoTabla) = Frm.UnId Por disciplina yo le doy el Nombre de Frm a lo que tu denominas FName (suena más a String) Public Function Añadir(Frm As Access.Form, CampoTabla As String, UnId As Variant)...
Respuesta en y en 3 temas más a

Copiar archivos y borrar carpeta mediante VBA

Diego: Quería darle una ojeada a tu BD antes de contestarte, pero no he podido. Mira si es que guardas el valor de la nueva carpeta en alguna variable cuya alcance sea solo a nivel de Módulo de Formulario. Un saludo >> Jacinto
Respuesta en y en 2 temas más a

Cambiar el título de un MsgBox mediante un función de un módulo

Diego: Yo haría lo siguiente: Public Function NombreDeEstaBD() As String Dim EstaBD As Database Set EstaBD = CurrentDb() NombreDeEstaBD = EstaBD.Name End Function MsgBox "Esta base de datos tiene el siguiente directorio y Nombre: " & NombreDeEstaBD,...
Respuesta en y en 3 temas más a

Números a Letras con Código VBA Access

Martin: Al final del bucle For....., e inmediatamente antes del Next tienes ésto If intTamanho = 1 Then strTexto(intContador) = strTexto(intContador) + strUnid(Right(strParte, 1)) End If Sustituyelo por ésto otro y haz las pruebas: If IntTamanho = 1...