Discussion :

[Tazzou]

Bonjour à tous.

Sur un formulaire, j'ai un champ CodeBarre dont la perte de focus ouvre le formulaire F_Destockage_CB en fenêtre modale.

A l'ouverture de F_Destockage_CB, j'extraie les données du champ CodeBarre et je souhaiterai que mon curseur se place dans le champ DateDestockage.

Pour cela :

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
If CurrentProject.AllForms!F_Destockage.IsLoaded Then
   If Not IsNull(Forms!F_Destockage!CodeBarre) Then
      Me.Destockage_CB_CodeBarre = Forms!F_Destockage!CodeBarre
      Me.Destockage_CB_Lot = Eclatage(Me.Destockage_CB_CodeBarre, 1)
      Me.Destockage_CB_Peremption = Format(Left(Eclatage([Destockage_CB_CodeBarre], 2), 2) & "/" & Mid(Eclatage([Destockage_CB_CodeBarre], 2), 3, 2) & "/" & Right(Eclatage([Destockage_CB_CodeBarre], 2), 4), "short date")
      Me.Destockage_CB_Entree = Format(Left(Eclatage([Destockage_CB_CodeBarre], 3), 2) & "/" & Mid(Eclatage([Destockage_CB_CodeBarre], 3), 3, 2) & "/" & Right(Eclatage([Destockage_CB_CodeBarre], 3), 4), "short date")
      Me.SF_Destockage_CB_StockTotal.Requery
      Me.Destockage_CB_Compte = Me.SF_Destockage_CB_Stock.Form.Recordset.RecordCount
      Me.Destockage_CB_DateDestockage.SetFocus
   Else
      Me.Destockage_CB_CodeBarre.SetFocus
   End If
Else
   Me.Destockage_CB_CodeBarre.SetFocus
End If

MAIS à l'ouverture, j'ai le message qu'il est impossible d'activer Destockage_CB_DateDestockage alors que le champ est actif et pas verrouillé.

Merci de votre aide.

[nico84]

Bonjour,

Est-ce que cela marche mieux avec

Code :

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

DoCmd.GoToControl "MonChamp"

[Tazzou]

Non meme message d'erreur...

[nico84]

Si F_Destockage_CB est une fenêtre modale on ne peut rien activer en dehors de cette fenêtre...

[Tazzou]

En fait j'ai desactivé et verrouillé les champs que précèdent mon champ "DateDestockage" ainsi le curseur va automatiquement dans mon champ "DateDestockage"

Merci pour l'attention apportée.