Erreur d'exécution 3464: Type de Données incompatible dans l'expression des critères

J'ai un formulaire dans Access 2010 avec Deux zones de texte(AIPIDTxt d'entrer les critères de recherche et AIPResultTxt à l'affichage des résultats) et un Bouton(bouton Rechercher). J'ai aussi une Table Table1 dans l'Accès. Quand je clique sur le Bouton de Recherche, j'ai besoin d'exécuter une requête dont les critères est dans AIPIDTxt zone de texte dans le formulaire, stocker le résultat dans un jeu d'enregistrements et afficher les résultats dans la zone de texte AIPResultTxt. Donc j'ai tapé le Code VBA suivant dans le gestionnaire d'Événements de Bouton.

Private Sub SearchB_Click()

Dim localConnection As ADODB.Connection
Dim query As String
Dim aipid_rs As ADODB.Recordset
Dim db As Database

Set db = CurrentDb
Set localConnection = CurrentProject.AccessConnection
MsgBox "Local Connection successful"
query = "SELECT [AIP Name] FROM [Table1] WHERE [AIP ID]= 
" & [Forms]![AIPIDSearchF]![AIPIDTxt] & ""
Set aipid_rs = db.OpenRecordset(query)
Me.AIPResultTxt.Text = aipid_rs![AIP Name]
End Sub

Mais quand je clique sur le bouton je reçois Local, Connexion Réussie Boîte de Message et puis une Erreur d'Exécution 3464 dans la ligne:

Set aipid_rs= db.OpenRecordset(query)

J'ai cherché pour les mêmes erreurs et corrections apportées. Mais l'erreur ne cesse de revenir. Est-il quelque chose de mal avec ma requête? Ne pouvait pas trouver l'erreur. La table est une table locale. Donc, je peux donner directement de l' [Table1] et les noms de champ dans la requête en vba. Essayé d'ajouter des séparateurs parce que les champs sont des champs de texte. Mais cela ne fonctionne pas ainsi. Je ne pourrais pas faire la requête suivante ainsi:

query = "SELECT [AIP Name] FROM [Table1] WHERE [AIP ID]= " & [Forms]![AIPIDSearchF]!
[AIPIDTxt].Text & ""

Cela m'a donné une erreur indiquant que le texte ne peut pas être référencé à partir de contrôles qui ont perdu le focus. Mes critères est le texte dans la zone de texte. La zone de texte perd le focus lorsque je clique sur le bouton. Mais quand j'ai googlé pour l'erreur, des solutions sont à retirer ".Texte". Donc, j'ai fini avec la requête ci-dessus. Ne sais pas quel est le problème avec la ligne:

Set aipid_rs= db.OpenRecordset(query)

Quel est le type de données de la colonne "AIP_ID"?
AIP ID de type de données Texte
Vous avez besoin de mettre des guillemets autour de votre valeur de la requête.
J'ai donné ceci: query = "SELECT [AIP Nom] DE [ACH] OÙ [AIP ID]= '" + [Formulaires]![AIPIDSearchF]![AIPIDTxt] + "'" Ensemble aip_rs = db.OpenRecordset(requête) Moi.AIPResultTxt.SetFocus Moi.AIPResultTxt = aipid_rs![AIP] Nom de L'erreur d'exécution 3464 est allé. Mais j'obtiens l'Erreur d'Exécution 91: Objet ou Variable de Bloc with non définie
Peut-être il n'y a pas des résultats?
Est votre formulaire d'ouverture/actif lors de l'exécution de la requête?

InformationsquelleAutor Prithvi Raj | 2014-02-26

2

Je soupçonne que vous avez plus d'un problème avec ce code. Mais l'Accès se plaint seulement le premier problème qu'il trouve. Regarde à nouveau ces 2 lignes ...
```
Dim aipid_rs As ADODB.Recordset
Set aipid_rs = db.OpenRecordset(query)
```
OpenRecordset est un DAO méthode qui renvoie un jeu d'enregistrements DAO. Mais le code tente d'attribuer à aipid_rs qui a été déclaré As ADODB.Recordset. Ces types de jeu d'enregistrements ne sont pas compatibles.

Il y a un objet ADO connection variable, localConnection, qui ne sert à rien plus tard. Bien qu'il ne déclenche pas une erreur, c'est tout simplement pas utile. Et en fait, je ne vois pas de raison d'utiliser quoi que ce soit à partir d'ADO pour cette tâche.

Je vous suggère d'essayer cette version de votre code ...
```
'Dim localConnection As ADODB.Connection
'Dim query As String ' query is a reserved word
Dim strQuery As String
'Dim aipid_rs As ADODB.Recordset
Dim aipid_rs As DAO.Recordset
Dim db As Database

Set db = CurrentDb
'Set localConnection = CurrentProject.AccessConnection
'MsgBox "Local Connection successful"
' you said [AIP ID] is text type, so include quotes around 
' the text box value
strQuery = "SELECT [AIP Name] FROM [Table1] WHERE [AIP ID]= '" & _
    [Forms]![AIPIDSearchF]![AIPIDTxt] & "'"
Debug.Print strQuery
DoCmd.RunCommand acCmdDebugWindow
Set aipid_rs = db.OpenRecordset(strQuery)
'Me.AIPResultTxt.Text = aipid_rs![AIP Name] ' .Text property is only
    ' available when control has focus; it will trigger 
    ' an error at any other time                           
Me.AIPResultTxt.Value = aipid_rs![AIP Name]
```
Note Debug.Print strQuery va afficher le texte de la SELECT instruction dans la fenêtre exécution, et DoCmd.RunCommand acCmdDebugWindow ouvre la fenêtre exécution. Si vous avez encore un problème avec la requête, copier le texte de l'instruction et de la coller dans SQL Vue d'une nouvelle requête pour le test.

Enfin, je suis curieux de savoir si cela pourrait vous donner ce dont vous avez besoin, avec beaucoup moins de code ...
```
Private Sub SearchB_Click()
    Me.AIPResultTxt.Value = DLookup("[AIP Name]", "Table1", _
        "[AIP ID]='" & Me.AIPIDTxt & "'")
End Sub
```
InformationsquelleAutor HansUp

Vous utilisez un jeu d'enregistrements ADO, donc votre ouvrir la syntaxe est incorrecte. Les éléments suivants doivent travailler pour vous (sauf si vous pouvez obtenir une erreur de mise en place du texte si le contrôle n'a pas l'accent...)

Dim localConnection As ADODB.Connection
Dim query           As String
Dim aipid_rs        As ADODB.Recordset
Dim db              As Database

Set db = CurrentDb
Set localConnection = CurrentProject.AccessConnection
MsgBox "Local Connection successful"
query = "SELECT [AIP Name] FROM [Table1] WHERE [AIP ID]= '" & [Forms]![AIPIDSearchF]![AIPIDTxt] & "'"
'Set aipid_rs = db.OpenRecordset(query)
Set aipid_rs = New ADODB.Recordset
aipid_rs.Open query, localConnection, adOpenStatic, adLockReadOnly
If Not aipid_rs.EOF Then
    Me.AIPResultTxt.Text = aipid_rs![AIP Name]
Else
    MsgBox "No records!!"
End If
aipid_rs.Close
Set aipid_rs = Nothing
localConnection.Close
Set localConnection = Nothing
db.Close
Set db = Nothing

InformationsquelleAutor Wayne G. Dunn

0

OK, Donc j'ai été à la recherche pour une recherche simple de l'élément depuis un certain temps...
J'ai essayé d'utiliser des sous-formulaires et j'ai essayé des jeux d'enregistrements. Tous ces m'ont donné l'information. Mais pas la compacité que je cherchais, merci!!!

à l'aide de la DOA stuf est super, mais pas pour mon application.
à l'aide de la ci-dessus:

Me.AIPResultTxt.Value = DLookup("[AIP Name]", "Table1", _ "[AIP ID]='" & Me.AIPIDTxt & "'")

J'ai la compacité de code que je cherchais...
Merci!!!
T

InformationsquelleAutor Team Renegade Prodcutions

Vous devez vous connecter pour publier un commentaire.