Type Variable Access

Fermé
Magic - 30 mai 2008 à 15:00
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 30 mai 2008 à 19:43
Bonjour,

savez vous comment on fait pour changer le type d'une variable?
J'ai taper un code vb, j'appel une requête SQL pour savoir le nombre d'enregistrement de ma table, ensuite j'insérer un nouvelle enregistrement. Une fois cela fait je veux vérifier que mon enregistrement à bien été enregistré, j'apelle donc une nouvelle requete sql qui me compte le nombre d'enregistrement de la table, je compare ensuite mes 2 réponses et lance des msgbox en fonction de la réponse voici mon code:
quand j'execute un message me disant que incompatibilité de type s'affche (la ligne soulign éet la ligne de débogage)

Private Sub Commande0_Click()
Dim MaTable As Database
Dim rst As Recordset
Dim sql As String
Dim j As String

Set MaTable = CurrentDb
sql = "Select count(Matricule) From Employe"
Set Enregistrement = MaTable.OpenRecordset("Employe")
With Enregistrement
.AddNew
![Matricule] = Forms![Ajout_EMP]!Matricule
![Nom] = Forms![Ajout_EMP]!Nom
![Prenom] = Forms![Ajout_EMP]!Prenom
![Tel_GSM] = Forms![Ajout_EMP]!Tel_GSM
![N_SECTEUR] = Forms![Ajout_EMP]!N_SECTEUR
.Update
End With
j = "Select count(Matricule) FROM Employe"
If j = sql + 1 Then
MsgBox ("Les données ont bien été enregistrées")
Else
MsgBox ("Erreur, les données n'ont pas été enregistrées")
End If
MaTable.Close
End Sub

Merci de vos réponse
A voir également:

1 réponse

LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
30 mai 2008 à 19:43
Euh.... Aucune ligne n'est soulignée.

Mais à priori, tu compares deux chaînes de texte. Tu écris tes SQL mais tu ne les exécutes pas.

A mon avis, tu ferais mieux de remplir tes variables avec la fonctions DCount.

sql = DCount("Matricule","Employés")
j = DCount("Matricule","Employés")

0