El número 1741725…

tiene una curiosísima propiedad:

1⁷+7⁷+4⁷+1⁷+7⁷+2⁷+5⁷=1741725

Al parecer es el único número con el que se sabe que ocurre.

Fuente: Gaussianos.com 

Averiguar si un formulario tiene registros

Mediante el siguiente código se puede saber si existen registros que mostrar en un formulario. En el evento Al Cargar (Load) del formulario escribe este código:

Private Sub Form_Load()
‘ si el número de registros es cero
If Me.RecordsetClone.RecordCount = 0 Then
‘ enviamos un mensaje
MsgBox “No existen registros relacionados”, vbInformation
‘ cerramos el formulario actual
DoCmd.Close acForm, Me.Name
End If
End Sub

Fuente: Access & VBA FAQ

Numerar registros en un formulario continuo

Se añade la siguiente función a nuestro formulario:

Public Function AWorden(xDATO) As Double
With Me.RecordsetClone
If IsNull(xDATO) Then
AWorden = .RecordCount + 1
Else
If Me.NewRecord Then
AWorden = .RecordCount + 1
Else
.Bookmark = Me.Bookmark
AWorden = .AbsolutePosition + 1
End If
End If
End With
End Function

y se incorpora un cuadro de texto al formulario al que se le coloca en la propiedad “Origen del control”:

=AWorden([uncampodelatabla])

El procedimiento también sirve para formularios no tabulares.

Fuente: Foro de Access VBA 

Primos truncables

Primos trucables son aquellos número primos a los cuales quitándole un dígito (por la izquierda o la derecha) se obtienen sucesivos números primos.

Existen 4260 número primos trucables por la izquierda: 823, 853, 883, 937, 947, 953.
Por la derecha existe 83, como por ejemplo: 593993, 719333, 59393339, 73939133.
Y por ambos lados existen 15, algunos son: 373, 797, 3137, 3797, 73939.

Fuente: wikipedia. 

Ajustar el tamaño de un objeto al contenido

Ejemplo que muestra como autoajustar de forma indivudual los controles con diferente formato en una misma línea simulando el estilo de texto RTF. Esto lo condigue reemplazando los objetos TextWidth y TextHeight. Esta solución funciona de forma multilinea tanto en los formularios como en los informes.

Access 97. Descargar.

Fuente: Lebans

Simulando el oscurecimiento del fondo de Vista

El siguiente ejemplo simula el oscurecimiento que realiza Vista del fondo de la pantalla manteniendo iluminado el formulario activo.

Para que funcione debes extraer la base de datos del archivo zip, y no debe estar en modo solo lectura.

Access 2002. Descargar.

Fuente:  Mister Slimm

Modificar de forma activa las dimensiones de un formulario

Mediante el siguiente ejemplo se muestra como modificar de forma activa las dimensiones de un formulario, viendo la relación existente entre el cuerpo y la cabecera del formulario.

Versión 97. Descargar.

Fuente: Lebans.

Limitar el número de caracteres y/o lineas en un memo

El siguiente ejemplo continene una función que permite limitar tanto el número de líneas como de caracteres (de forma independiente o coordinada) en un control Memo.

Versión 97. Descargar.

Fuente: Lebans

Cita

“Hacer lo simple complicado es bastante habitual; hacer lo complicado simple, asombrosamente simple, eso es creatividad”.

Charles Mingus

Obtener las propiedades de un archivo de Word

‘************ Inicio del código **********
Function fGetDocProps(strInFile As String, strProp As String)
‘Devuelve el número de caracteres:
‘fGetDocProps(“C:\more junk\read me.doc”,”Number of Characters”)
‘Devuleve la última fecha de impresión:
‘fGetDocProps(“C:\more junk\read me.doc”,”Last Print Date”)

Dim objWord As Object, objDocProps As Object
On Error GoTo Err_fGetDocProps
Set objWord = CreateObject(“Word.Application”)
objWord.Documents.Open strInFile
Set objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties
fGetDocProps = objDocProps(strProp)

Exit_fGetDocProps:
objWord.Application.Quit savechanges:=False
Set objDocProps = Nothing
Set objWord = Nothing
Exit Function

Err_fGetDocProps:
fGetDocProps = “Error: Probably File/Property does not exist.”
Resume Exit_fGetDocProps
End Function

Function fEnumProps(strInFile As String)
‘Ejemplo: fEnumProps(“C:\more junk\read me.doc”)
Dim objWord As Object, objDocProps As Object
Dim i As Integer
On Error Resume Next
Set objWord = CreateObject(“Word.Application”)
With objWord
.Documents.Open strInFile
Set objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties
For i = 0 To objDocProps.Count – 1
Debug.Print objDocProps(i).Name, objDocProps(i).value
Next i
End With
objWord.Application.Quit savechanges:=False
Set objWord = Nothing
End Function
‘************ Fin del código **********