Colorear subformulario continuo

El siguiente ejemplo muestra como colorear un formulario continuo que se muestra a través de un subformulario en otro formulario. El código es relativamente sencillo y funciona perfectamente.

Descargar: Access 2000

Fuente: Vimipas

Abrir calculadora del sistema

Esto va en un boton o donde quieras:

Dim Proceso As New Process()
Proceso.StartInfo.FileName = "calc.exe"
Proceso.StartInfo.Arguments = ""
Proceso.Start()

Fuente: www.canalvisualbasic.net

Modificar el texto de la barra del título de la aplicación

Con el siguiente código se modifica la propiedad de la aplicación (AppTitle) que contiene el nombre de la misma, y que es el que se muestra en la barra del título de la aplicación.

Public Function EditTitleApp(strTitle As String)
Dim db As Database, prp As Property
Const conErrPropNonTrouvée = 3270
On Error GoTo Err_EditTitleApp
Set db = CurrentDb
db.Properties!AppTitle = strTitle
Application.RefreshTitleBar
db.Close: Set db = Nothing
Exit Function
Err_EditTitleApp:
If Err.Number = conErrPropNonTrouvée Then
Set prp = db.CreateProperty("AppTitle", dbText, strTitle)
db.Properties.Append prp
Set prp = Nothing
Else
MsgBox "Error : " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Function

Fuente: access.jessy.free.fr

Fórmulas matemáticas trigonométricas

A continuación expongo algunas funciones matemáticas trigonométricas que pueden ser de utilidad:

El arcocoseno:

Function ArcCos(X As Double) As Double
If X = 1 Then
ArcCos = 0
ElseIf X = -1 Then
ArcCos = -PI()
Else
ArcCos = Atn(X / Sqr(-X * X + 1)) + PI() / 2
End If
End Function

Pi:

Function PI() As Double
PI = Atn(1) * 4
End Function

Más en: access.jessy.free.fr

Quitar de una cadena los caracteres indicados

Esta función recibe dos cadenas, la primera es la que se quiere procesar y la segunda los caracteres que se quieren quitar de la primera, ésta última al ser opcional, si no se indica se asume que son los caracteres: punto, coma y espacio.

Public Function QuitarCaracter(ByVal sValor As String, Optional sCaracter) As String
Dim i As Integer
Dim j As Integer
Dim sTmp As String
'Si no se especifican los caracteres a quitar
If IsMissing(sCaracter) Then
sCaracter = "., "       'Para números
End If
sTmp = ""
For i = 1 To Len(sValor)
If InStr(sCaracter, Mid$(sValor, i, 1)) = 0 Then
sTmp = sTmp & Mid$(sValor, i, 1)
End If
Next
QuitarCaracter = sTmp
End Function

Ejemplo:
sRet = QuitarCaracter(“Hola Mundo”, “Mundo “)
Devolverá: “Hla”
No es un fallo, es que comprueba los caracteres uno a uno.

Fuente: www.elguille.info