Bonsoir tout le monde
 
Je vous remercie de m'acceuillir sur ce forum.
 
Je suis débutant dans le dévellopement de base de données avec Visual Basic,j'ai lu des tutoraux qui
 
J'ai créé un table qui s'appelle Email.
 
J'ai mis 6 champs (Destinataire,id,messag,date,objet,expéditeur,heure).
 
J'ai réalisée 2 form une qui enregistre et l'autre qui visualise les données enregitrés.
 
L'orsque j'ouvre la form qui visualise les données, il ya un message d'erreur,"Impossible de trouver l'objet dans la collection correspondant au nom ou à la référance ordinale demandé", en selectionnant la premiere ligne ReadRecord.
 
Je ne comprend pas ce message d'erreur.
 
Option Explicit
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstx As New ADODB.Command
 
Public serveur As String
Private nextSend As Boolean
 
 
Private Sub Form_Load()
 
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
 
 
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoyé.mdb"
cnx.Open
 
 
rst.CursorLocation = adUseClient
 
rst.CursorType = adOpenDynamic
 
rst.LockType = adLockOptimistic
 
ReadRecord
 
rst.Source = "select Text2 , Text1 , Text3 ,Text4,Text5,Text6 from EMAIL destinataire, objet,messag,date,heure,id;"
 
End Sub
 
Private Sub ReadRecord()
 
Text1.Text = GetValue(rst!messag)
Text2.Text = GetValue(rst!destinataire)
Text3.Text = GetValue(rst!objet)
Text4.Text = GetValue(rst!id)
Text5.Text = GetValue(rst!date)
Text6.Text = GetValue(rst!heure)
 
 
 
End Sub
 
Private Function GetValue(fld As String) As String
 
If IsNull(fld) Then
    GetValue = ""
     
    Else
    GetValue = fld
  End If
     
 
End Function
 
Private Sub Form_Unload(Cancel As Integer)
 
cnx.Close
 
End Sub
 
Que me conseillez vous?
 
Pourriez vous me dire où puis je trouver des livres qui traite bien ce sujet?
 
Mercie
 
Cordiallement
 
A bientôt