Vb-Access Fermé

Question

Bonjour, 

J'ai un problème lors de l'execution d'une requete en VB.
Voici mon code :

Option Compare Database
Public listecb As String
Public codes As Variant
Private Sub Commande21_Click()

    listecb = Me.Texte11.Value
    codes = Split(listecb, " ")
    Dim req As String
    For i = 0 To UBound(codes)
        DoCmd.SetWarnings False
        req = "Insert Into SeanceEleve Values('" & Now & "','" & codes(i) & "');"
        DoCmd.RunSQL req
    Next i
    MsgBox ("Ok")

End Sub

Le problème vient lorsque je veux desactiver les messages d'avertissement. 
Lorsqu'ils sont activés tout va bien. Mais quand je veux les desactiver, ma boucle for n'est plus parcourue et seul le premier enregistrement est entré dans la base.

Heliotte · Answer

Bonsoir Noobix,
Que veux-tu dire par désactiver le messages d'avertissements ?
Avec ton code, tu ne gère pas le cas où la 'textbox' est vide ou ne contient pas d'espace.

moiced59 · Answer

Bonjour

Tu recupere quoi dans listecb ?

A la fin de ton code il faut remettre les warning a true 

DoCmd.SetWarnings True

Vb-Access

2 réponses

Discussions similaires