Verification avant insertion table

Version imprimable

Bonjour à tous,

J'ai essayer de trouver un post similaire, mais en vain, je crois que ma faible expérience en VBA ne m'aide pas du tout alors je me retourne vers vous cher expert en programmation.

J'ai essayer de programmer un petit logiciel en Access 2010 qui permet de charger des titres, mais le problème c'est que si le titre à déjà été chargé, il le charge quand même sans vérifier.
J'aimerais mettre en place une vérification avant l'écriture dans la base de donnée. J'ai tenté bien que mal de mettre en place cette vérification, mais ça ne fonctionne pas. J'ai une erreur de type: "erreur de compilation: Type défini par l'utilisateur attend, et non un projet", et ce même si DAO 3..6 est coché.

Je vous remercie en avance de votre aide précieuse

Voici ma portion de code.:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub cmd_Save_Click()
'Ajoute l'information à la table historique (VENTE)
 
'Vérification
If IsNull(Me.Listevendeur.Value) Then
    Dim ErreurMissing1
    ErreurMissing1 = MsgBox("Vendeur non sélectionné", vbDefaultButton1 + vbOKOnly, "Erreur")
Else
If IsNull(Me.Matricule.Value) Then
    Dim ErreurMissing2
    ErreurMissing2 = MsgBox("Usager non sélectionné", vbDefaultButton1 + vbOKOnly, "Erreur")
Else
If IsNull(Me.Modifiable52.Value) Then
    Dim ErreurMissing3
    ErreurMissing3 = MsgBox("Titre non sélectionné", vbDefaultButton1 + vbOKOnly, "Erreur")
Else
'Inscription BD
Dim StrDate, StrTime, StrCName, StrVendeur, StrVente, StrCommentaire, StrNom, StrPrenom
StrDate = VBA.Format(StrConv(Me.Auto_Date.Value, vbLowerCase), "\#mm\/dd\/yyyy\#")
StrTime = VBA.Format(DateTime.Now, "hh:MM:ss")
StrCName = VBA.Environ("computername")
StrVendeur = Me.Listevendeur.Value
StrVente = "Vente"
StrCommentaire = InputBox("Nom sur le chèque et numéro du chèque", "Information sur le chèque")
StrCommentaire = Replace(StrCommentaire, "'", "")
StrNom = Replace(Me.Nom, "'", "")
StrPrenom = Replace(Me.Prenom, "'", "")
'Vérification si le titre à déjà été loader avant (VOICI LA PORTION OU J'ESSAIE DE VÉRIFIER SI LE TITRE EXISTE)
Dim db As Database
Dim rs As Recordset
Dim StrSQL As String
StrSQL = "SELECT Historique.MatriculeUsager, Historique.MoisService, Historique.AnneeService FROM Historique WHERE Historique.MatriculeUsager = '" & Me.Matricule & "' AND Historique.MoisService = '" & Me.Texte62 & "' AND Historique.AnneeService ='" & Me.Texte66 & "'"
Set db = CurrentDb()
Set rs = db.OpenRecordset(StrSQL, dbOpenDynaset)
If Not rs.EOF Then
Dim MsgWarning
    MsgWarning = MsgBox("Le titre à déjà été créé pour cet utilisateur", vbDefaultButton1 + vbInformation, "Erreur")
Else
'inscription à la base de registre (CETTE PORTION FONCTIONNE)
CurrentDb.Execute "INSERT INTO Historique (DateVente, TitreVendu, MoisService, AnneeService, CoutTitreVendu, MatriculeUsager, NomUsager, PrenomUsager, HeureVente, Vendeur, Emplacement, EtatTitre, Commentaire) " & _
                " VALUES (" & StrDate & ",'" & Me.Texte62 & "','" & Me.Texte64 & "','" & Me.Texte66 & "','" & Me.Texte68 & "','" & Me.Matricule & "','" & StrNom & "','" & StrPrenom & "','" & StrTime & "','" & StrVendeur & "','" & StrCName & "','" & StrVente & "','" & StrCommentaire & "')"
End If
'Rafraichie la liste dans le sous formulaire historique
    Historique_sous_formulaire.Form.Requery
End If
End If
End If
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

Encore une fois, merci de votre aide.

Bonne soirée/journée selon le décalage horaire :)

26/02/2014, 12h18
paidge

Bonjour,

Pour faire vérifier si ton titre existe déjà dans une table, tu as la fonction Dcount ;)

Code:

If DCount("*", "MaTable", "monChamps='" & maVariableTitre & "'") <> 0 Then MsgBox "Le titre existe déjà dans la table"
26/02/2014, 15h22
xtrem3

Bonjour,

Merci de votre réponse,

Si en utilisant Dcount je dois vérifier trois variable, car je n'ai pas de champ unique qui permet de vérifier uniquement 1 seul champ. Je dois vérifier le mois, l'année et le matricule de l'utilisateur afin de vérifier si effectivement le titre n'a pas été vendu 2 fois. Comment dois-je utilise la fonction DCount?

Merci encore.

Salutation,

Jean-Marc
26/02/2014, 15h29
paidge

Dans le VBE (l'éditeur de Code), si tu places le curseur sur une fonction, une méthode, une propriété, un mot-clé et que tu appuies sur F1, l'aide d'Access t'explique comment les utiliser et à quoi ça sert ;)

Citation:

Envoyé par Aide d'Access

DCount(Expr, Domain, Criteria)
...
Criteria : Expression chaîne facultative servant à limiter la plage des données sur laquelle porte la fonction DCount. Par exemple, critère est souvent équivalent à la clause WHERE d'une expression SQL sans le mot WHERE. En cas d'omission de critère, la fonction DCount évalue expr par rapport à l'intégralité du domaine. Chaque champ compris dans critères doit l'être aussi dans domaine, sans quoi la fonction DCount renvoie la valeur Null

Autrement dit :

Code:

If DCount("*", "MaTable", "monChampsTexte='" & maVariableString & "' AND monChampsNumerique=" & maVariableNumerique & " AND monchampDate=#01/01/2014#") <> 0 Then MsgBox "Le titre existe déjà dans la table".

;)
26/02/2014, 15h42
xtrem3

Merci...

Je vais essayer ça..
Je ne savais pas que l'on pouvais se positionner sur une fonction et appuyer sur F1. Je vais me coucher moins niaiseux ce soir.

Merci encore

Salut,
Code:

1 2 'If DCount("*", "MaTable", "monChampsTexte='" & maVariableString & "' AND monChampsNumerique=" & maVariableNumerique & " AND monchampDate=#01/01/2014#") <> 0 Then MsgBox "Le titre existe déjà dans la table". If Dcount("*", "Historique","[AnneeService]='" & Me.Matricule & "' AND [MoisService]=" & Me.Texte62 & " AND [AnneeService]=" & Me.Texte64") <> 0 then Msgbox "Le titre existe déjà dans la table".
Ça reste en rouge, mais je ne sais pas pourquoi.
Est-ce que tu serais en mesure de m'expliquer ce qui ne fonctionne pas?

Merci beaucoup encore de ton aide précieuse.

Salutation

26/02/2014, 17h44
Robert1957

Bonjour xtrem3,

Ça serait plutôt comme ça:

Code:

If Dcount("*", "Historique","[AnneeService]='" & Me.Matricule & "' AND [MoisService]=" & Me.Texte62 & " AND [AnneeService]=" & Me.Texte64) <> 0 then Msgbox "Le titre existe déjà dans la table."

Cependant écrit de cette manière il faut que MoisService et AnneeService soient numériques.

Bonne journée
26/02/2014, 17h48
xtrem3

Salut

Le matricule n'est pas numérique, le mois non plus, mais l'année oui sauf que le champs n'est pas "défini" comme numérique mais plutôt comme champs texte.
Est-ce que fonctionnerais quand même? Dois-je utiliser quand même la fonction DCount?

Merci
26/02/2014, 18h02
Robert1957

Bonjour xtrem3,

Pour un champ texte tu peux:

Code:

"[AnneeService]='" & Me.Matricule & "'

Cependant je préfère:

Code:

"[AnneeService]=" & Chr(34) & Me.Matricule & Chr(34) "

Pour un champ numérique c'est:

Code:

" AND [MoisService]=" & Me.Texte62 & "

Et pour un champ date:

Code:

" AND [MoisService]=#" & Me.Texte62 & "#

À toi d'adapter selon le format de tes champs.

Bonne journée

Merci beaucoup de votre aide.

Afin de répondre aux futures personnes qui aurait le même probleme... voici la soluce:

Code:

1
2
3
4
5
6
7
8
9
If DCount("*", "Historique", "[MatriculeUsager]='" & Me.Matricule & "' AND [MoisService]='" & Me.Texte64 & "' AND [AnneeService]='" & Me.Texte66 & "'") <> 0 Then
Dim ErreurTitre
ErreurTitre = MsgBox("Le titre existe déjà dans la table.")
Else
'inscription à la base de registre
CurrentDb.Execute "INSERT INTO Historique (DateVente, TitreVendu, MoisService, AnneeService, CoutTitreVendu, MatriculeUsager, NomUsager, PrenomUsager, HeureVente, Vendeur, Emplacement, EtatTitre, Commentaire) " & _
                " VALUES (" & StrDate & ",'" & Me.Texte62 & "','" & Me.Texte64 & "','" & Me.Texte66 & "','" & Me.Texte68 & "','" & Me.Matricule & "','" & StrNom & "','" & StrPrenom & "','" & StrTime & "','" & StrVendeur & "','" & StrCName & "','" & StrVente & "','" & StrCommentaire & "')"
'Rafraichie la liste dans le sous formulaire historique
End If

Bonne journée

Merci encore aux personnes qui m'on aidé à solutionné le problèmes, vous m'avez beaucoup aidé.