Discussion :

[jrogron]

Bonjour,

Je revient concernant un de mes problème précédent.
Je possède un bouton de commande "enregistrer" sur un formulaire qui doit me permettre d'enregistrer (normal quoi lol) une nouvelle fiche quand je saisie une nouvelle entreprise. L'action de ce bouton est simple. Il a pour but de simplement mettre mon formulaire en mode lecture seul étant donné que les données s'enregistrent automatiquement.
Quand je clic sur mon bouton "ajout" (pour pouvoir ajouter une nouvelle société) alors mon compteur en bas m'indique 1/1 (pourquoi pas cela ne me dérange pas) mais mon souci c'est qu'une fois l'enregistrement réalisé alors je clic sur mon bouton "enregistrer" qui me remet en mode lecture seul et c'est là que je me retrouve avec 2 problèmes:

1- Mon compteur en bas reste à 1/1 et je ne peux plus regarder les autres sociétés qui sont enregistrées.
2- Si je n'enregistre rien (on imagine que j'ai cliqué sans faire exprès sur "ajouter", alors je ne peux pas sortir de ce mode (enregistremen). Je suis obligé de saisr pour effacer après.

Voici le code de ma commande "ajouter":

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
 
Private Sub Commande885_Click()
On Error GoTo Err_Commande885_Click
 
    Me.AllowAdditions = True
    Me.AllowEdits = True
    Me.DataEntry = True
    With Me.Sous_Formulaire_Products.Form
        .AllowAdditions = True
        .AllowEdits = True
        .DataEntry = True
    End With
 
 
Exit_Commande885_Click:
    Exit Sub
 
Err_Commande885_Click:
    MsgBox Err.Description
    Resume Exit_Commande885_Click
 
End Sub

et celui de ma commande "enregistrer":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande887_Click()
On Error GoTo Err_Commande887_Click
 
Me.AllowEdits = False
 
Exit_Commande887_Click:
    Exit Sub
 
Err_Commande887_Click:
    MsgBox Err.Description
    Resume Exit_Commande887_Click
 
End Sub

Merci d'avance pour vos réponses. Je suis sur la fin de mon projet et je me retrouve avec plein de petits problèmes à résoudre (le plus difficile je pense) et je débute donc je rame trop.

Jocelyn

[Macno]

Salut,

Me.DataEntry = True

Cela signifie que tu ne peux que ajouter des données au formulaire et donc tu ne peux pas consulter d'autres fiches

[loufab]

Voir ton post précédent.

http://www.developpez.net/forums/sho...d.php?t=194271


Cordialement,

[jrogron]

C'était simple voici ma solution:

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
Private Sub Commande887_Click()
On Error GoTo Err_Commande887_Click
 
Me.AllowAdditions = False
Me.AllowEdits = False
Me.DataEntry = False
 
Exit_Commande887_Click:
    Exit Sub
 
Err_Commande887_Click:
    MsgBox Err.Description
    Resume Exit_Commande887_Click
 
End Sub

J'ai simplement changer le code de ma commande "enregistrer"

Jocelyn