1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Option Compare Database
Public Function TacheBis() As String
Dim Editialis As Database, DSociete As DAO.Recordset
Dim resultat, TxtDate, TxtHeure, TxtSoc, TxtType, TxtCom As String
Set Editialis = Application.CurrentDb()
Dim TblTemp As DAO.Recordset
Set TblTemp = Editialis.OpenRecordset("Temp2", dbOpenDynaset)
Set DSociete = Editialis.OpenRecordset("Select NomDuProspectHA,Date, Heure, Type, NomCommercial,Nom,Prenom From HistoOpti")
DSociete.MoveFirst
Do Until DSociete.EOF
TxtSoc = DSociete("NomDuProspectHA")
TxtDate = DSociete("Date")
TxtHeure = DSociete("Heure")
TxtType = DSociete("Type")
TxtCom = DSociete("NomCommercial")
TxtNom = DSociete("Nom")
TxtPrenom = DSociete("Prenom")
'Concatene les différents enregistrement
resultat = ""
resultat = DSociete.Fields(1).Value & " " & DSociete.Fields(2).Value & " " & DSociete.Fields(3).Value & " " & DSociete.Fields(4).Value
DSociete.MoveNext
TblTemp.AddNew
TblTemp("Societe") = TxtSoc
TblTemp("Nom") = TxtNom
TblTemp("Prenom") = TxtPrenom
TblTemp("Note") = resultat
TblTemp.Update
Loop
'libere la mémoire
Set DSociete = Nothing
End Function |
Partager