Pourquoi mon curseur s'arrete à 5???Résolu

Question

Voila une partie de mon algo.....

numero = 1

        While Not curseur_employe.EOF

            MsgBox "le nm&#233;ro en cours est le : " & numero

            If numero = curseur_employe!EMP_num Then

                MsgBox curseur_employe!EMP_num

                numero = numero + 1

            End If

            curseur_employe.MoveNext

        Wend



le probl&#232;me est que ma table EMPLOYE est rempli jusqu'au num&#233;ro 9.. et
lors de la lecture du curseur celui -ci sarrete &#224; 5 comme s'i lne
prennait pas en compte le mvenext car il me r&#233;p&#232;te alor 4 fois le
num&#233;ro 5....   Et quand je veu
donc inscrire un aute employ&#233; par la suite il me met risk de doublon
(ce qui est normal vu que la ...place est prise...

Aidez moi...

TanK

cs_ITALIA · Accepted Answer

Private Sub cmd_ok_insert_employe_click()

Dim BDconges As Database 
Dim curseur_employe As DAO.Recordset  
Dim numero As Integer
If txt_nom "" Or txt_prenom "" Or txt_lieu_action = "" Then
   MsgBox "Veuillez remplir tout les champs vides"
   Exit Sub
End If

Set BDconges = CurrentDb     
For i=1 to 999999 Then   Set curseur_employe BDconges.OpenRecordset("SELECT * FROM EMPLOYE WHERE EMP_num" & i &"")      
    If curseur_employe.RecordCount=0 Then
      Numero=i
      Exit For
    End If
Next
'Insertion des propri&#233;t&#233; du formulaire dans le curseur**
curseur_employe.AddNew
curseur_employe!EMP_num = numero
curseur_employe!EMP_nom = txt_nom.Value
curseur_employe!EMP_prenom = txt_prenom.Value
curseur_employe!LIE_num = txt_lieu_action.Value
curseur_employe.Update
change_form ("menu_gestion_conges")  

Set curseur_employe=Nothing
Set BDconges=Nothing

End Sub

It@li@

cs_ITALIA · Answer

numero = 1
Do Until curseur_employe.EOF
   MsgBox "le num&#233;ro en cours est le : " & numero
   If numero = curseur_employe!EMP_num Then
      MsgBox curseur_employe!EMP_num
  End If
  numero = numero + 1
   curseur_employe.MoveNext
Loop

It@li@

TanK__1001101 · Answer

merci beaucoup italia mais pourquoi ca marchait pas et pourquoi il ne
lit pas le curseur de la 5&#232;me place (mais continu qd meme avec ta
m&#233;thode)

Merci

cs_ITALIA · Answer

Dans ton code il continu&#233; mais la variable numero n'&#233;tait pas incr&#233;ment&#233; pour 4 Enregistrements car il ne pass&#233; pas par la boucle.
Car pour 4 de tes enregistrements le  numero <>curseur_employe!EMP_num
 
Si c'est OK coches reponse accept&#233;e

It@li@

TanK__1001101 · Answer

je compren pas car de 1 &#224; 9

numero = curseur_employe!EMP_num

et il saretai qd meme peut tu etre plus clair please?

TanK__1001101 · Answer

et dsl&#233; ms ta m&#233;thode en me convien pas car il se peut (suite &#224; un licenciement ) que un employ&#233; ne soit plus dans la table.

ex: 

-table rempli de 1&#224;10

-le num&#233;ro 7est vir&#233;



Lors de linsertion dun autre employ&#233;,avec ta m&#233;thode il sarrete &#224; 10 or
10 est d&#233;j&#224; occup&#233;.. je voudrai kil remplisse la case du num&#233;ro 7

Merci davance

cs_ITALIA · Answer

Donnes moi ta requete de selection et les valeurs de curseur_employe!EMP_num dans l'ordre ou elles apparaissent.

It@li@

cs_ITALIA · Answer

tu veux faire quoi exactement avec ce morceau de code ?

It@li@

TanK__1001101 · Answer

voici toute la proc&#233;dure:

Private Sub cmd_ok_insert_employe_click()

    Dim BDconges As Database   

    Set BDconges = CurrentDb     

    Dim curseur_employe As DAO.Recordset 

    Set curseur_employe = BDconges.OpenRecordset("EMPLOYE")      

    Dim numero As Integer

    

    '**V&#233;rifie si tout les champs sont remplis**

    If txt_nom "" Or txt_prenom "" Or txt_lieu_action = "" Then

        MsgBox "Veuillez remplir tout les champs vides"

    Else

        numero = 1

        While Not curseur_employe.EOF

            If numero = curseur_employe!EMP_num Then

                numero = numero + 1

                curseur_employe.MoveNext

            Else

               
'**Insertion des propri&#233;t&#233; du formulaire dans le curseur**

                curseur_employe.AddNew

                curseur_employe!EMP_num = numero

               
curseur_employe!EMP_nom = txt_nom.Value

               
curseur_employe!EMP_prenom = txt_prenom.Value

               
curseur_employe!LIE_num = txt_lieu_action.Value

                curseur_employe.Update

            End If

        Wend

        change_form ("menu_gestion_conges")  

   End If

    curseur_employe.Close             

    BDconges.Close   

End Sub



quand aux valeur du curseur elle apparaiseent dans lordre croissant : 1,2,3.....

jesp&#232;re que t upourra maider...

TanK

TanK__1001101 · Answer

je veu kil recherche un num&#233;r ovide dans la table il kil la compl&#232;te..
sil ny en a pas c'est le dernier num&#233;ro kil doit compl&#233;ter....

TanK

cs_ITALIA · Answer

tu veux qu'il prenne le premier num&#233;ro vide oubien le plux grand ?

It@li@

TanK__1001101 · Answer

je veu kil prenne le premier num&#233;ro vide (en partan de 1)..... et le remplisee par la suite

TanK

TanK__1001101 · Answer

OK c bon... un peu compliker pour pa gd chose ms bon si ya po lchoix ya po lchoix!!!!!!



merci italia de ton aide

@+

TanK

cs_ITALIA · Answer

Effectivement &#231;a fait un peu de code pour pas grand chose...mais pourquoi charches-tu &#224; "BOUCHER LES TROUS" ?

It@li@

Pourquoi mon curseur s'arrete à 5???

14 réponses

Discussions similaires