hi everyone
I'm new here and trust i can get helpful tips and precious support from u all.
I will try to hepl as far as I can too.
I am currently designing a db with msAccess. It's been some time since I last designed db's and programmed with VB - thus, numerous problems to solve!!
Well, I have one form which would not display any control at all on running it !!! ANyone know any property causing this?![]()
I am also using a login form to the applic. Since I am using a table of users, I need to check user input against records in my table with:
Dim oRs As ADODB.Recordset
Dim sConn As String
Dim sSQL As String
sConn = "Provider='SQLOLEDB';Data Source='MySqlServer';" & _
"Initial Catalog='inforGT';Integrated Security='SSPI';"
Set oRs = New ADODB.Recordset
oRs.CursorLocation = adUseClient
oRs.Open "tblUsers", objConn, adOpenStatic, adLockOptimistic, adCmdTable
oRs.Find ("' & Username.text & '")
oRs.Find ("' & Password.text & '")
If oRs.EOF Then
MsgBox "Check your username and password again.", vbOKOnly, "inforGT"
Exit Sub
Else
stDocName = "Menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
However, this is generating an error 3001 "Arguments are of the wrong type, out of range or in conflict..." with the line:
oRs.Open "tblUsers", objConn, adOpenStatic, adLockOptimistic, adCmdTable![]()
I have various ways to resolve this login featureI am not used with DAO and ADO.
If anyone has a complete sample code for a login form (plus, "Change my password" feature wud b just gr8!)- thanks


I am not used with DAO and ADO.
Reply With Quote


