Bonsoir membres du forum !
J'ai conçu une base de données grâce au tutoriel de Hervé Inisan.
Je souhaiterais remplacer le type de données: NuméroAutomatique par la procédure suivante qui me
ramène le type de données numérique contrôlable:
Je l'appelle à partir de l'onglet "Données" à la ligne de "valeur par défaut" de la feuille de propriétés du formulaire.
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 'Fonction ramenant le numéro automatique d'enregistrement 'de la table tblImages Public Function fId_Image() As Long On Error GoTo DOUKARAOUMAR Dim db As Database Dim rst As Recordset Dim sql As String Set db = CurrentDb sql = "select * from tblImages order by [Id Image] desc;" Set rst = db.OpenRecordset(sql) If Not rst.EOF Then rst.MoveFirst fId_Image = rst.Fields("[Id Image]") + 1 Else fId_Image = 1 End If Exit Function DOUKARAOUMAR: MsgBox "Erreur n° " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Une erreur est survenue" End Function
Mais je n'y arrive pas car un message d'erreur signale le risque de doublons.
Quelle est la solution ?
- Pièce jointe
Partager