Re: LOGIN email passwords

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Actually!

Any suggestions on how to get the the rst! results back to the users
inbox???

Private Sub Command32_Click()

Dim SQLString As String



Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

DoCmd.SetWarnings False

Set cnn = CurrentProject.Connection
Set cmd.ActiveConnection = cnn

SQLString = "SELECT users.Login, users.Password "
SQLString = SQLString & "From users "
SQLString = SQLString & "WHERE [Login] = """ & Me![Login] & """;"

cmd.CommandText = SQLString

rst.CursorLocation = adUseClient
rst.Open cmd, , adOpenKeyset, adLockOptimistic

'''' MsgBox (rst.GetString)

If rst.RecordCount > 0 Then
DoCmd.SendObject


End If

End Sub

.

Relevant Pages