Trucos de código VBA para Access 2007
15761
post-template-default,single,single-post,postid-15761,single-format-standard,ajax_fade,page_not_loaded,,vertical_menu_enabled,qode-title-hidden,side_area_uncovered_from_content,qode-theme-ver-11.0,qode-theme-bridge,wpb-js-composer js-comp-ver-5.0.1,vc_responsive
Visual Basic for Applications

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("http://www.alexborras.com/")</pre>
<pre>

Devuelve el valor www.alexborras.com

Jugando con las sustituciones también podriamos eliminar las primeras www.

Otros artículos de Access 2007

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Cargando…
No Comments

Deja un comentario

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies