Discussion :

[Pouyou le caribou]

salut a tous !

dans le cadre de mon bts je dois développer une appli sous access en vba.

j'aimerais lorque je suis sur le 1er enregistrement, bloquer le bouton précédent et bloquer le suivant lorsque je suis au dernier...
je vous montre mon code :

dans le fac g trouvé ce qui me semble etre la solution mais access me dit toujours "impossible d'atteindre l'enregistrement recquis"... je ne sais pas comment faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function bouton_prec()
 
DoCmd.GoToRecord , , acPrevious
 
If formulaire.CurrentRecord > 1 Then
 formulaire!BoutonPrécédent.Enabled = True
Else
  formulaire!BoutonPrécédent.Enabled = False
 
End if
 
End Function

je vous remercie d'avance...

[DurDur]

salut,

J'ai cherché longtemps pour moi, et en comparant ton code avec le mien, je pense que la ligne:

Code :

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

docmd.gotorecord ,, acprevious

doit être à l'intérieur de "IF"

[Pouyou le caribou]

bin la je viens d'essayer et ca me dit : 'objet recquis' et le deboger me pointe sur ma 1ere ligne avec le if...


je vous montre le formulaire qui utilise ce bouton peut etre ya t il un problème ailleurs :

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
67
68
69
70
71
72
 
Sub creation_form_livre()
 
Dim formulaire As Form
Dim ctrl As Control  'pour les boutons
Dim nom_form
Dim bouton_suiv As New Control
Dim bouton_prec As New Control
Dim bouton_retour As New Control
 
 
 
Set formulaire = CreateForm(, "Livre") 'création du formulaire
 
DoCmd.Restore
formulaire.Caption = "LES LIVRES" 'titre du formulaire
formulaire.RecordSource = "ALINE_LIVRE"  ' appel de la table
 
'déclaration des champs
 
Set ctrl = CreateControl(formulaire.Name, acLabel, acDetail, , "Code livre", 100, 500, 1500, 1500)
Set ctrl = CreateControl(formulaire.Name, acTextBox, acDetail, , "code_l", 3000, 500, 800, 300)
ctrl.Locked = True
 
Set ctrl = CreateControl(formulaire.Name, acLabel, acDetail, , "Titre", 100, 1000, 1500, 1500)
Set ctrl = CreateControl(formulaire.Name, acTextBox, acDetail, , "titre", 3000, 1000, 3000, 300)
ctrl.Locked = True
 
Set ctrl = CreateControl(formulaire.Name, acLabel, acDetail, , "Description", 100, 1500, 1500, 1500)
Set ctrl = CreateControl(formulaire.Name, acTextBox, acDetail, , "description", 3000, 1500, 6000, 3000)
ctrl.Locked = True
 
Set bouton_prec = CreateControl(formulaire.Name, acCommandButton, acDetail, , , 3000, 5000, 1000, 500)
bouton_prec.Properties("caption") = "Précédent"
bouton_prec.OnClick = "=bouton_prec()"
 
 
Set bouton_suiv = CreateControl(formulaire.Name, acCommandButton, acDetail, , , 5000, 5000, 1000, 500)
bouton_suiv.Properties("caption") = "Suivant"
bouton_suiv.OnClick = "=bouton_suiv()"
 
Set bouton_retour = CreateControl(formulaire.Name, acCommandButton, acDetail, , , 7000, 5000, 1000, 500)
bouton_retour.Properties("caption") = "RETOUR"
bouton_retour.OnClick = "=retour_consultation()"
 
 
 
nom_form = formulaire.Name 'prend le nom de mon formulaire
DoCmd.Close acForm, formulaire.Name, acSaveYes 'save automatique du fomulaire
DoCmd.Rename "form_livre", acForm, nom_form 'renomme le form
DoCmd.OpenForm ("form_livre") 'reouvre le form
 
 
 
 
End Sub
 
 
 
 
 
Function bouton_prec()
 
If formulaire.CurrentRecord > 1 Then
 formulaire!bouton_prec.Enabled = True
 DoCmd.GoToRecord , , acPrevious
Else
  formulaire!bouton_prec.Enabled = False
 
End If
 
End Function

g aussi essayé de changer formulaire par form_livre mais ce la ne fonctionne pas non plus.

je tiens a préciser que je suis loin d'être experte en vba : g commencé ya 2 jours...

[pumpkin]

Dans mon appli j'ai résolu le pbm en utilisant le n° du code erreur :

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 cmd_precedent_Click()
On Error GoTo onerror_Err
 
            DoCmd.GoToRecord , , acPrevious
 
onerror_Exit:
    Exit Sub
onerror_Err:
    If Err.Number = 2105 Then
    Resume onerror_Exit
    Else
    MsgBox Error$
    Resume onerror_Exit
    End If
 
End Sub

[Pouyou le caribou]

en effet lorsque je clic il me sort une grosse fenetre avec l'erreur puisquil n'y a pas de précédent mais au moins il ne me ferme pas mon formulaire et ne m'envoie pas le debug !!

je vais faire comme ca pour le suivant et tous mes formulaires !!!

vraiment MERCII !!!

[DurDur]

et pour la grosse fenêtre, tu peux utiliser le code

Code :

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

docmd.setwarnings false

et créer un msgbox de ton cru pazr ex: "DEBUT DE FICHIER"

salut