
28 Abr Trucos de código VBA para Access 2007
En este articulo quiero compartir contigo algunos trucos de código sobre Access 2007 que espero que te sean de utilidad en tus desarrollo de programas y aplicaciones con esta herramienta de Microsoft.
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
No Comments