Probleme ACCESS VB

Question

Bonjour a tous !!
je cherche a récuperer le dernier enregistrement de ma base pour un champs précis cependant sa ne marche pas avec le code suivant un petit coup de main serai le bien venu :

Private Sub Form_Load()
compteur = 0
Dim ExerciceCourant As String

Set DBase = OpenDatabase(App.Path & "\Budget.mdb")
Set TableBudget = DBase.OpenRecordset("BUDGET", dbOpenDynaset)
    
    Do While Not TableBudget.EOF
        If TableBudget!Exercice_Budgetaire <> "" Then
            compteur = compteur + 1
        End If
        TableBudget.MoveNext
    Loop
If compteur = 0 Then
    ExerciceCourantNouvo = InputBox("Veuillez saisir un exercice budgétaire de type 2000/2001")
    TableBudget!Exercice_Budgetaire = ExerciceCourantNouvo
Else
    Set Table = rs.OpenRecordset("SELECT * FROM Budget")
    Table.MoveLast
    ExerciceCourant = Table!Exercice_Budgetaire
End If

End Sub

merci d'avance

rémi

cs_thitoune · Answer

Primo, est ce que dans les 2 cas ca plante ?
parce que ta requête, si je me souviens bien devrais ressembler plutot à :
select last(Exercice_Budgetaire) from budget
qui te permettra de recuperer le dernier enreg entré dans la base.

Probleme ACCESS VB

1 réponse

Discussions similaires