Sujet Précédent Sujet Suivant

VB + Excel : ajouter / modification / suppression de ligne qui ne fonctionne pas

cs_Nixo Messages postés 14 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 15 juin 2004 - 11 avril 2004 à 18:32
cs_Nixo Messages postés 14 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 15 juin 2004 - 12 avril 2004 à 11:32
Bonjour,
comme le souligne le titre du sujet, je rencontre un problème au niveau de l'édition de la base.

Pour être plus clair :

Je navigue dans la base excel grâce à un contrôle data (tout fonctionne à ce niveau.)

Par contre, dès qu'il s'agit d'un :
Data.Recordset.AddNew
Data.Recordset.Edit
Data.Recordset.Delete

Ca ne fonctionne plus :(

Je me suis alors dis que je pouvais faire l'ajout/modification/suppression en VBA,
Mais je ne sais pas du tt comment faire (enfin ce que j'ai tester ne marche pas) :x

Pour un peu plus d'infos voici les boutons : premier - précédent - suivant - dernier (qui marche) et les boutons Ajouter - Modifier - Supprimer (qui ne marchenet pas :( ) 

' //----------------------- NAVIGATION -----------------------// '

'aller au premier enregistrement'
Private Sub Command1_Click()

cadrenavigation.Caption = "Navigation"
Data1.Recordset.MoveFirst

End Sub

'aller à l'enregistrement précédent'
Private Sub Command2_Click()

cadrenavigation.Caption = "Navigation"

Data1.Recordset.MovePrevious
If txtsite.Text = "" Then Data1.Recordset.movenext

End Sub

'allez à l'enregistrement suivant'
Private Sub Command3_Click()

cadrenavigation.Caption = "Navigation"

Data1.Recordset.movenext
If txtsite.Text = "" Then Data1.Recordset.MovePrevious

End Sub

'aller au dernier enregistrement'
Private Sub Command4_Click()

cadrenavigation.Caption = "Navigation"

Data1.Recordset.MoveLast
Do While txtsite.Text = ""
Data1.Recordset.MovePrevious
Loop

End Sub

' //-----------------------EDITION-----------------------// '

'ajouter un nouvel enregistrement'
Private Sub Command5_Click()
Data1.Recordset.AddNew
End Sub

'modifier un enregistrement'
Private Sub Command6_Click()

Msg = "Etes-vous sûr de bien vouloir modifier cet enregistrement?"
Style = vbYesNo + vbExclamation
Reponse = MsgBox(Msg, Style)
If Reponse = vbYes Then
    Data1.Recordset.Edit
End If

End Sub

'supprimer un enregistrement'
Private Sub Command7_Click()
Dim Ligne As Integer

Data1.Recordset.Delete

End Sub


Si vous avez des idées , une solution, ce serait vraiment sympa car la je galère pas mal et je n'ai pas bcp de temps.

Merci d'avance.
A voir également:

1 réponse

Réponse 1 / 1
cs_Nixo Messages postés 14 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 15 juin 2004
12 avril 2004 à 11:32
Personne ne sait? :/
0

Discussions similaires

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute
wind3813 -
wind3813 -

2 réponses
Calcul sur excel de l'inverse tangente en grade
HERTAN -
ucfoutu -

4 réponses
**** Différence entre VB et VBA***********
EMSIEN -
CanisLupus -

3 réponses
diferrence entre vba et vb.net,vb 6
mirmoleboss -
badrbadr -

5 réponses
Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin"
labriji -
labriji -

6 réponses
Rejoignez-nous