Discussion :

[B-CAB]

Bonjour,

Pour des raisons d'ergonomie et de sécurité j'ai développer un formulaire en mode continu permettant de modifier les enregistrements d'une table.
J'y ai ajouter quelques boutons de base (enregistrement précédent, suivant, rechercher, ajouter, supprimer, annuler et sauvegarder).

Parmi ces boutons seul le bouton sauvegarder me pause un souci. Premièrement je ne comprends pas très bien à quoi il sert... En faite ce que je voudrais c'est que l'utilisateur ne modifie pas directement la table et qu'il "sauvegarde" ses changements une fois ceux-ci terminés et vérifiés.

Comment faire ceci?

Merci d'avance...

[Manhexter]

A ta place je mettrais en place une table temporaire.
Lorsque ton utilisateur arrive sur le formulaire tu crées une table sosie de l'autre via un select * into par exemple et tu fais pointer tous les champs de ton formulaire sur cette table temporaire.
Comme ça ton utilisateur fais des modifications sur la temporaire. Lorsqu'il sauvegarde tu drop ta table d'origine et tu renome la temporaire pour qu'elle prenne son nom. S'il quitte le formulaire sans sauvegarde, tu as juste à dropp ta table temporaire.

D'après la description de ton problème, c'est ainsi que je procéderais.

[domibigoudi]

Bonjour,

Je travaille toujours avec les formulaires qui n'ont jamais comme source une table.

Pour l'encodage, au bouton "Ajouter", je vérifie les données et les ajoute avec des fonctions SQl "Insert Into........".

Pour effacer, fonctions SQl "Delete .... Where Critère".

Pour modifier, fonctions SQl "Update...."

Un exemple de code ci-dessous pour 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
Private Sub BtnEnregistrerMajorItemParCours_Click()
    If Nz([CboMajorItem], "") = "" Then MsgBox "Item vide", vbExclamation, "Ajout impossible": Exit Sub
 
    If Nz([TxtNombreBesoin], "") = "" Then MsgBox "Nombre vide", vbExclamation, "Ajout impossible": Exit Sub
 
    'si pas dans la liste alors ajouter
    If IsNull(DLookup("[MajorItem]", "T_CoursMItemMR", "[MajorItem]='" & [CboMajorItem] & "' and [Cours]='" & [CboCours] & "'")) Then
        'si valeur nulle alors pas dans la liste
        Rep = MsgBox("Ajouter " & [CboMajorItem] & " à la liste ?", vbYesNo + vbQuestion, "Ajout de données")
        If Rep <> 6 Then Exit Sub
        'ajouter à la liste
        TxtSQL = "Insert into T_CoursMItemMR (Cours,MajorItem,Nombre) values ('" & [CboCours] & "', '" & [CboMajorItem] & "','" & [TxtNombreBesoin] & "')"
        DoCmd.RunSQL TxtSQL
        DoCmd.Requery "LstMajorItemParCours"
        [CboMajorItem] = ""
        [TxtNombreBesoin] = ""
    Else
        MsgBox "Item déjà dans la liste", vbExclamation, "Ajout impossible"
    End If
End Sub

Pour les recherches, mes listes, combo,.. sont liées aux tables par source (query) et je place des textbox qui filtres mes listes...

Code :

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

Like "Textbox" & "*"

, il suffit de faire une requery et les données sont mises à jour.

Bonne journée.