[VBA] tester l'existence d'une variable [Résolu]

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
'

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