1 pièce(s) jointe(s)
Échanger le NuméroAutomatique par le numérique
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:
Code:
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 |
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.
Mais je n'y arrive pas car un message d'erreur signale le risque de doublons.
Quelle est la solution ?
- Pièce jointe