Voilà le code:
Mon pb est assez simple: lorsque cette routine tombe sur "marché", recset!codemarche est Null. C'est quoi recset!codemarche? Il trouve comment cette fonction? Je sais je devrais regarder les aides...J'en ai imprimer plein mais là c'est une demande expresse et j'ai pas réellement le temps de me plonger dedans, surtout que les tutoriels vb-access sont bien plus décousues que ceux de vb excel.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Public Sub ModifIMC() AddMess ("ModifIMC") Dim cM As String Dim sT As String Dim RecSet As ADODB.Recordset Set RecSet = New ADODB.Recordset RecSet.Open "ImportIMC", CurrentProject.Connection, adOpenDynamic, adLockOptimistic Do If RecSet!NumContrat = "Marché" Then cM = RecSet!CodeMarche End If If RecSet!Statut = "SAIN" Or RecSet!Statut = "DOUTEUX" Then sT = RecSet!Statut End If If IsNumeric(RecSet!NumContrat) Then RecSet!CodeMarche = cM RecSet!Statut = sT RecSet!NbJourImpaye = CInt(CDate(JourDebut & "/" & MoisDebut & "/" & AnneeDebut) - CDate(RecSet!DateDebutImpaye)) RecSet!Solde = CDbl(RecSet!crd) + CDbl(RecSet!MontantImpaye) RecSet.Update End If RecSet.MoveNext Loop Until RecSet.EOF RecSet.Close Set RecSet = Nothing End Sub
Partager