Discussion :

[xanthos1348]

Bonjour,

J'ai parcouru la FAQ mais je ne trouve pas mon bonheur.

J'ai un formulaire principal et un sous formulaire (sans boîte de contrôles) affiché en feuille de données.

Sur un mon formulaire principal j'ai un bouton qui permet d'ajouter un record dans mon sous formulaire mais aussi de mettre le champ date à la date du jour ... Ca marche.

ON CLICK :

Forms!frmPersonne!subformDOSSIER.Form.Recordset.AddNew
Forms!frmPersonne!subformDOSSIER.Form!Creation.Value = Date

Cependant, je voudrais donner le focus au champ suivant dans le sous formulaire affiché en datasheet et là ça ne marche pas ...

Forms!frmPersonne!subformDOSSIER.Form!N°.SetFocus = True

N° étant le champ suivant ... L'erreur renvoyée est "Erreur 438 - Propriété ou méthode non géree par cet objet"

[xanthos1348]

Je pense que le problème vient de cette ligne de code :

Forms!frmPersonne!subformDOSSIER.Form.Recordset.AddNew


Qui ne donne pas le focus au premier champ du sous formulaire en mode datasheet ...

Cette ligne de code que j'ai affectée à un bouton sensé remplacer le controle affiché en standard au bas du sous formulaire (Play avec Etoile), ne réalise pas la même opération ...

L'objetctif étant toujours de remplacer ce petit bouton de création de nouveau record ...

Merci

[User]

Salut,

et les balise code ???

essaie cela:

Code :

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

Forms!frmPersonne!subformDOSSIER.Form!N°.SetFocus

@+

[xanthos1348]

Et non malheureusement ....

Mais c'est déjà au niveau de ce code ...

Forms!frmPersonne!subformDOSSIER.Form.Recordset.AddNew

... que ça ne marche pas

En effet, je n'obtiens pas le même résultat qu'en cliquant sur le bouton de contrôle (Play Etoile) affiché par défaut en bas du sous formualaire ... Ce dernier positionne le pointeur dans le 1er champ du nouveau record et on peut démarrer l'encodage ... Alors qu'ici non !

J'ai alors cherché avec un setfocus mais en vain ...

L'objectif étant de remplir le premier champ date avec la date du jour et de se positionner sur le champ suivant ...

Ca marche très bien dans le formulaire principal mais pas quand ce bouton agit sur un sous formulaire ...

[User]

Essaye un truc comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
Forms!frmPersonne!subformDOSSIER.Form.RecordsetClone.AddNew 
Forms!frmPersonne!subformDOSSIER.Form.RecordsetClone!Creation = Date 
Forms!frmPersonne!subformDOSSIER.Form.RecordsetClone.UpDate
 
Forms!frmPersonne!subformDOSSIER.Form!N°.SetFocus 
 
Forms!frmPersonne!subformDOSSIER.Form.RecordsetClone.MoveLast
 
Forms!frmPersonne!subformDOSSIER.Form.Bookmark = Forms!frmPersonne!subformDOSSIER.Form.RecordsetClone.Bookmark

@+

[xanthos1348]

Bien tenté mais ça bloque au niveau de cette ligne :

Forms!frmPersonne!subformDOSSIER.Form.RecordsetClone!Creation = Date

J'ai essayé en modifiant la syntaxe mais il n'accède pas à ce champ "Creation" qui existe pourtant bien dans mon subform ...

[User]

Il faut que le champ creation existe dans le recordset de ton sousformDossier donc dans la table source de ton sousformDossier !!!

Verifie

[Alexandre Sahli]

bonjour

je pense que tu devrais essayer (sans garantie)

Code :

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

1
2
3
4
5
6
7
 
 
Forms!frmPersonne!subformDOSSIER.setfocus
DoCmd.GoToRecord , , acNewRec
Forms!frmPersonne!subformDOSSIER.Form!Creation.Value = date()
 
Forms!frmPersonne!subformDOSSIER!N°.setfocus

j'ai tester çà marche nickel
A+

[xanthos1348]

Meuuuurci !