Error Code 3464 Access
Contents |
Today's Posts Search Community Links Social Groups Pictures & Albums Members List Calendar Search Forums Show Threads Show Posts Tag Search Advanced Search access 2010 run time error 3464 Find All Thanked Posts Go to Page... Page 1 of 2
Access Runtime Error 3464
1 2 > Thread Tools Rating: Display Modes 03-02-2005, 01:03 AM #1 Herwin Guest Posts:
Ms Access Error 3464
n/a Run-time error '3464': Data type mismatch in criteria expression Hallo, I'm getting the "data type mismatch in criteria expression" error on following piece of silly code. Anybody knows
Ms Access Error 3464 Data Type Mismatch
why? Private Sub Delete_ConsignmentH() Set Dbase = Application.CurrentDb sSQL = "DELETE * FROM consignmenth " sSQL = sSQL & "WHERE (((DateSerial(Left([CONSIGNMENTH]![DESPATCH DATE],4), " sSQL = sSQL & "Mid([CONSIGNMENTH]![DESPATCH DATE],5,2)," sSQL = sSQL & "Mid([CONSIGNMENTH]![DESPATCH DATE],7,2))) < Date()- " & DaysOld & "))" Dbase.Execute sSQL sAddevent "delete consignmentH klaar" End Sub Thanks in advance for your help. erreur 3464 access 03-02-2005, 02:58 PM #2 ByteMyzer AWF VIP Join Date: May 2004 Location: United States Posts: 1,358 Thanks: 0 Thanked 38 Times in 34 Posts Try: Code: Private Sub Delete_ConsignmentH() Set Dbase = Application.CurrentDb sSQL = "DELETE * FROM consignmenth " sSQL = sSQL & "WHERE (((DateSerial(CInt(Left([CONSIGNMENTH]![DESPATCH DATE],4)), " sSQL = sSQL & "CInt(Mid([CONSIGNMENTH]![DESPATCH DATE],5,2))," sSQL = sSQL & "CInt(Mid([CONSIGNMENTH]![DESPATCH DATE],7,2)))) < Date()- " & DaysOld & "))" Dbase.Execute sSQL sAddevent "delete consignmentH klaar" End Sub ByteMyzer View Public Profile Find More Posts by ByteMyzer 03-06-2005, 11:30 PM #3 Herwin Guest Posts: n/a This didn't work, either. 03-07-2005, 09:44 AM #4 WayneRyan AWF VIP Join Date: Nov 2002 Location: Camarillo, CA Posts: 7,064 Thanks: 4 Thanked 54 Times in 52 Posts Herwin, You don't say what [DESPATCH DATE] is. That would really help. Code: DoCmd.RunSQL "DELETE * " & _ "FROM consignmenth " & _ "WHERE CDate([DESPATCH DATE]) < DateDiff("d", Date(), DaysOld) sAddevent "delete consignmentH klaar" End Sub Wayne
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn run time error 3464 data type mismatch in criteria expression more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags access error 3464 data type mismatch in criteria expression Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like access vba data type mismatch in criteria expression you, helping each other. Join them; it only takes a minute: Sign up Run Time Error 3464: Data Type Mismatch in criteria expression up vote 1 down vote favorite I have a form in Access 2010 with Two http://www.access-programmers.co.uk/forums/showthread.php?t=82443 text boxes(AIPIDTxt to enter the search criteria and AIPResultTxt to display results) and a Button(Search button). I also have a Table Table1 in Access. When I click the Search Button, I need to execute a query whose criteria is in AIPIDTxt Textbox in the form, store the result in a recordset and display the results in the textbox AIPResultTxt. So I typed in the following VBA Code in the Button Event handler. Private Sub SearchB_Click() Dim http://stackoverflow.com/questions/22033553/run-time-error-3464-data-type-mismatch-in-criteria-expression 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 But when I click the button I get Local Connection Successful Message Box and then a Run Time Error 3464 in the line: Set aipid_rs= db.OpenRecordset(query) I have searched for similar errors and made corrections. But the error keeps coming. Is there something wrong with my query? Couldn't figure out the error. The table is a local table. So I can directly give [Table1] and field names in the query in vba. Tried adding delimiters because the fields are text fields. But that didn't work as well. I could not give the following query as well: query = "SELECT [AIP Name] FROM [Table1] WHERE [AIP ID]= " & [Forms]![AIPIDSearchF]! [AIPIDTxt].Text & "" This gave me a run time error stating text cannot be referenced from controls that have lost focus. My criteria is text in the text box. The text box loses focus when i click the button. But when I googled for the error, solutions were to remove ".Text". So, I ended up with the above query. Do not know what
be down. Please try the request again. Your cache administrator is webmaster. Generated Mon, 10 Oct 2016 22:43:17 GMT by s_wx1127 (squid/3.5.20)