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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
|
Sub LectureTable()
Dim DBS As New ADODB.Recordset
Dim f As String
Dim n As String
Dim l As String
Static a As Long
Static b As Long
Static c As Long
Static d As Long
'On Error GoTo Erreur
DBS.Open "Noyau", CurrentProject.Connection
Do Until DBS.EOF
Debug.Print DBS!Bloc_adresse
a = InStr(DBS("Bloc_adresse"), "")
Debug.Print "a: "; a
b = InStr(a + 1, DBS("Bloc_adresse"), "")
Debug.Print "b: "; b
If InStr(b + 1, DBS("Bloc_adresse"), "") > 0 Then
'c = InStr(b + 1, DBS("Bloc_adresse"), "")
'DBS("Form_Adr") = Left(DBS("Bloc_adresse"), a)
f = Left(DBS("Bloc_adresse"), a - 1)
Debug.Print "f = "; f
n = Mid(DBS("Bloc_adresse"), a + 1, b - 1 - a)
Debug.Print "n: "; n
c = InStr(b + 1, DBS("Bloc_adresse"), "")
Debug.Print "c: "; c
d = Len(DBS("Bloc_adresse"))
r = Mid(DBS("Bloc_adresse"), b + 1, c - b - 1)
Debug.Print "r: "; r
l = Right(DBS("Bloc_adresse"), d - c)
Debug.Print "l: "; l
Else
f = Left(DBS("Bloc_adresse"), a - 1)
Debug.Print "f = "; f
n = Mid(DBS("Bloc_adresse"), a + 1, b - 1 - a)
Debug.Print "n: "; n
d = Len(DBS("Bloc_adresse"))
Debug.Print "d: "; d
l = Right(DBS("Bloc_adresse"), d - b)
Debug.Print "l: "; l
End If
s = "UPDATE Noyau SET Noyau.Form_Adr = f, Noyau.Nom_Prénom_Adr = n, Noyau.Rue_Adr = r, Noyau.Localité_Adr = l"
DoCmd.RunSQL s
DBS.MoveNext
Loop
DBS.Close
Exit Sub
'Erreur:
'MsgBox "La Table en question n'a pas pu être trouvée!"
End Sub |
Partager