Bonjour voici le code :
il importe les données contenu dans un mail : login, password
et j execute une requete sur une table Authentification qui contient tout les login et mot de passe avec comme parametre les données extraites du mails
Si une ligne dans la requete c'est que la personne est bien identifié le probleme est que la fonction qui compte les enregistrement de la requete ne fonctionne pas
j'ai essayer un sql.execute suivi d'un sql.RecordAffected mais marche pas il me renvoi tjrs 0
j ai regardé d'autres sources sur Vbfrance et j ai vu RecordCount , j ai essayer de l'implementer mais marche pas alors Please Help Me
Public Function Authentification()
On Error Resume Next
Dim OutApp As New Outlook.Application
Dim Space As Outlook.NameSpace
Dim MailRecu As Outlook.MAPIFolder
Dim Rdv As Variant
Dim Nbe
Dim iB As Integer
Dim logins As String
Dim passwords As String
Dim chSQL As String
Dim chSQL2 As String
Dim NbEnreg As Long
Dim Tom As New Recordset
'Ouvre la base en cours d'execution
Set db = CurrentDb()
'Création d'un nouveau Recordset qui va contenir tous les enregistrement
'de la table Temp
Set Trav1 = db.OpenRecordset("Temp", dbOpenTable)
Set Space = OutApp.GetNamespace("MAPI")
'MailRecu va contenir tous les mails qu'il y a dans Inbox
Set MailRecu = Space.GetDefaultFolder(olFolderInbox)
'msgbox calendar.Items.Count
'On compte combien il y a de mail et pour chaque MailItem on commence la phase
'd'identification
'For iB = 1 To MailRecu.Items.Count
iB = 1
Set Rdv = MailRecu.Items(iB)
'Recuperation des champs du mail
logins = Rdv.Subject
'passwords = Rdv.Body
passwords = "pouette"
'creation de la requete d'ajout de table
chSQL = "SELECT Authentification.login, Authentification.password FROM Authentification WHERE Authentification.login='" & logins & "'"
'AND Authentification.password='" & passwords & "';"
Set sql1 = db.CreateQueryDef("Authentifications", chSQL)
'Execution de la requete
sql1.Execute
'Pour compter le nombre d'enregistrement dans la table
chSQL2 = "SELECT count(*) AS NBLIGNE FROM Authentifications"
Tom.Open chSQL2
If Tom!NBLIGNE = 1 Then
MsgBox "c gagné"
Else
MsgBox "dommage"
End If
'Nbe = Nbe + 1
'Next iB
OutApp.Quit
db.Close
MsgBox Nbe & "authentification reussie"
End Function