Opération de control avec un recordset
bonjour, je voudrai pouvoir controler les données qui sont entrées dans ma table Données_Prix pour éviter d'avoir d'avoir deux fois le même attribut 'Désignation', pour cela j'ai essayer avec un recordset et le code suivant:
Code:
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 27
| Sub BoutonRenseigner_Click()
Dim Table As String
Dim Thème As String
Réf = Me![Désignation]
SQL = "SELECT [Désignation] FROM [Données_Prix] WHERE [Désignation]= '" & Réf & "';"
Set Control = CurrentDb.OpenRecordset(SQL)
If Control.[Désignation] = Me![Désignation] Then
Maj = MsgBox("la donnée existe déjà dans la base" & Chr(10) & "voulez vous mettre à jour cette donnée?", vbInformation + vbYesNoCancel, "mise à jour")
If Maj = vbYes Then
Ouvrir (miseajour)
ElseIf Maj = vbCancel Then
Unload (Me)
ElseIf Maj = vbNo Then
End If
Else
Renseigner
End If |
mais Access m'annonce une erreur à la premiere ligne de mon "if". l'erreur est "aucun enregistrement en cours". ce qui est vrai puisque, dans ce cas, je n'ai pas de données dans ma base ayant la même désignation. comment puis je contourner cette erreur, ou y a t'il un moyen plus simple pour effectuer ce control?
merci d'avance,
jouf