Type Variable Access
Magic
-
LatelyGeek Messages postés 1774 Date d'inscription Statut Membre Dernière intervention -
LatelyGeek Messages postés 1774 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Type Variable Access
- Clear type - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Cannot access offset of type string on string - Forum PHP
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme