Discussion :

[mcay]

bonjour,

Je suis en train de créer un programme, qui a accès à une base de données ACCESS. J'affiche les enregistrements dans des textbox, comme un formulaire.
Pour naviguer, entre mes enregistrements, je me suis créé des boutons de navigations, mais appremment je gère mal les navigations, vu que j'ai des messages d'erreur quand j'appuie sur le bouton Fin, pour aller à la dernière enregistrement. De plus je souhaiterais donner la possibilité de pouvoir ajouter des données.

voici le code pour la navigation :

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
 
Private Sub CmdNavig_Click(Index As Integer)
 
Select Case Index
    Case 0
        Rs.MoveFirst
        affichePersonne
        afficherDons
    Case 1
        If Rs.EOF = False Then
            Rs.MoveNext
        End If
        If Rs.EOF = False Then
            affichePersonne
            afficherDons
        End If
    Case 2
 
        'If Rs.BOF = False Then
            Rs.MovePrevious
            affichePersonne
            afficherDons
        'End If
    Case 3
        Rs.MoveLast
        affichePersonne
        afficherDons
End Select
 
End Sub

Si quelqu'un peut m'aider, merci d'avance.

Autre question qui n'a rien avoir, j'aimerais mettre le tag résolu dans un autre sujet, avant y avait le bouton en bas, mais maintenant y a pas, comment je mets le résolu ?

[malhivertman1]

comment je mets le résolu ?

Alors pour la tag résolu, tu as au dessus de ton message, un menu avec plusieurs boutons dont "outils de la discussion", il est dedans..

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
 
Private Sub CmdNavig_Click(Index As Integer)
 
Select Case Index
    Case 0
        Rs.MoveFirst
        affichePersonne
        afficherDons
    Case 1
        If Rs.EOF = False Then
            Rs.MoveNext
        End If
        If Rs.EOF = False Then
            affichePersonne
            afficherDons
        End If
    Case 2

dans ton case 1, tu fais 2 fois rs.eof = false, c'est inutile, soit tu t'es trompé et c'est un des 2 coups re.eof = true, soit un seul if suffit

[mcay]

en fait j'ai mis 2 fois, parce que justement dès le début j'avais une erreur.

[jacma]

Bonjour

Un petit tour dans "Initiation à l'accès aux données", accessible depuis la signature qui explique ligne à ligne la programmation des boutons de navigation. Et tu pourras rapidement mettre en oeuvre le bouton Résolu .

[mcay]

ok je regarde.

[mcay]

ok, donc j'ai testé en suivant ce pdf : http://jacma.developpez.com/premiers...cielinitdb.pdfhttp://jacma.developpez.com/premiers...cielinitdb.pdf lorsque je fais tout avec le dataContrôle, pas de problème. Maintenant en testant en codant, j'ai un débogage sur cette ligne :

Code :

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

Set bndDonateur.DataSource = rsDonateurs

, j'ai comme message d'erreur : "erreur d'exécution '91', Variable objet ou variable bloc with non définie".

Voici une partie de 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
 
Private Sub Form_Load()
 
Set Cn = New ADODB.Connection
 
Set rsDonateurs = New ADODB.Recordset
 
'chaine de connexion
strConnex = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & App.Path & "\association.mdb"
 
'requête
SQL = "select * from personne"
 
'ouverture de la connexion
Cn.Open strConnex
 
rsDonateurs.CursorLocation = adUseClient
 
'ouverture de la requête
rsDonateurs.Open SQL, Cn, adOpenDynamic, adLockOptimistic, adCmdText
 
'détermine la source pour le datacombo
Set cmbDonateurs.RowSource = rsDonateurs
 
cmbDonateurs.ListField = rsDonateurs.Fields(1).Name 'nom_personne
 
'For i = 0 To 5
'
'    txtDonateurs(i).DataSource = rsDonateurs
'    txtDonateurs(i).DataField = rsDonateurs.Fields(i).Name
'
'Next i
 
Set bndDonateur.DataSource = rsDonateurs
 
With bndDonateur
    .Add txtDonateurs(0), "Text", "nom_personne", , "nom"
    .Add txtDonateurs(1), "Text", "adresse_personne", , "adresse"
    .Add txtDonateurs(2), "Text", "cp_personne", , "cp"
    .Add txtDonateurs(3), "Text", "ville_personne", , "ville"
    .Add txtDonateurs(4), "Text", "tel_personne", , "tel"
    .Add txtDonateurs(5), "Text", "Remarques", , "remarques"
End With
 
'se positionne au 1er enrigistrement
'adoDonateurs.Recordset.MoveFirst
 
End Sub

Je définis mes variables au début de form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Option Explicit
 
Public Cn As ADODB.Connection
'cette variable pourra répondre aux événements déclenchés par la recordset
Private WithEvents rsDonateurs As ADODB.Recordset
 
Dim SQL As String
Dim strConnex As String
Dim i As Integer
Dim bndDonateur As BindingCollection

si quelqu'un peut m'éclairer s'il vous plait.

[mcay]

J'ai trouvé, c'est parce que j'ai oublié de mettre

Code :

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

Set bndDonateur = New BindingCollection

.