Vba / access incrémentation

Fermé
Destinos - Modifié par Destinos le 8/12/2011 à 17:28
 Utilisateur anonyme - 8 déc. 2011 à 18:46
Bonjour,
voila j'aimerai incrémenter une variable lors d'une erreur/doublon (3022) en vba;
je bosse sur ce code actuellement mais l'incrementation ne s'opère pas correctement:



Function Insertion(oRst1 As DAO.Recordset, orst2 As DAO.Recordset) As Integer
On Error GoTo err
Dim nb As Integer
Dim Fld As DAO.Field
nb = 0
orst2.AddNew
For Each Fld In oRst1.Fields
If (Fld.Attributes And dbAutoIncrField) = 0 Then
orst2.Fields(Fld.Name).Value = Fld.Value
End If

Next Fld
orst2.Update
err:
Select Case err.Number
Case 3022
nb = nb + 1
Insertion = nb
End Select
End Function

merci de m'aider

1 réponse

Réponse 1 / 1
Utilisateur anonyme
8 déc. 2011 à 18:46
Bonjour,

De mémoire : 

nb = 0 

orst2.Edit

orst2.AddNew 
For Each Fld In oRst1.Fields 
If (Fld.Attributes And dbAutoIncrField) = 0 Then 
    orst2.Fields(Fld.Name).Value = Fld.Value 
End If 
Next Fld 
orst2.Update


Cdt

Lupin
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
C'est quoi le runtime Access ?
Pekin -
Pekin -

Bonjour,

il y a des questions que je me pose sur Access : Qu'est ce que le runtime d'Access par rapport à Access en lui-même ? Est ce que ça nécéssite une installation particulière comme Access ? Est ce que ça peut faire tourner des macros ?

Merci de vos réponses !


Configuration: Windows XP / Internet Explorer 7.0

2 réponses
Acer quick access
Bidou21 -
sortout -

Bonjour,

Quand j'ouvre ma session, j'ai Acer quick access qui s'ouvre a droite de mon écran mais la fenêtre charge et reste noire tout le temps. Quand je veux la fermer on me dit que le programme ne répond pas.
A quoi sert cette application et est-il possible de la supprimer?
Merci d'avance.

Configuration: Windows / Chrome 54.0.2840.99

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse