{Access} problème de requête
Résolu/Fermé
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
-
17 juin 2009 à 13:12
Utilisateur anonyme - 19 juin 2009 à 10:09
Utilisateur anonyme - 19 juin 2009 à 10:09
A voir également:
- {Access} problème de requête
- Access appdata - Guide
- Il y a eu un problème avec cette requête. nous travaillons à sa résolution aussi vite que nous le pouvons. - Forum Facebook
- Exemple base de données access à télécharger gratuit - Forum Access
- Acer quick access - Forum Logiciels
- You don't have permission to access this resource ✓ - Forum Réseaux sociaux
29 réponses
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
1
18 juin 2009 à 10:23
18 juin 2009 à 10:23
tu vois ou pas ?
Utilisateur anonyme
18 juin 2009 à 10:28
18 juin 2009 à 10:28
Euh attends qu'est ce qui génère la vérification c'est un bouton???
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
1
18 juin 2009 à 10:46
18 juin 2009 à 10:46
oui c'est un bouton
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
1
18 juin 2009 à 10:56
18 juin 2009 à 10:56
pourquoi cela change quelque chose ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
1
18 juin 2009 à 11:46
18 juin 2009 à 11:46
?
une autre question le signe différent en vb sous access c'est quoi ?
une autre question le signe différent en vb sous access c'est quoi ?
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
1
19 juin 2009 à 09:28
19 juin 2009 à 09:28
tu as la réponse ou pas ?
Utilisateur anonyme
19 juin 2009 à 09:31
19 juin 2009 à 09:31
SAlut,
le signe différent de en ACCESS c'est sa ===> <>
et est-ce que tu peux me mettre le code de ton bouton car je suis perdu sans matière...Merci
le signe différent de en ACCESS c'est sa ===> <>
et est-ce que tu peux me mettre le code de ton bouton car je suis perdu sans matière...Merci
nikos le grec
Messages postés
102
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
25 juin 2009
1
19 juin 2009 à 09:38
19 juin 2009 à 09:38
Private Sub btnVerification_Click()
Dim bdd As Database
Dim Rst As Recordset
Set bdd = CurrentDb
Set Rst = bdd.OpenRecordset("SELECT DAS.* FROM DAS")
If Not Rst.EOF Then
Rst.MoveFirst
Do
If ([Form_fNouveaudas].NUMDAS) = Rst.Fields("N°DAS") Then
MsgBox "tout compris mec ..."
Else
Rst.MoveNext
End If
Loop Until (NUMDAS.Value = Rst.Fields("N°DAS")
End If
End Sub
Dim bdd As Database
Dim Rst As Recordset
Set bdd = CurrentDb
Set Rst = bdd.OpenRecordset("SELECT DAS.* FROM DAS")
If Not Rst.EOF Then
Rst.MoveFirst
Do
If ([Form_fNouveaudas].NUMDAS) = Rst.Fields("N°DAS") Then
MsgBox "tout compris mec ..."
Else
Rst.MoveNext
End If
Loop Until (NUMDAS.Value = Rst.Fields("N°DAS")
End If
End Sub
Utilisateur anonyme
19 juin 2009 à 10:09
19 juin 2009 à 10:09
Jten ai fait un qui fonctionne adapte le a ton code et dit moi après ... attention au quotes et tout sa
Private Sub verif_Click()
Dim bdd As DAO.Database
Dim Rst As DAO.Recordset
Set bdd = CurrentDb
If IsNull(NUMDAS) Then
MsgBox "Rentre un nombre", vbCritical
Else
If IsNumeric(NUMDAS) = False Then
MsgBox "Ceci n'est pas un nombre", vbCritical
Else
Set Rst = bdd.OpenRecordset("SELECT N°DAS FROM DAS WHERE N°DAS = " & NUMDAS.Value & " ")
If Not Rst.EOF Then
MsgBox "tout compris mec ..."
Else
MsgBox "rien compris mec ..."
End If
End If
End If
End Sub
Private Sub verif_Click()
Dim bdd As DAO.Database
Dim Rst As DAO.Recordset
Set bdd = CurrentDb
If IsNull(NUMDAS) Then
MsgBox "Rentre un nombre", vbCritical
Else
If IsNumeric(NUMDAS) = False Then
MsgBox "Ceci n'est pas un nombre", vbCritical
Else
Set Rst = bdd.OpenRecordset("SELECT N°DAS FROM DAS WHERE N°DAS = " & NUMDAS.Value & " ")
If Not Rst.EOF Then
MsgBox "tout compris mec ..."
Else
MsgBox "rien compris mec ..."
End If
End If
End If
End Sub