Cuadro de diálogo para imprimir un informe

Para mostrar el cuadro de diálogo de impresión se puede hacer utilizando un código como el que sigue, asociándolo a un botón de comando o similar:

On Error GoTo err_DoCmd
‘ abrimos el informe en vista previa
DoCmd.OpenReport “Informe1″, acViewPreview
‘ si queremos ocultar el informe podemos usar esta línea
Reports(“Informe1″).Visible = False
‘ mostramos el cuadro Imprimir …
DoCmd.RunCommand acCmdPrint
‘ cerramos el informe
DoCmd.Close acReport, “Informe1″
On Error GoTo 0
‘ si este código pertenece a una función
‘ la siguiente línea sería Exit Function
Exit Sub

err_DoCmd:
‘la acción RunCommand se canceló
If Err.Number = 2501 Then
Resume Next
Else ‘ otro tipo de error
MsgBox “Se ha producido el error ” & Err.Number & Err.Description
End If

En el caso de estar trabajando con Access XP o superior, existe una opción extra en el método DoCmd.OpenReport que permite hacer invisible el informe. Si quisieras utilizarla, entonces la línea de código para abrir el informe sería parecida a ésta:

DoCmd.OpenReport “Informe”, acPreview, , , acHidden

y también tendríamos que eliminar la línea con la cual ocultábamos el informe:

Reports(“Informe1″).Visible = False

Fuente: Access & VBA FAQ

Detectar inactividad en la aplicación

En este post se muestra cómo crear un procedimiento que se ejecutará si la aplicación de Microsoft Access no detecta ninguna entrada de usuario durante un período de tiempo especificado. Al evento IntervaloDeCronómetro la aplicación inicia la cuanta atrás en la que comprueba la inactividad del usuario. Una configuración de 1000 es igual a 1 segundo.

Descargar. Access 2000

Fuente: support.microsoft.com

Tiempo que lleva abierta una base de datos

El siguiente ejemplo acumula el tiempo que se ha estado utilizando la base de datos. Este emplo lo esto intentando utilizar para que la aplicación sobre la que estoy trabajando se desconecte/cierre, cuando lleve cierto tiempo sin utilizar.

Descargar. Access 2000.

Fuente: ensolva

Cambiar comas a puntos decimales

La siguiente función cambia el separador decimal por un punto, si el que se utiliza es una coma. Si le pasas la cadena que quieres que cambie p.e.: “245,05″ y te la deja como “245.05″.

Private Sub CambiarComaPunto(ByRef Cadena As String)
Dim I As Integer
I = InStr(1, Cadena, “,”)
Mid(Cadena, I, 1) = “.”
End Sub

Fuente: Xavi

Saber si existe una tabla en una base de datos (II)

Ya he posteado otro código para este mismo cometido, pero el que expongo a continuación me ha parecido mucho más sencillo:

Function fHayTabla(sNombreTabla As String) As Boolean
Dim i As Integer
For i = 0 To CurrentDb.TableDefs.Count – 1
If CurrentDb.TableDefs(i).Name = sNombreTabla Then
fHayTabla = True
Exit Function
End If
Next
End Function

Fuente: Foro de access y vba

Conocer el usuario que ha iniciado la sesión en Windows

Para conocer cuál es el usuario que ha iniciado una sesión en Access existen varias formas. En este post se exponen tres:

1. Con las variables de Entorno

Function DameUsuarioSencilla() As String
DameUsuarioSencilla = Environ("USERNAME")
End Function

Eliminar las tablas vinculadas

Mediante el siguiente código se eliminan las tablas vinculadas de una base de datos:

Sub sRemoveLinks()
Dim db As Database
Dim tdf As TableDef
Dim intCount As Integer, intPos As Integer
Set db=DBEngine(0)(0)
intCount=db.TableDefs.Count-1
For intPos=intCount to 0 Step -1
Set tdf=db.TableDefs(intPos)
If Len(tdf.Connect)>0 Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next intPos
End Sub

Fuente: Applecore