I have several subform tabs and one that I have updated no longer shows up when I run the form on Form mode. The tab is there but no content or details of the subform
When I click on the design mode of a query object, generally MS Access defaults to the GUI design view... but in this one application, the design view is pulling up queries in SQL mode first...
If I want to set it to the GUI design mode, I have to either hit design again or run the query then hit design to have it pull up in the regular design mode. Is there a setting or something I am missing? Seems that it only does this when the SQL code is reltively involved (i.e. the simpler queries pull up in the normal design view.
I now understand that when opening and saving crosstab queries Access (2010) runs that query to ascertain the column names. Unless you hard-code them. Running the query takes at least 20 minutes. I have hard-coded where I can, but one report takes arbitrary dates so I can't hard-code them.
I believe that turning off AutoCorrect might make a difference to whether the query runs - but I don't want to turn it off.
I have used Allen Browne's code (see http://allenbrowne.com/ser-16.html, bottom of page) as a model for my user-defined type and public function in an events management database.
Using the function in forms/VBA works fine.
But my DB crashes whenever I try to use it in a query.
My modules code: = = = Option Compare Database
Public Type EvCheks EvType As String EvAttCat As String EvUnitAss As String EvCheksAll As String End Type = = Public Function getEvCheks(EV, EvUnit) as EvCheks
'Event Type: Event or DL If (DLookup("evtype", "tblevents", "[evid] = " & EV)) = "Event" Then getEvCheks.EvType = "Y" Else: getEvCheks.EvType = "N" End If
'Event Attendance Category: INDB= in database or LIST If (DLookup("evattcat", "tblevents", "[evid] = " & EV)) = "INDB" Then getEvCheks.EvAttCat = "Y" Else: getEvCheks.EvAttCat = "N" End If
'Event Assessing Organisation Dim AOROName As String Dim AOName As String AOROName = DLookup("evunitassessable", "tblevunits", "[evunitid] = " & EvUnit) AOName = Mid([AOROName], 1, InStr([AOROName], "/") - 1)
Select Case AOName Case "NA" getEvCheks.EvUnitAss = "N" Case "ABCD" getEvCheks.EvUnitAss = "Y" Case Else getEvCheks.EvUnitAss = "X" End Select
getEvCheks.EvCheksAll = getEvCheks.EvType & getEvCheks.EvAttCat & getEvCheks.EvUnitAss End Function ==== On a form, I have a button with on-click event code that defines the EV and EVU variables and displays a message box MsgBox getEvCheks(EV, EVU).EvCheksAll
This works fine. ===== In a query I have this SQL code: SELECT tblEvUnits.EvId, tblEvUnits.EvUnitID, getevcheks([evid],[evunitid]) AS EventDetails FROM tblEvUnits;
This causes the db to crash.
I cannot get the "back-end" definition of the function into the query, as Access rejects it because of the dot, i.e. ".EvCheksAll".
I suspect there is some formatting quirk for using a public function that includes a user-defined type, in a query.
Hi! I am making a form that will be composed of two subforms. Each subform will be based on a differrnt table, however the tables are identicle as far as the number of columns. I designed form_1 to be based on table_1. Now, is there a way to copy form_1 (which will be changed to form_2 in the copied version) and redirect it to table_2?
I tried copy and pasting form_1, opened it in design view, looked at the Form properties, specifically: Data-> Record Source, and changed it to table_2, but.....the form didn't pick up table_2 field names, values, etc. I am guessing this is not the way to do this but how does one do this? Thanks John
I have an old db. I would like to see the forms and tables so I can select them and make changes. I know there is a way to access those items on startup but I have forgotten how. When I bring up the db I see a form and I can get into VB for that form but I cannot see any embedded table, forms reports, etc.
I have a form which was locked down (ie Allow additions, allow edit and allow deletions were all set to no) on the Form property. I want to change this to allow edits so in design mode I changed the Allow Edits property to Yes.
I then went to Form view and was able to update fields on the form. When I exited the form it asked me if I wanted to save the changes so I clicked yes.
On going back into the form I can no longer update the fields I could before. Going into design mode I can see that Allow edits on the form property is set to no again.
What is happening here. There is nothing in the on load or other events to set this to no, besides this shouldn't change the form property should it?
I know I can get around it my setting the property in the form itself but why is the property getting reset in the first place.
I have an application that when in design master shuts down when I attempt to open a certain form. I have traced the problem to a linked field from another table, by creating a new form and ommitting the said field, problem is its a required field!
If I copy the database (Backup) and run it as a replica it does not happen, if I then convert the replica to design master it happens.
I have put much time in designing a form. After exiting and saving it, I cannot now open it. Only the Page Header shows, and I cannot get into 'Design' mode. I have tried repairing and compacting to no avail. Any ideas?
I have a form/subform that requires some fields from the Switchboard for its criteria. Last week due to no action on my part, it started asking for those values as Parameters instead (Forms!Data!txtInspDate), etc! The new form loads, but of course it is blank with no data. This happens if I load it from a command button or from the navigation sidebar... UNLESS I first load the switchboard in Design Mode, go to VBA window, then reload the Switchboard in Form Mode and press the button. From then on until I close the database, everything works fine!
I have a query where I want to see a percentage of executed demos. I currently have Name of the promo (group by), # of demos (group by), Status (criteria = E for executed demos, count) and Percentage: Status/# of demos. Everytime I run this query I get this message: "Data type mismatch in criteria expression." The only data in Status is either a O for open or an E for executed. The E in Status is the only criteria I have in the whole query. If I take the count function off Status, it runs, but does not give the right results. Does anyone know what I am doing wrong?
I just imported all of my objects (tables, forms, etc.) into a brand new database file and all of my forms are now full screen instead of the size I set them to in design. What caused this? I can't get them back to their normal size.
I am using Access 2007 but imported files into 2003 .mdb file.
When I try to compile the code below I get the error message 'Sub or Function not defined'. I'm using Access 2007.
Code: For x = 0 To 20 If Nz(rec1(x), "") <> Nz(rec2(x), "") Then DoCmd.SetWarnings False
strSQL = "INSERT INTO tblResults ([Version], CUSTOMER_ID, CUSTOMER_NAME, CUST_LONG_NAME,
[Code] ....
What I'm trying to do is compare two recorsdsets and if it finds a difference, record the result line from both recordsets in a new table. This worked fine until I tried to go beyond more than 21 records from recordset 2 to publish to the Results table.
The problem arises in the 2nd INSERT INTO... statement. I get the error and it highlights the rec2(20) value. I can enter anything after it (it doesn't have to be a recordset value) but the error still occurs and it wont compile. If I close the statement at Rec2(20) it works fine.
I'm working on a login form and *not thinking* I removed access to the submenu. I had already set the form up so that you either login correctly or exit the program. I'm working in code for the form and I know it's possible to reactivate the menu in code, I just don't know how. And I can't switch to design mode. The form is set up to not allow anything to happen until the correct login has been entered, and I either had a typo when I set up my test login or the program is bugged and only says it's incorrect....
I have quite a few user defined / custom functions which I would like to be available in any new database that I create without have to copy the VBA codes in a module each time. Basically, some sort of add-in that loads on MS Access startup may be (but I am not too sure - never created one). So something that will start with the MS Access Application and not just a particular database. I know excel addins can be copied to the XLStartup folder to achieve something like this in excel, but not sure about Access.
I have created user defined function for lastdayofweek, lastdayofmonth, and firstdayofmonth. When I apply this function to an expression in my query, it returns a julian date. How do I apply the format for the calendar date?
Maybe I am not calling my function correctly. Here's my functions below as well as my expression..
Function LastDayThisMonth() LastDayThisMonth = DateSerial(Year(Date), Month(Date) + 1, 0) End Function
Function FirstDayThisMonth() FirstDayThisMonth = DateSerial(Year(Date), Month(Date), 1) End Function
I have written a user defined function that calculates the end of the current month. This I named EndOfThisMonth. It works well as a function. Now I would like to use it as date criteria to include in a query. The function is included as such EndOfThisMonth().
The field on which this function is to enter as a criteria is another calculated date function called Due.
When I run this query I get an error message saying Undefined Function 'EndOfThisMonth' in expression.
I copied some VBA from one database to another. I didn't change anything and I am able to run it fine in the first database. But in the DB I pasted it to, I am received a Compile Error message with the XlApp As Excel.Application area highlighted.
Function OpenAutoCount() Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook
This is giving me the error 'User defined type not defined'. I know I have to set something in a list somewhere but have forgotten how to do that. Where to go, and what to set?