problème lors de la génération du code

Question

Bonjours à tous, je fais un programme, je genere mon numero jusqu'à 55. Arrivée au 55ème on dit qu'il ya doublon. Je comprend rien. J'utilise ACCESS 2003 et c'es en VISUAL BASIC 6.0.
Merci de m'aidé

Merci

cs_bultez · Answer

Bonjour, cela aurait été probablement plus efficace de poser la question sur VBFrance.com, mais à priori, je dirais qu'il y a une erreur à la ligne 89.

Cordialement Bul [mon Site] [M'écrire]

drikce06 · Answer

Salut,

For i=1 to 55
msgbox(i)
next

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jmfmarques · Answer

Chépamoha !


Ne s'agirait-il pas d'une clef ? (et comment a-t-elle été définie ?)


1) poster là où il convient de le faire
2) être précis, tant par politesse que par souci d'efficacité.

cs_djimson · Answer

ok je verifie la ligne. merci

Merci

cs_Bidou · Answer

Déplacé sur vbfrance !
















<hr size="2" />



-Blog-

cs_Bidou · Answer

Tu vérifies quoi, la ligne 89 proposée par bultez?
lol.

<hr size="2" />-Blog-

cs_bultez · Answer

la ligne 89 ! c'est ce que m'a dit ma et donc, moi, j'en suis sûr.

Bul [mon Site] [M'écrire]

drikce06 · Answer

Salut à tous, CS devrai se reconvertir dans la voyance!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_djimson · Answer

franchement j ne retrouve pas cette lign dans mon code puisque mon code comporte moins de 45 lignes. j compren vraimen pa. j suis debutan

drikce06 · Answer

mdr! mets le code que tu as explique ce que tu veux faire! Désolé mais nous ne sommes pas encore devin!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_djimson · Answer

Ok je veux juste faire incrementer mes clefs a cahque fois que je clique sur le bouton nouveau. Au debut ca marche mais j'attein un certain nombre de données dans ma base (55) ca n'incremente plus cad que ca reste sur le 55ème au lieu de passer au 56ème VOICI LE CODE private sub nouveau_click() Dim nbenr As String Dim ok As Long Call activer_txt Call desactiver nbenr = rscalcul.RecordCount 'nbenr = nbenr - 1 If nbenr > 0 Then rscalcul.MoveLast If nbenr < 10 Then ok = Right(rscalcul![noagt], 1) Else If nbenr >= 10 And nbenr < 100 Then ok = Right(rscalcul![noagt], 2) Else If nbenr >= 100 And nbenr < 1000 Then ok = Right(rscalcul![noagt], 2) Else If nbenr >= 1000 And nbenr < 10000 Then ok = Right(rscalcul![noagt], 4) Else If nbenr >= 10000 Then ok = Right(rscalcul![noagt], 5) End If End If End If End If End If End If nb = Val(ok) + 1 numsalaire.Text = "Sal_" & Str(nb) rscalcul.AddNew numfiche.Text = "Fich_" & Str(nb) rsfiche.AddNew end sub NB: Je veux généré 2 numero en meme temps. Un pour le calcul et l'autre pour la fiche. J'ai aussi essaiyé celui ci mais idem. rscalcul.update rscalcul.MoveLast permet la numerotation automatique des code d nouvnum = Trim(Str(rscalcul.RecordCount + 1)) numsalaire = Left("000000", 4 - Len(nouvnum)) + nouvnum datefiche = date rscalcul.AddNew 'ajout des valeurs a l'enregistrement rsfiche.update rsfiche.MoveLast nouvnumf = Trim(Str(rsfiche.RecordCount + 1)) numfiche = Left("000000", 4 - Len(nouvnumf)) + nouvnumf txtdatepmt = date rsfiche.AddNew

jmfmarques · Answer

Et quand je pense qu'on peut définir une clef à incrémentation automatique ...
J'en pleurerais

cs_djimson · Answer

ca cè vrai amis seulement je veux que la clé qui se etrouve dans ma table calcul migre vers la table fiche. c'est ce qui m'a poussé à passé de la sorte.
Ne m'en vouler pas, j'ai bien precisé que je suis novice et je cherche à comprendre et apprendre. Explique moi dc comment faire

cs_MPi · Answer

Je ne suis pas certain de ce que tu veux faire exactement, mais si tu veux incrémenter le dernier numéro d'enregistrement de 1, il te suffirait de faire une requête SQL Order by Numéro, faire un Movelast et incrémenter le numéro trouvé. En regardant ton premier code, je ne vois pas à quoi servent les conditions >1 <=10 >10 <=100 ...................... Pour le 2e code, je ne vois pas à quoi sert de lire la gauche de "000000" Que ce soit 1 ou 2 ou 3...caractères, tu auras 0 comme résultat, il me semble... Voici comment je procéderais (avec DAO): Set Rs = Db.OpenRecordset("Select MonNumero from MaTable Order by MonNumero") Rs.Movelast MonNouveauNumero = Rs!MonNumero + 1 Rs.Close MPi

cs_djimson · Answer

ok merci bcp ca marche.

Problème lors de la génération du code

15 réponses

Votre réponse

Discussions similaires