BDD Access, problème de vitesse d'enregistrement

Salut à tous,
voici mon problème :
je fais une appli permettant de gérer une BDD Access, elle fonctionne très bien mais lorsque je veux ajouter une ligne dans une table (enregistrer une nouvelle entrée) à partir de mon appli, elle semble mettre du temps à mettre à jour la table.
Par exemple, je rentre une adresse et je l'enregistre, la première fois il n'y a pas de problème. Si je la cherche tout de suite après, elle est déjà dans la table.
Mais si j'enregistre d'autres adresses après je ne peux pas y accéder de suite, l'appli me dit que ces adresses n'existent pas...
Pourtant quand je relance l'appli, elle me les trouve de suite, voilà donc pourquoi je pense que la base de données met un certain temps à se mettre à jour...
N'y a-t-il rien pour accélérer le processus ? 

Donnes Ton code....
T'as combien de Champs ?


It@li@

Private Sub cmdValiderAjouter_Click()
    'ajouter un article
    Dim ca As Command
    Set ca = New Command
    ca.CommandText = "NouvelleMap"
   
    'permet de créer un paramètre
    ca.Parameters.Append ca.CreateParameter("nom", adChar, adParamInput, 20)
    ca.Parameters.Append ca.CreateParameter("nbjoueurs", adInteger, adParamInput)
    ca.Parameters.Append ca.CreateParameter("designation", adChar, adParamInput, 400)
    ca.Parameters.Append ca.CreateParameter("photo", adChar, adParamInput, 200)
    'renseignement du paramètre
    ca.Parameters("Nom").Value = txtMap.Text
    ca.Parameters("NbJoueurs").Value = txtJoueurs.Text
    ca.Parameters("Designation").Value = txtDesc.Text
    ca.Parameters("Photo").Value = txtImage.Text
    'indication de la connection
    ca.ActiveConnection = co
    If txtMap.Text = "" Then
        MsgBox "Veuillez saisir un nom de map !"
        txtMap.SetFocus
        Else
            If txtJoueurs.Text > 32 Or txtJoueurs.Text < 2 Then
                MsgBox ("Choisissez un nombre entre 2 et 32 !")
                txtJoueurs.Text = ""
                txtJoueurs.SetFocus
                Else
                     'problème de temps pour enregistrer une entrée
                        Dim rep As Integer
                        rep = MsgBox("Confirmer l'ajout ?", vbYesNo)
                        If rep = vbYes And txtMap.Text <> "" Then
                             ca.Execute
                             Timer1.Enabled = True
                             Enregistrement.Show
                             Call raz(Me)
                         Else
                             MsgBox "Ajout annulé !"
                         End If
                End If
    End If
        Set ca = Nothing
End Sub

Voilà le code
J'ai 4 champs

Pourquoi tu fais :

    ca.Parameters.Append ca.CreateParameter("nom", adChar, adParamInput, 20)
    ca.Parameters.Append ca.CreateParameter("nbjoueurs", adInteger, adParamInput)
    ca.Parameters.Append ca.CreateParameter("designation", adChar, adParamInput, 400)
    ca.Parameters.Append ca.CreateParameter("photo", adChar, adParamInput, 200)


It@li@

Ben c'est pour créer des paramètres pour la command...
Vu que j'utilise une requête SQL dans Access.

Pourquoi il faut pas

j'ai jamais fais ça pour ajouter des Enregistrements...

It@li@

OK, mais comment tu fais alors, ta méthode est peut-être plus rapide que la mienne

En DAO en Cochant..Projet.Référence Microdoft DAo 3.51 Object Library :

Dim Rep As Integer

If txtMap.Text = "" Then
    MsgBox "Veuillez saisir un nom de map !"
    txtMap.SetFocus
   exit sub
end if
If txtJoueurs.Text > 32 Or txtJoueurs.Text < 2 Then
   MsgBox ("Choisissez un nombre entre 2 et 32 !")
   txtJoueurs.Text = ""
   txtJoueurs.SetFocus
   exit sub
end if

Rep = MsgBox("Confirmer l'ajout ?", vbYesNo)
If Rep <> vbYes Then
   MsgBox "Ajout annulé !"
Else
   Set Db = OpenDatabase("C:\MaBase.mdb")
   Set Ajout= Db.OpenRecordset("SELECT * FROM TaTable") 
     Ajout.AddNew
      Ajout("Nom") = txtMap.Text
      Ajout("NbJoueurs") = txtJoueurs.Text
      Ajout("Designation") = txtDesc.Text
      Ajout("Photo")= txtImage.Text
      Ajout.Update
   Set Ajout=Nothing
   Set Db=Nothing
End If

It@li@

Au Fait Remplaces :

txtJoueurs.Text > 32 Or txtJoueurs.Text < 2 

Par

Val(txtJoueurs) > 32 Or Val(txtJoueurs) < 2

It@li@

OK, merci beaucoup, je vais essayer ça tout à l'heure