Discussion :

[dodo28]

Bonjour,

Pouvez vous m'aider sur mon problème?

j'ai un formulaire (FO_X) avec deux sous formulaires (SF_Y et SF_Z), ces deux sous formulaires ont le même champs père se trouvant sur FO_X.
Ce formulaire me sert pour une saisie direct dans deux tables distinctes, tous les champs sont en texte court.

j'ai rajouté un code qui me permet de préremplir certains champs dans les deux sous formulaire.

Ce code me provoque deux bugs très ennuyeux que je n'arrive pas à résoudre

le premier : format de base de données non reconnu, dans ce cas le fichier est irrécupérable. merci les sauvegardes
le deuxième : mise a jour impossible. la base de données ou l'objet est en lecture seul. Dans ce cas quand je veux enregistrer le premier bug(format de base de données non reconnu) apparait.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Dim Db As DAO.Database
Dim oRst As DAO.Recordset
Dim Mysql As String
Dim Compte As Integer
 
Dim I As Integer
Dim Resultat As String
Dim Matricule As String
 
Set Db = CurrentDb
 
With Me
 
Matricule = .Te_matricule
 
Mysql = " SELECT Table_GIC.BASE, Table_GIC.MATRICULE_EXCEL FROM Table_GIC " & _
" WHERE (((Table_GIC.BASE) = '" & Matricule & "') And  ((Table_GIC.MATRICULE_EXCEL) Like 'FA*'))" & _
" ORDER BY Table_GIC.MATRICULE_EXCEL DESC;"
 
Set oRst = Db.OpenRecordset(Mysql)
 
Compte = oRst.RecordCount
 
If Not oRst.EOF Then
 
    Resultat = oRst.Fields(1)
 
    I = 1
    For I = I To Compte
        Resultat = oRst.Fields(1)
        Forms.for_saisie_dem.Table_Bilan_sf.Form.Controls("MatFAI" & I).Value = Resultat
        .Refresh
        oRst.MoveNext
    Next I
 
End If
 
Mysql = " SELECT Table_GIC.BASE, Table_GIC.MATRICULE_EXCEL FROM Table_GIC " & _
" WHERE (((Table_GIC.BASE) = '" & Matricule & "') And  ((Table_GIC.MATRICULE_EXCEL) Like 'LI*'))" & _
" ORDER BY Table_GIC.MATRICULE_EXCEL DESC;"
 
Set oRst = Db.OpenRecordset(Mysql)
 
Compte = oRst.RecordCount
 
If Not oRst.EOF Then
 
    Resultat = oRst.Fields(1)
 
    I = 1
    For I = I To Compte
        Resultat = oRst.Fields(1)
        Forms.for_saisie_dem.Table_Bilan_sf.Form.Controls("MatLI" & I).Value = Resultat
        .Refresh
        oRst.MoveNext
    Next I
 
End If
 
oRst.Close
Db.Close
Set Db = Nothing
Set oRst = Nothing
 
End With

Ce code rempli bien les champs souhaités mais ou bout d'un certains temps j'ai les bugs décrits ci dessus.

Merci pour votre aide que je puisse comprendre mes erreurs.

[volsan]

Bonjour,

Regarde au niveau de la boucle for. Il serait plus judicieux d’initialiser ta variable i à 0 et de commencer ta boucle par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for i = 1 to compte
....
next i

[dodo28]

Merci
oui en effet
et tu crois que c'est cela qui provoque ces bugs?

[volsan]

Je pense que oui.
Après tu peux utiliser le débogueur afin de suivre pas à pas les résultats de tes variables et voir a quel moment sa plante et pourquoi sa plante