Bonjour.
Voila je bute sur tout ceci...
Le fenetre de travail s'appelle frmNew
La base de donnée s'appelle GPM.mdb
La table s'appelle TABLEGPM
voici le code:
[QUOTE]Private Sub cmdCancel_Click()
frmNew.Hide
Unload frmNew
Load frmIndex1
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub cmdNew_Click()
adoPrimaryRS.AddNew
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Dim db As Database
frmNew.Show
Set db = OpenDatabase("C:\VB\gpm.mdb")
Set adoPrimaryRS = db.OpenRecordset("TABLEGPM", dbOpenTable)
mbDataChanged = False
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If mbEditFlag Or mbAddNewFlag Then Exit Sub
Select Case KeyCode
Case vbKeyEnd
cmdLast_Click
Case vbKeyHome
cmdFirst_Click
Case vbKeyUp, vbKeyPageUp
If Shift = vbCtrlMask Then
cmdFirst_Click
Else
cmdPrevious_Click
End If
Case vbKeyDown, vbKeyPageDown
If Shift = vbCtrlMask Then
cmdLast_Click
Else
cmdNext_Click
End If
End Select
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'Ceci affichera la position de l'enregistrement actif pour ce jeu d'enregistrements
lblStatus.Caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition)
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'Insérez ici le code de validation
'Cet événement est appelé lorsque les actions suivantes se produisent
Dim bCancel As Boolean
Select Case adReason
Case adRsnAddNew
Case adRsnClose
Case adRsnDelete
Case adRsnFirstChange
Case adRsnMove
Case adRsnRequery
Case adRsnResynch
Case adRsnUndoAddNew
Case adRsnUndoDelete
Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus = adStatusCancel
End Sub [/QUOTE]
Mon soucis vient du bouton "New" Quand je clique dessus je souhait qu'il insere ce que j'aurai mis sur la feuille dans la base de donnée. Donc j'ai mis:
[QUOTE]adoPrimaryRS.AddNew [/QUOTE]
Sauf que la ca me met " Erreur 424: un objet est requis"
Je debute VB et là je m'arrache les cheveux.... J'ai du oublier de mettre des commandes...
Si une ame charitable peut m'aider...