Discussion :

[bugprog]

Bonjour,
Je cherche à récupérer le numéro de la semaine qui a été sélectionné dans le bouton datedebut_article mais j'obtiens erreur d'execution 3021:aucun enregistrement en cours.
Je ne trouve pas d'ou viens le problème. Tous les champs sont définis en type chaîne

Code :

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

1
2
3
4
5
6
7
8
9
sql = "SELECT qte_rupture.code_sem FROM qte_rupture WHERE qte_rupture.num_sem=" & Me.datedebut_article & " GROUP BY qte_rupture.code_sem;"
 
Set rst = db.OpenRecordset(sql)
 
Do Until rst.EOF
    rst.MoveNext
Loop
 
Me.sem_debut = rst(0).Value

Lorsque j'exécute la requête directement sur access, il n'y a pas de problème
Merci de me montrer le chemin à suivre

[jean-paul lepetit]

Salut,
pourquoi ne pas passer par un Dlookup ?

Code :

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

Me.sem_debut=DlookUp("Code_sem","qte_rupture","num_sem= '"& Me.datedebut_article & "'")

[bugprog]

j'ai retiré tout le code du recordset
MAIS, avec le dlookup j'ai une nouvelle erreur 3464:type de données incompatible dans l'expression du critère

[Invité]

Bonjour

num_sem

c'est du texte ou du numérique ?

Starec

[bugprog]

bonjour Starec
num_sem est de type date/Heure
je n'ai plus l'erreur en retirant les cotes du dlookup, mais il me renvoie une valeur null
Me.sem_debut=Null

[jean-paul lepetit]

Code :

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

Me.sem_debut=DlookUp("Code_sem","qte_rupture","num_sem= #"& Me.datedebut_article & "#")

[bugprog]

j'ai déjà essayé la valeur est également null
et je suis sur que je dois avoir une réponse
quelque complément:
la sélection de datedebut_article se fait dans une zone de liste modifiable, mais dans vba il récupère la bonne valeur sélectionnée (avec point d'arrêt pour vérifier)
j'ai mis le champ d'affichage sem_debut dans le même formulaire
et l'affichage se fait après le click de datedebut_article

Si ça vous renseigne...

[jean-paul lepetit]

le format de num_semaine et de datedebut_article sont identiques ?

[Mahefasoa]

Bonsoir à toutes et à tous,

(...)Je cherche à récupérer le numéro de la semaine qui a été sélectionné dans le bouton datedebut_article mais j'obtiens erreur d'execution 3021:aucun enregistrement en cours.
Je ne trouve pas d'ou viens le problème. Tous les champs sont définis en type chaîne

Code :

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

1
2
3
4
5
6
7
8
9
sql = "SELECT qte_rupture.code_sem FROM qte_rupture WHERE qte_rupture.num_sem=" & Me.datedebut_article & " GROUP BY qte_rupture.code_sem;"
 
Set rst = db.OpenRecordset(sql)
 
Do Until rst.EOF
    rst.MoveNext
Loop
 
Me.sem_debut = rst(0).Value

Lorsque j'exécute la requête directement sur access, il n'y a pas de problème
(...)

Je suis désolé de revenir sur la discussion d'origine car le fond de la question de bugprog n'a pas été traité.
Le message d'erreur est : aucun enregistrement en cours.
Je crois que la source de cette erreur tu voulais affecter à sem_debut le contenu du premier champ de l'enregistrement courant de l'objet rst.
Pourtant après Loop, le CURSOR (Current Set Of Row) ou le pointeur si tu veux se trouve à la fin du fichier (EOF=True). Voila pourquoi!
@+

[mout1234]

Cela devrait mieux marcher ainsi

Code VBA :

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

Me.sem_debut=DlookUp("Code_sem","qte_rupture","num_sem= #"& Format$(Me!datedebut_article,"mm/dd/yyyy")  & "#")

Non ?

[bugprog]

Merci à tous ce problème est résolu

J'ai une autre question, après ce formulaire de sélection (selection_article) j'ouvre un autre formulaire (rupture) par article dans lequel il y a un sous_formulaire qui se remplit avec une requête.
Mon problème c'est qu'à l'exécution il me demande d'entrer manuellement tous les champs sélectionnés auparavant qui correspondent à la requête.

Je ne trouve pas la solution par moi-même donc si vous avez des suggestion, prêtez-moi votre savoir, s'il vous plait