Discussion :

[ataya]

Bonjour,

J'ai un formulaire F1, contenant un sous formulaire F2 et un bouton.

F2 est affiché sous forme de datasheet et contient deux colonnes, la premiere est une date la seconde un entier.
F2 est bounded, cad qu'il est lié a une requete, donc qu'il a un recorset lié.

ce que je souhaite faire c'est inserer un enregistremement dans F2.

donc dans mon code de clic sur le bouton j'ai un truc genre:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim F As Form
   Set F = Me.F2.Form
   Dim R As Recordset
   Set R = F.Recordset
   R.AddNew
    R(0) = Date
    R(1) = 1
    'R.Update 'si je ne met pas cette ligne le nouvel enregistrement n'est pas affiché

mon probleme est le suivant : je ne vois pas mon nouvel enregistrement sauf si je fais un update du recordset
or moi je souhaite que ce soit l'utilisateur qui confirme l'enregistrement


merci de votre aide

[6ril25]

Salut,

pour celà, tu dois faire un "espace" avec des champs qui vont simuler le datasheet. 2champs et un bouton "enregistrer" sur lequel tu vas faire un "INSERT", après confirmation, en VBA.

Suis-je assez clair?

[ataya]

suggere tu que j'ajoute deux text box dans lequel l'utilisateur va saisir les valeurs puis les enregistrer dans F2 ?

Si c'est ca, cette solution ne m'interesse pas pour diverses raison, ce que je veut faire c'est simuler une partie de la saisie manuelle d'un utilisateur dans un datasheet.

le deroulement normal, si tout est saisi a la main est le suivant:
1- l'utilisateur saisi les valeurs dans la ligne
2-en quittant la ligne on déclenche l'evenement update du recordset

ce que je souhaite faire c'est coder la partie 1 et "redonner la main" a access pour la partie 2

[6ril25]

alors utilise le rollback... parce que si tu saisis dans le datasheet, tu vas automatiquement enregistrer les valeurs dans ta table...

[ataya]

mon probleme n'est pas de gerer le moment ou les données sont enregistrées mais d'AFFICHER les donnees dans le datasheet.

lorsque l'utilisateur saisit manullement les données ne sont pas enregistrées dès que l'utilisateur quitte la premiere colonne mais lorsqu'il quitte la ligne: c'est ce que je veut faire

[6ril25]

Pas clair tout ça:
l'enregistrement est saisi dans F1 ou F2?

[ataya]

toutes mes excuses si je n'ai pas été suffisament clair.

ce que je souhaite faire c'est inserer un enregistremement dans F2.

en meme temps plus clair que ca ... je vois pas comment je peut faire

mais bon on peut encore simplifier l'ennoncé du probleme:
imaginons que je n'ai qu'un seul formulaire F affiché sous forme de datasheet.

Dans l'evenement load du formulaire je commence a remplir mon nouvel enregistrement:

Code :

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

1
2
3
4
5
6
 
   Dim R As Recordset
   Set R = F.Recordset
   R.AddNew
    R(0) = Date
    R(1) = 1

donc a cet instant les valeurs sont dans le recordset.
ce que je souhaite faire c'est afficher ces valeurs qui n'on pas encore été updatées.

EDIT:
Bon aller je me fait un petit auto reply pour ceux que ca interesse et ceux qui on participé et que je remercie

en fait il ne faut pas essayer de mettre les données dans le recordest si on veut laisser access gèrer l'update.

la solution est donc :

Code :

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

1
2
3
4
5
6
 
Dim R As Recordset
Set R = F.Recordset
R.AddNew
F.controls("nomDuchampDate").value = date
F.controls("nomDuchampEntier").value = 1