Archiver et réinitialiser un fichier

Bonjour l'Ami,

L'idée à réaliser est comme suite :

Faire saisir les données de 3 ( ou plus ) expéditions.
Chaque expédition comporte un nombre de lignes d'enregistrements

la QUESTION est :

Une fois les données de l'expédition n° 1 sont saisies, comment faire vider la datagrid ( Tableau ) pour pouvoir saisir les données de l'expédition n° 2, puis , celles de l'expédition n° 3 , ainsi de suite.

Mon application d'apprentissage est conçue avec VB6, Access 2007,


Je vous expose les codes écrits :

Private Sub Form_Load()

PoolConnection

SQLs = "select * from TableauExpedition " & " order by NPALET asc"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Adodc1.RecordSource = SQLs
Set DataGrid1.DataSource = Adodc1

DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False


lblN.Caption = Adodc1.Recordset.RecordCount
Adodc1.Refresh
'-------------------------------------


TNExp = RS![EXPN]
TDateExp = RS![DATEEXP]
TTransporteur = RS![TRANSPORTEUR]
TMatriculeRemorque = RS![MATRICULEREMORQUE]


'--------------------------------------------------



SQLs = "Select * from TableauCodes " & " order by CODEPDTs asc"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


Do Until RS.EOF

cmbCodePdt.AddItem (RS![CODEPDTs])

RS.MoveNext

Loop






End Sub

sur la feuille du chargement ( la feuille de saisie des données de l'expédition )

Private Sub TCltDest_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If TCltDest = "" Then
MsgBox "Attention ! la Zone du Client ou la Destination est vide", vbCritical + vbMsgBoxRight, "Attention ! Zone Vide"
TCltDest.SetFocus
Exit Sub
End If

If Val(TCltDest) <> 0 Then
MsgBox "Attention ! cette Zone est réservée aux Clients / Destination", vbCritical + vbMsgBoxRight, "Attention ! Erreur de saisie"
TCltDest = ""
Exit Sub
TCltDest.SetFocus
End If
'--------------------------------------------------------





'-----------------------------------------------------
SQLs = "Select * from TableauExpedition where CODEPALET = " & TCodePalet & " "

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If RS.EOF Then


GoTo okaddnew

Else

MsgBox "Attention ! Ce Code de la Palette existe déjà", vbCritical + vbMsgBoxRight, "Attention ! Erreur de saisie"
TCodePalet.SetFocus
Exit Sub

End If

okaddnew:

Dim Reponse As String

Reponse = MsgBox("Voulez vous enregistrer ces nouvelles données ?", vbCritical + vbMsgBoxRight + vbYesNo, "Alors ! Que décidez vous ?")

If Reponse = vbYes Then

RS.AddNew

If Not TNExp = "" Then RS![EXPN] = TNExp
If Not TDateExp = "" Then RS![DATEEXP] = TDateExp
If Not TTransporteur = "" Then RS![TRANSPORTEUR] = TTransporteur
If Not TMatriculeRemorque = "" Then RS![MATRICULEREMORQUE] = TMatriculeRemorque
If Not lblN.Caption = "" Then RS![NPALET] = lblN.Caption
If Not TCodePalet = "" Then RS![CODEPALET] = TCodePalet
If Not cmbCodePdt = "" Then RS![CODEPDT] = cmbCodePdt
If Not TKGBrut = "" Then RS![KGBRUT] = TKGBrut
If Not TKGNet = "" Then RS![KGNET] = TKGNet
If Not TCltDest = "" Then RS![CLTDESTINATION] = TCltDest



RS.Update


RS.Close

SQLs = "Select * from TableauExpedition"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenStatic

Adodc1.RecordSource = SQLs
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

'--------------------------------------

TCodePalet = ""
cmbCodePdt = ""
TKGBrut = ""
TKGNet = ""
TLotN = ""
TCltDest = ""



'If lblN.Caption = 0 Then
'lblN.Caption = 1
'Else
'lblN.Caption = CInt(lblN.Caption) + 1
'End If



'----------------------------------------------

TCodePalet.SetFocus

Dim Reponse1 As String
Dim Reponse2 As String


Reponse1 = MsgBox("Voulez vous saisir les données d'une autre Palettes ?", vbCritical + vbMsgBoxRight + vbYesNo, "Alors ! Que Décidez vous ?")

If Reponse1 = vbYes Then







Exit Sub


Else

Reponse2 = MsgBox("Voulez vous saisir les données d'une autre Expédition ?", vbCritical + vbMsgBoxRight + vbYesNo, "Alors ! Que Décidez vous ?")

If Reponse2 = vbYes Then

TNExp = ""
TDateExp = ""
TTransporteur = ""
TMatriculeRemorque = ""
TCodePalet = ""
cmbCodePdt = ""
TKGBrut = ""
TKGNet = ""
TCltDest = ""


TNExp.SetFocus




End If
End If
End If
End If
End Sub

Merci pour votre aide

A plus