I'm looking for solution to this. I've already searched in this forum a lot of healines for this problem but none of them really helps me.
I know that We're not suposed to change static Querys and bla bla bla because they static and bla bla bla bla BUT.... the thing is...
I have this form with a lot of filters for a report. I Want to change the join fields and parameters according to what the user chose in the form and then run the report.
The Report Record source property needs to be populated with a query object. to do that I need to some how load the query and change its sql.
Dim Q as QueryDef set q = CurrentDB.QueryDef("MYQUERY")
I don't know what property I can use, MS HELP doesn't help actually when I type "Q." after the dot the list of properties doesn't show.
Code: TRANSFORM nz(count(T_qa.qaQAPK),0) AS SumOfQAs SELECT month(qaDate) AS QAmonth, Count(T_qa.qaQAPK) AS QAs FROM Q_ALL_qa GROUP BY Month(qaDate) PIVOT month([qaDate]) IN (1,2,3,4,5,6,7,8,9,10,11,12);
This query is record source for a report, then this report show all calculations in a form.
I have 7 of each (query + report) all showing on the same form.
All those queries calculate data for all departments.
In the form, I have placed a combobox.
What I want is to create a vba code which will add clause WHERE to all queries at the same time and then run it.
Code: WHERE qaDeptFK=Forms!F_CompLvl.cboDeptStats
However, if nothing has been selected in the combo, I want the queries to calculate data as normal, for all departments.
Where do I place the vba statement? Is it under combobox AfterUpdate event?
I am planning to use this: (As I never done it before) [URL] .... Modifying SQL On-The-Fly section
So I had this code working and then I cleaned it up a little and it no longer works. It should export data from a created query using criteria selected by the user on a form and put it into an excel file that exists. I get no errors but it does not export anymore. After pouring over it for a while checking for mistakes with my form control references and variables I have yet to find anything. I did change my form name and edited the code accordingly after I already had it working, and changed a few form settings but changing them back did not fix the issue. I am not very experienced and stumped since I am not getting error messages.
Code:
'First set variables for the SQL string and CreateQueryDef command Dim strExport As String Dim qdf As dao.QueryDef 'Then define the SQL to be exported (Static Response Info by ItemID)
All I want to do is run a make table query (or append) and show the user how many records were processed. If I try to set recordset equal to the qdf.Execute I get the Compile error "Expected Function or variable".
I'm not sure what I'm missing...I've searched numerous threads and tried various combos of the execute method.
strquery = "qryEmailGenerate" Set db = CurrentDb Set qdf = db.QueryDefs(strquery) Set rs = qdf.Execute txtStatus = "Number of email recs: " & rs.RecordCount & vbCrLf
I have a form with 3 combo boxes that filter another form/report. The first combo (cboByCategory) contains options from 2 different fields within the same table. Before I added this add'l piece of code, all 3 combos worked fine. I am not getting error messages, it just does not filter on the other 2 combo boxes - cboDiv and cboGender.
Code: Private Sub cmdModifyRecords_Click() On Error GoTo Err_cmdModifyRecords_Click Dim stDocName As String Dim strFilter As String Dim stLinkCriteria As String stDocName = "Modify_OpenItems"
My question is which method of finding the last record is best, QueryDef or Recordset? Here is my data:
Table: tbl_module_repairs
Field: aps_rma
Textbox to insert last record RMA into: txt_test
Here is some code I tried but get an invalid argument msgbox:
''''''''''''''''''''''''''''''''' 'Opens last RMA into textbox (For opening tag sheet) Dim dbs As DAO.Database Dim rst As DAO.Recordset 'Get the database and Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tbl_module_repairs")
I have a query that searches for records that are between two dates using the WHERE clause. The two dates are referenced to two respective text boxes on a form. On the same form I have a button that will launch the query in VBA using querydefs. I get the error 3061 saying I need to input the parameters. Therefore I am a bit unsure how to set the parameters in VBA. So far I have done this:
Code:
Dim Db As DAO.Database Set Db = CurrentDb Dim QDef As DAO.QueryDef Dim rst As DAO.Recordset Set QDef = Db.QueryDefs("Rqt_F_BrokerageMandate_MF3_TEST")
[Code] ....
Where Date_VL is the field to be filtered. I know this is wrong but all examples I have seen have equated the parameter to a fixed value i.e 30/12/2012 for example, but I want this to be at the users discression. The only way I know of to get around this at the moment would be to write a temp query in VBA with PARAMETERS in the SQL code instead using the method above/
After this I'm going to assign the recordset to a matrix but that's a different story!
hi friends, i have tried had to connect sub type tabels (Saving, Checking, Loan... they have their own ids...) with super type (Account...it has account id...) on the condition of account_type (either "S","C" or "L") attribute in ACCOUNT entity. how to joint them??? with query or with expression?? i expect help from you.........please. ........thanks.
I have a table with a field with names set to text data type and i want to change it to number data type but when i do it in design view the data get lost. I want to know if there is a way to convert the data in the field as number type and keep the data in the field.
I posted this on the end of the audit trail thread but nobody was really looking at it. I have used the script for the audit trail, and when I start changing any of the records, it comes up with the error:
13 - Type Mismatch
When I ctrl - break, and debug, it highlights the last line of the script:
Hi all, I have a problem with the following piece of code:
Private Sub cmdCautare_Click() Dim strSQL As String, strOrder As String, strWhere As String 'Select Case Me.cmbTipVersus 'Case 1 'If Me.cmbTipVersus = "" Then strSQL = "SELECT tblDosare.DosarID, tblDosare.DenumireDosar, tblDosare.CodDosar, tblDosare.DataDosar, tblInstante.Localitate, tblStadiu.Data, tblStadiu.Stadiu FROM tblInstante INNER JOIN (tblDosare LEFT JOIN tblStadiu ON tblDosare.DosarID = tblStadiu.Dosar) ON tblInstante.InstantaID = tblDosare.Instanta" strWhere = "WHERE" strOrder = "ORDER BY DosarID" If IsNull(Me.txtDenumire) Or Me.txtDenumire = "" Then Else strWhere = strWhere & "(DenumireDosar) Like '*" & Me.txtDenumire & "*'" End If If IsNull(Me.cmbStadiu) Or Me.cmbStadiu = "" Then Else strWhere = strWhere & "(DenumireDosar) Like '" & Me.txtDenumire & "*' & " And " & (Stadiu) Like '" & Me.cmbStadiu & "*'" End If DoCmd.OpenForm "frmRezultateCautare", acNormal Forms!frmRezultateCautare!lstRezultate.RowSource = strSQL & " " & strWhere & "" & strOrder 'End If 'End Select End Sub
And on this line strWhere = strWhere & "(DenumireDosar) Like '" & Me.txtDenumire & "*' & " And " & (Stadiu) Like '" & Me.cmbStadiu & "*'" i have an error message type mismatch. If i do the search only with the first text box the code works hjust fine but if i make the search w.r. with the second control (combo box cmbStadiu) the error appears. If anyone can help i will appreciate it. Thank you all!
When exporting a table to excel is there anyway to presever the data structure - ie a text field of length 30 will only take text length 30, Interger would only take integer and date would only take date etc, etc ,etc.
Hi, Trying to get back into Access after a long time, just need some refreshing :) tips.
I have 2 tables, one of the tables stores titles (mr, mrs, etc). I tried using the 'lookup' data type to link the data from the other table. This however stores the field as a number and causes problems on my form as only a number is shown rather that the text.
Hey guys- I have a db where I'm not sure what kind of relationship I need to establish between the tables. I have a db that manages real estate properties and realtor information. Each record can have 3 separate Realtors represented (or, as little as 1 realtor). Each Realtor has their own office, or, might have the same office as the other realtors. So, one record can have anywhere from 1 to 3 Realtors associated with it.
I have a Property Table (holds all the info on the property as well as the Realtor's unique alphnumerica ID Code).
I have a Realtor Table (holds all the contact info for the Realtor, as well as their unique alphanumeric Office Code)
And I have a Realtor Office Table (holds the contact info of the Realtor's Office).
In the Properties table- I have 3 fields for the 3 separate Realtor's ID Codes (like an employee number). Let's call it Agent1Code, Agent2Code, and Agent3Code. There won't always be an Agent2 and Agent 3 in the data- but sometimes there is.
How do I set this up and establish the proper relationships?
I have a field defined with a Yes/No type. When it appears on the form instead of showing up with a Box with a checkmark, it shows up as -1 or 0. Any thoughts as to what could be the problem ?
I'm not really looking for code, just a clue as to what to read up on as I have been beating my head against the wall with this one. I can do it in about three steps but I am trying to do it in one. :confused:
The first table1 is like this: id Field1 Field2 Field3 1 TagNo44 Y Yes 2 TagNo5 C No 3 TagNo127 Q Maybe 4 TagNo4 T Perhaps 5 TagNo88 Z Probably Not 6 TagNo17 P Could be
The second table2 is like this: id Field1 Field2 Field3 1 TagNo44 Outfit6 30 2 TagNo44 Outfit14 70 3 TagNo127 Outfit14 100 4 TagNo4 Outfit3 100 5 TagNo88 Outfit3 50 6 TagNo88 Outfit8 50 7 TagNo5 Outfit7 100 8 TagNo17 Outfit92 100
Output table to be like this id Field1 Field2 4 TagNo4 Outfit3&100 2 TagNo5 Outfit7&100 6 TagNo17 Outfit92&100 1 TagNo44 Outfit14&70&Outfit6&30 5 TagNo88 Outfit3&50&Outfit8&50 3 TagNo127 Outfit14&100
Table1Field1 is in a one to many relationship to table2.field1 All fields are strings.
I have two text boxes - on different forms. I can copy the text from one and paste it into the other one ok. However, if I cut (Ctrl-X) from the first text box the second one is not enabled and I cannot do anything in it. Hope you can help.:confused:
I am persistently getting the "Error Number:13; Type Mismatch" with the code below. Any help is greatly appreciated... BTW, in the SQL string, i will like to have the wildcard as "*" but the VB Editor automatically changes it to " * "... can that be a problem??
Code:
Dim db As DAO.database Dim qdf As DAO.QueryDef Dim sqlsearch As String
Set db = CurrentDb
If Not QueryExists("Q_Paint") Then Set qdf = db.CreateQueryDef("Q_Paint") Else Set qdf = db.QueryDefs("Q_Paint") End If
If I have a table with day numbers (1 - 20) and there is a corresponding score for each day between 1 and 5. Is there a way of working out on what day (1-20) the score has been above 3 for the three previous days. Generally if I get pointed in the right direction I can nut out the code (but not always!)
