Efectivamente avellaneda, no me había fijado! muchisimas gracias. Aunque siento deciros que me sigue dando errores la maldita función.
Os pego todo el código porque por más que lo miro no le encuentro el error.
Tengo un botón que llama a una función.
Código:
Private Sub Comando158_Click()
UserName
End Sub
La función que es llamada por el botón es la siguiente, y es donde tengo el problema:
Código:
Public Function UserName() As String
Dim rs As Recordset
Dim con As Connection
Dim userWindows As String
userWindows = fOSUserName
Set rs = CreateObject("ADODB.RecordSet")
Set con = Application.CurrentDb.Connection
rs.OpenRecordset "SELECT txt_login, txt_password FROM uyc_multirriesgos_comercios WHERE txt_cxguser ='" & userWindows & "'", con, adOpenStatic, adLockReadOnly
Etiqueta96.Caption = rs.Fields(0)
Etiqueta97.Caption = rs.Fields(1)
End Function
fOSUserName es el resultado de una API de un Módulo que me devuelve el nombre de usuario de windows.
El error que me dá al ejecutar el botón es el siguiente:
Y la parte del código que me marca es:
Bueno, de verdad, daros muchas gracias por vuestro tiempo, no sabeis lo que me estais ayudando. Consideraros invitados a unas cañas por lo menos