Bonjour à tous,
Je cherche depuis un moment dans l'aide, et sur internet, mais je trouve pas ce qu'il me faut. J'ai créer un forumlaire de gestion de client, et j'y ai mis des boutons, suivant, précédent, premier, dernier.
Je suis bloqué au bouton pour rajouter un enregistrement dans ma base...
Citation :
Dim Bdd As Database
Dim Rec As Recordset
Dim NbEnreg As Long
Dim confirmation As VbMsgBoxResult
Sub InitialiserFormulaire()
Set Bdd = CurrentDb
Set Rec = Form_AsTEST.RecordsetClone
CompterEnregistrements
MajPbNavigation
End Sub
Sub CompterEnregistrements()
If Rec.BOF And Rec.EOF Then
'Le Recordset est vide
NbEnreg = 0
Else
Rec.MoveLast
Rec.MoveFirst
NbEnreg = Rec.RecordCount
End If
End Sub
Sub SeDeplacer(VersOu As String)
With Form_AsTEST
Rec.Bookmark = .Bookmark
Select Case VersOu
Case "Premier"
Rec.MoveFirst
Case "Suivant"
Rec.MoveNext
Case "Precedent"
Rec.MovePrevious
Case "Dernier"
Rec.MoveLast
End Select
.Bookmark = Rec.Bookmark
End With
MajPbNavigation
End Sub
Sub FermerFormulaire()
Rec.Close
Bdd.Close
DoCmd.Close
End Sub
Sub MajPbNavigation()
With Form_AsTEST
.pbPremier.Enabled = .CurrentRecord <> 1
.pbPrecedent.Enabled = .CurrentRecord <> 1
.pbSuivant.Enabled = .CurrentRecord <> NbEnreg
.pbDernier.Enabled = .CurrentRecord <> NbEnreg
End With
End Sub
Mon problème:
Sub NouvEnreg()
Rec.AddNew
Rec.Update
Rec.MoveLast
End Sub
Sub SuppEnreg()
confirmation = MsgBox("Etes-vous sûre de vouloir supprimer cet enregistrement?", 1, "Confirmation" )
Select Case confirmation
Case 1
Rec.Delete
Rec.Update
Rec.MoveLast
Case 2
End Select
MajPbNavigation
End Sub
|
Ce serait super si quelqu'un avait la solution qui est d'après moi très simple, mais qui me bloque!!!
Merci d'avance!
Message édité par limp15000 le 23-02-2005 à 15:05:53
