Bonjour
 
Voici le code qui bloque ma base access. Lorsque j'essaye d'ouvrir le lien, j'obtient une erreur et la fermeture compléte de la base de données. Si j'entre en administrateur, lorsque je passe en mode débogage, voici ci dessous le code visual basic . En surbrillance il me donne cette ligne.  Forms.F_suivdevball.Recordset.MoveFirst
 
pouvez vous m'aider
 
merci
 
Private Sub Commande47_Click()
DoCmd.OpenForm "F_suivdevball"
Dim temp As String
Dim i As Integer
Forms.F_suivdevball.Recordset.MoveFirst
temp = DLookup("nb", "nb_recordset_suivdevball" )
i = 0
While i < temp
    If IsNull(Forms.F_suivdevball.datedmde.Value) Or IsNull(Forms.F_suivdevball.datedebrepro.Value) Then
        Forms.F_suivdevball.Recordset.MoveNext
        i = i + 1
    Else
        Forms.F_suivdevball.tpspasse.Value = NbOpenDay(Forms.F_suivdevball.datedebrepro.Value, Forms.F_suivdevball.datedmde.Value)
        Forms.F_suivdevball.Recordset.MoveNext
        i = i + 1
    End If
Wend
End Sub

Je déplace.

Ce sujet a été déplacé de la catégorie Windows & Software vers la categorie Programmation par Freds45

Bonjour
 
Je suis de retour, et étonné que personne ne s'interresse à mon probléme. Je compte sur vous. Merci
 
jipipitte