T'as essayé
If test(3) Is Nothing ou Is Null au lien de <>"" ??

Runtime error 424 : Object Required. :/

Le debugger m'indique la ligne du If test(3) Is Nothing ou If test(3) is Null !

Bonjour,

Suggestion :

Sub Essai()

    Dim strMots As String, strMessage
    Dim Boite As Variant
    Dim Limite As Integer, Boucle As Integer
    
    strMots = "Table~Chaise~Banc"
    Boite = Split(strMots, "~")
    Limite = UBound(Boite)
    'MsgBox Limite
    For Boucle = 0 To Limite
        strMessage = strMessage & vbLf & _
                        "Boucle : " & Boucle & _
                        " : " & Boite(Boucle)
    Next
    
    MsgBox strMessage
    
End Sub
'

Salut A.Lupin :)

Merci, grace à toi j'ai pu résourde mon problème en faisant de cette façon :
If Limite = 3 Then
...
Else
...
End If

Cependant, le mêm problème est revnu mais pour un autre champ.

Je fais, pour pouvoir insérer chaque entrée dans une nouvelle table, cette boucle.

While (i <= rstTest("nbr_Entrees"))

La variable i part de 1, et fais toutes les entrées jusqu'a ce qu'il n'y en ai plus (que le nombre d'entrées est atteint).

Cependant, dans ma bdd, Certains champs ont été supprimés. Donc lorsque je passe de 409 à 411, il cherche le 410 et une erreur s'affiche : "Runtime Error 3021 : No current record".

Je cherche donc à nouveau a vérifier que la variable existe (pour l'ID 410, elle n'existera pas puisqu'il n'y a aucune données à mettre dedans).

Merci !

Re :

il te faut tester le record avec l'instruction :

If ( IsEmpty(recorset(i)) ) Then

dans ton texte :

While (i <= rstTest("nbr_Entrees"))

je ne peux identifier l'objet record indexé par le i ...

Lupin

Ups,

En fait j'ai fait un COUNT des entrées de la base de donnée.

Puis j'ai initialisé i avec comme valeur 1, et après chaque boucle, i s'incrémente de i.

i représente aussi l'ID dans l'insertion des valeurs. Ma requête SQL ressemblera à ca :

strSQL2 = "SELECT lIDAsset, sAssetTag, sLoginID FROM tblAsset WHERE lIDAsset = " & i & ""

en gros l'éxecution du code s'effectue comme ceci :

Je sélectionne les valeurs qui m'intéresse avec l'id i
Je les découpe grace à Split(), je les trie et je les insère
j'incrémente i de 1
Je sélectionne les valeurs qui m'intéressent avec l'id i suivant
etc ...

Et la condition
While (i <= rstTest("nbr_Entrees"))

sert à éviter la boucle infinie. Ainsi i ne dépassera jamais le nombre d'entrée !

Aussi, tu as confondu le i et le 1 :)
rstTest(1) => La deuxième entrée du recordset rstTest !

Désolé, double post. :/

Re :

quel instruction utilise tu ?

... Je sélectionne les valeurs qui m'intéressent avec l'id i suivant ...

Lupin

Toujours la même requête SQL : strSQL2 = "SELECT lIDAsset, sAssetTag, sLoginID FROM tblAsset WHERE lIDAsset = " & i & ""


Mais comme l'ID à été incrémenté de 1 avant la fin de la boucle, ca me sélectionne le champ suivant :p

Re :

là je suis un peu largué, je ne vois pas bien tout le programme ???

Peut=être que :

strSQL2 = "SELECT lIDAsset, sAssetTag, sLoginID FROM tblAsset WHERE lIDAsset = " & i & ""


If Not IsEmpty("SELECT lIDAsset, sAssetTag, sLoginID FROM tblAsset WHERE lIDAsset = " & i & "") Then
...


Lupin

Bon finalement j'ai trouvé une autre solution, qui est censée marcher mais qui marche pas :p
Donc tu peux lire le code pour comprendre, mais mon problème se trouve en bas de ce message ce n'ets donc plus nécessaire de lire :p

Je te passe toutes les Dim !

voilà le code ;)

Set dbTestForm = CurrentDb

strSQL = "SELECT COUNT(*) as plop FROM tblAsset"

Set rstTest = dbTestForm.OpenRecordset(strSQL)
CurrentDb.Execute "DELETE * FROM tblPC;"

i = 1

 While (i <= rstTest("Plop"))

  strSQL2 = "SELECT lIDAsset, sAssetTag, sLoginID FROM tblAsset WHERE lIDAsset = " & i & ""
  Set rstTest2 = dbTestForm.OpenRecordset(strSQL2)

  If IsEmpty("rstTest2") Then

   Stop

  Else

   Tag = rstTest2(1)
   Test = Split("" & Tag & "", "~")

   Limite = UBound(Test)

   If Limite = 3 Then

    SN = Split("" & Test(3) & "", ".")

    DoCmd.SetWarnings False
    strSQL3 = "INSERT INTO tblPC(IDAsset, Shortname, Marque, Type, Modele, Serial_Number) Values('" & rstTest2(0) & "', '" & rstTest2(2) & "', '" & Test(0) & "', '" & Test(1) & "', '" & Test(2) & "', '" & SN(0) & "')"
    DoCmd.RunSQL strSQL3
    DoCmd.SetWarnings True

    Final = Test(0)
    Final2 = Test(1)
    Final3 = Test(2)
    Final4 = Test(3)

   Debug.Print Final
   Debug.Print Final2
   Debug.Print Final3
   Debug.Print Final4

   i = i + 1

  Else

   SN = Split("" & Test(2) & "", ".")

   DoCmd.SetWarnings False
   strSQL3 = "INSERT INTO tblPC(IDAsset, Shortname, Marque, Type, Serial_Number) Values('" & rstTest2(0)& "', '" & rstTest2(2) & "', '" & Test(0) & "', '" & Test(1) & "', '" & SN(0) & "')"
   DoCmd.RunSQL strSQL3
   DoCmd.SetWarnings True

   Final = Test(0)
   Final2 = Test(1)
   Final3 = Test(2)

   Debug.Print Final
   Debug.Print Final2
   Debug.Print Final3

   i = i + 1
  End If
 End If
Wend

End Sub

Re :

Je ne suis pas expert dans ce type de manipulation, déjà d'avoir créé un enregistrement (recordset)
tu améliore de beaucoup la fonctionnalité et la convivialité de ton programme.

Dans la boucle :

For Each lIDAsset In rstTest
Execute
Next

As-tu essayé :

For Each lIDAsset In rstTest
..lIDAsset.Execute
Next

Lupin

Salut !

J'ai résolu mon problème, la suite est là
http://www.commentcamarche.net/forum/affich 8122736 vba access probleme dans une boucle for?dernier#dernier

Maintenant j'insère des valeur dans ma table, dont le nom d'une personne qui contient une apostrophe.

Je ne sais pas comment éviter que cette apostrophe arrête toute ma requête :(