Cómo obtener el nombre del ordenador o PC

Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetComputerName() As String
Dim sResult As String * 255
GetComputerNameA sResult, 255
GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
End Function

Después en cual formulario, módulo o report podemos usar

strPC =GetComputerName

Extraer el dominio de una URL

Public Function ExtraerURL(URL As String) As String
 'quita la última barra
 If Right(URL, 1) = "/" Then
   ExtraerURL = Mid(URL, 1, Len(URL) - 1)
 Else
   ExtraerURL = URL
 End If
 ExtraerURL = Replace(ExtraerURL, "https://", "")
 ExtraerURL = Replace(ExtraerURL, "http://", "")
End Function

Un ejemplo de uso sería

debug.print ExtraerURL("https://www.alexborras.com/")

Devuelve el valor www.alexborras.com

Jugando con las sustituciones también podríamos eliminar las primeras www.

Como hacer un filtro por un campo y ordenar los registros del formulario

Con código VBA podemos filtrar los registros de un formulario y de paso se explica como ordenarlos.

    Form_frmProyectosTareasTabla.Filter = "[FechaRealizado]>=#" & Format(txtDesdeFecha, "mm-dd-yyyy") & "# AND <=" & Format(txtHastaFecha, "mm-dd-yyyy") & "#"
    Form_frmProyectosTareasTabla.FilterOn = True
    Form_frmProyectosTareasTabla.OrderBy = "FechaRealizado DESC"
    Form_frmProyectosTareasTabla.OrderByOn = True

Otros artículos de Access 2007

• Como bloquear las macros en Access 2007