Salut membres du forum !
Je voudrais insérer cette expression le numéro"NumModalite" et la modalité : l"...er Versement" ou "...e Versement" dans le champ "modalite" de ma table "MODALITEPAYEMENT"
grâce à une procédure.
Voici un code que je voudrais adapter à cela:et la fonction qui ramène le numéro automatique de la table :
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 Private Sub GenererTableMois() On Error GoTo DOUKARA Dim strMois As String Dim strAnnee As String Dim X As Integer Dim I As Integer Dim j As Integer DoCmd.SetWarnings False DoCmd.RunSQL "delete * from tmois;" j = 1 DoEvents For I = -Me.X To Me.Y strMois = CStr(UCase(MonthName(Month(DateAdd("m", I, date))) & " " & Year(DateAdd("m", I, date)))) strAnnee = Year(DateAdd("m", I, date)) DoCmd.RunSQL "insert into tmois(LibMois,id,Annee_tMois) values ('" & strMois & "'," & j & ",'" & strAnnee & "');" j = j + 1 'Me.cptantpour.AddItem UCase(MonthName(Month(DateAdd("m", i, date))) & " " & Year(DateAdd("m", i, date))) Next I DoCmd.SetWarnings True Exit Sub DOUKARA: MsgBox "Erreur n° " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Une erreur est survenue" End Sub
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 Public Function f_NumModalite() As Long On Error GoTo OUMAR Dim bd As Database Dim rs As Recordset Set bd = CurrentDb Set rs = bd.OpenRecordset("select * from MODALITEPAYEMENT order by NumModalite desc;") If rs.EOF Then f_NumModalite = 1 Else f_NumModalite = rs.Fields("NumModalite") + 1 End If Exit Function OUMAR: MsgBox Err.Description, vbExclamation, Err.Number End Function
Cordialement.
Partager