OnDirty Not Responding As Expected

Mar 22, 2006

I have tried to display a message asking if you are sure you want to change data when you enter a field that already contains data. This is via a combo box.

Even when the entry is new, the message comes up. I have tried using OnDirty, OnChange, and AfterUpdate, but I always get the message on new input. Any suggestions?

Thanks

View Replies


ADVERTISEMENT

Not Responding

May 20, 2005

Whats the causes of Access not responding - and how do I prevent it?

It happens on some forms - which most of the time work fine - then suddenly "Not responding" and things stop until access feels like responding again! :(

Can anyone point me in the right direction - Thanks, Paul

View 2 Replies View Related

Access Not Responding

Nov 21, 2007

Hi

Does anyone know how to overcome MS Access not responding error. I am trying to change a Data Type on Access 2003 but the data is large and stops responding. There are about 550 000 records in one of my tables and when i try to change the data type after importing the data, it crashes.

I am using a pentium 4 with 1GB Memory

Thanks

View 4 Replies View Related

Macros Not Responding

Jan 17, 2006

I am using Office 2003 on XP. I have a number of reports generated by macros in the database. Once I moved the application to a different pc the macros don't respond, I have set the macro security to low and still no. If I operate the application through the network all works fine but using at the pc no. Any suggestions?

View 2 Replies View Related

PasteAppend - Clipboard Not Responding

Oct 11, 2007

I have created an Access Front End Database that many people in one of the departments use. Each user has their own copy of the Front End on their Computer. The Back End is on a SQL Server.

On one of the forms I created a Duplicate Record Button using the Wizard in Access. I have ONE user who has trouble using this button.

She uses it to copy records over and over and over. Then she changes just a few pieces of data as needed.

She often gets one of two error messages:
The Clipboard isn't responding, so Commercial Workflow(name of DB) can't paste the Clipboard's contents.

or

The command or action 'PasteAppend' isn't available now.

I have tried to recreate these errors on my computer with my front end. My Front End is the master they copy from. But I can not recreate the error.

I did check a few things on her front-end and my front end and found 1 setting different
On the Clipboard there is an options button and the first setting “Show Office Clipboard Automatically" on my front end is not checked and hers was checked. I changed that and the next day she was still having problems.

I have done a lot of searching on this and I just keep coming up at a dead end. Can anyone out there help me?

View 1 Replies View Related

Access Keeps Not Responding When Trying To Run A Query

Jun 28, 2012

in this query, I have about 25 small queries, 3 fields each, each linking to this one big table where one field of each query links to one field of the big table. Whenever I run the query, my program hangs up and I'm eventually forced to force-quit it. Is it because my computer isn't strong enough (it's your typical desk top computer for an office job) or could it be because the servers in which all the access databases are stored on aren't very good networks?

View 2 Replies View Related

Query Not Responding: Empty Fields?

Jun 26, 2006

Query not responding: empty fields?

I have a table with a field 'Fax number', type: text (since occasionally we write a comment in there, like 'prohibited').

Some records have fax numbers, others are empty.

I want to find all records which do have a fax number. So I wrote into the Query: "is not null", expecting to get only the records which have a fax number or some text in them.

In fact, all records came up in the query, empty as well as non-empty fax fields.

I was wondering if the 'empty field' had a blank space in them, but could not find any. Tried backspace key, but there was nothing to backspace on.

I used the find-replace utility and searched for single space in Whole Field. It picked out quite a few records, but not all - so something invisible seems to be there.

However, when I opened the 'replace' window of find/replace, and had the replace window empty, then clicked 'replace', the msg came 'Access cannot find the specified text'.

What am I doing wrong? What do I have to do to get the query to work?

Thanks,

Adrian

View 4 Replies View Related

Modules & VBA :: Do Until Causes Access To Stop Responding

Dec 24, 2013

I'm using the following code:

Code:
Private Sub Form_Timer()
Dim LocalTime, StartWindow, EndWindow As Date
LocalTime = Format(TimeValue(Now()), "hh:mm")
StartWindow = #11:46:00 AM#
EndWindow = #11:48:00 AM#
Dim Response

[Code] ....

The intent is to run automated back end maintenance activities while giving the user the option to delay it if they're in the middle of something.

My logic is as follows:

If it's between these two times, ask the user if the maintenance can run.
If user says yes, run maintenance.
If user says no shift the two times to the right and ask again in a few minutes.

As it is written, when I chose no I get an hourglass icon and if I try to do anything else Windows tells me Access isn't responding. I'm guessing that Access is hanging since I've initiated the Do Until and then stalled it by telling it to wait 3 minutes before it goes to the next step. I suspect that if I waited it out, when the new Startwindow hit I would be asked about running the maintenance again.

My issue is that I need the database to remain responsive to whatever the user needs to do while I wait to ask about running maintenance again. Therefore, I don't think Do Until is my answer - at least not the way I've implemented it.

The will ultimately be set on a 10 minute timer interval and start/end window will be 01:00 and 01:15 AM respectively. The times you see above are there for testing so I can see what happens.

View 3 Replies View Related

Modules & VBA :: Access Not Responding After Procedure

Mar 21, 2014

This is a real conundrum. The following procedure works well the first time through but on subsequent times the database just goes into "Not Responding" mode and has to be restarted. I have tried putting delays in but with little success.

The idea of the procedure is to rename a query, "Daily Logs" to include a specific date "TransDate" so that when the query is sent via Outlook the Excel file name appears for example as Daily Logs 21-03-14.

DoCmd.CopyObject "", "Daily Logs " & Format(Me![TransDate], "dd-mm-yy"), acQuery, "Daily Logs"
DoCmd.SendObject acQuery, "Daily Logs " & Format(Me![TransDate], "dd-mm-yy"), "Excel97-Excel2003Workbook(*.xls)", "someone@dorsetglidingclub.co.uk", "", "", "Daily Logs " & Format([TransDate], "dd-mm-yy"), "", True, ""
DoCmd.DeleteObject acQuery, "Daily Logs " & Format(Me![TransDate], "dd-mm-yy")

This procedure might seem clumsy but was the only way I could think of the achieve the objective.

View 10 Replies View Related

Forms :: New Controls On Form Are Not Responding

Jul 28, 2015

my form consited of 4 pages and controlled by query (joined 2 tables). I added a new table to the query and another page to the form . This page contains several controls (option, check boxes, combo boxes, text boxes) with source - fields of a new table added to the query. None of the controls on the new page respond.

View 5 Replies View Related

General :: Access 2003 Automatically Responding To Prompts

Jan 16, 2013

I am relatively new to Access and I was wondering if there is a way to automatically respond to delete table prompts when running a macro.

Currently I am running a macro that takes about 2 hours, and sporatically asks 'are you sure you want to delete table x'. I have to check on it every 10min or so to respond 'yes' or it will pause the macro. Quite a hassle if I am busy with other tasks and forget to check it.

View 4 Replies View Related

Too Few Parameters. Expected 1.

Jun 8, 2007

I am using Access to run my database. I am using Coldfusion to power the website. What I need to do is be able to update some fields. The problems first start in the select query, however.

There are two different forms. One that is a select box that has the options of "Buyers", "Sellers", "Newsletter". Onchange the select box (named "page"). When I submit that box it needs to populate a second box. That box is populated with the information found in the table that is selected in the first box.

Here is the query that it is using to get the information to populate:

SELECT RE.Information, RE.Page
FROM RE
WHERE (((RE.Page)="#form.page#"));

Does anyone see a problem?

Here's the result:

] Too few parameters. Expected 1.

The error occurred in D:Inetpubaheart4homeadmineditpages.cfm: line 10

8 : SELECT RE.Information, RE.Page
9 : FROM RE
10 : WHERE (((RE.Page)="#form.page#"));
11 : </cfquery>
12 : </cfif>


Thanks,
Brandon

View 2 Replies View Related

Too Few Parameters Expected.1

Nov 2, 2006

I have write the following code but on execution gives the following error. "Too few parameters. Expected.1"

the code is myQuery = "INSERT INTO SummaryHistory (HTimeStamp, HDiaryNo, HDiaryDate, HRecivedFrom, HSentTo, HReffrenceNo, HSentDate, HPageFrom, HPageTo, HRemarks, SummaryID) "

myQuery = myQuery + " VALUES ('" & myTimeStamp & _
"', '" & myDiaryNo & _
"', " & myDiaryDate & _
", '" & myRecivedFrom & _
"', '" & mySentTo & _
"', '" & myReffrenceNo & _
"', " & mySentDate & _
", " & myPageFrom & _
", " & myPageTo & _
", '" & myRemarks & _
"', " & myID & _
" )"

CurrentDb.Execute (myQuery)

on this last line its give error

any idea

View 1 Replies View Related

General :: Microsoft Access 2010 Not Responding When Trying To Filter Columns

Sep 17, 2014

In Windows 8, when we try to use the filter option in Microsoft Access 2010 using the keyboard option (arrow keys), the application stops responding.

The error occurs only if the rows are more than 300. However, using the mouse pointer works fine to filter content.

This error doesn't occur in Windows XP for the same Access database and for same version of access.

We have also tested using windows 8.1 with access 2010.Same error occurs even for windows 8 pro with access 2010.

The error is shown in the screenshot below.

acc.png
access12.png

View 2 Replies View Related

Queries :: Numbering Column Causing Query To Stop Responding

Aug 5, 2013

I ran some code to number old records in a column to order items in a datasheet subform however after updating the column in the inventory transactions table when opening the main form that relies on it. It runs a query to determine the customers balance due and the query for that is taking forever to run like 2-3 minutes or more however reverting to an old copy of the data it runs fine and all I did was renumber records in one column most of which had 1s in them the code to re-number the records:

Code:
Dim rst As DAO.Recordset
Dim i As Long
Dim OID As Long
Dim stringSQL as String
i = 1

[Code] .....

I continued playing with this today and the query that is breaking the 2nd level subquery that actually references the inventory transactions table that I changed runs fine but go up a level to subquery1 which references subquery2 and a sum of payments query and it chokes however sum of payments only refernces the payments table.

I did some more testing today Subquery2 and sum of payments query both run faster than what I can time with a stopwatch but when combined they take approximately 1:45 there are only 5 columns in subquery1 four from subquery2 and 1 from the sum of payments 3 of the first 4 are sum and the last is group by and then the one from sum of payments is group by

Subquery 2:

Code:
SELECT
CLng((nz([UnitsSold])*nz([UnitPrice]))*(1-nz([Discount]))*100)/100 AS [Line Total],
CLng([Line Total]*(1+nz([SalesTaxRate]))*100)/100 AS [Line Total With Tax],
[Line Total With Tax]-[Line Total] AS [Line Tax],
[Inventory Transactions].*

[Code] .....

View 3 Replies View Related

General :: Access 2010 - Database Not Responding When Fields Selected

Jan 8, 2015

For some reason our database keeps "not responding" ...

The application stops responding when:A field is selected that has a input mask

A combo box is highlighted (forcing the drop-down menu to open)

Certain buttons are pressed (in fact all but two trigger not responding, why the two buttons are immune)

if I put a break point on a section of code that runs when I press a button (any button, it doesnt matter) and I then press the button which takes me to VBA, to the break point. Then I press F5 to continue to run the code until the function ends (essentially doing nothing, just running the code to the soonest break point I can in the function and then running the rest of the code as normal...) it all works fine again!!!!

I fixed the issue by creating the function:

Code:
Sub aiuewjgaop()
End Sub

saved the database, deleted the function and then saved the database again.

View 1 Replies View Related

Error: Too Few Parameters. Expected 1

Feb 11, 2008

Hi All,I am getting problem "Error: too few parameters. Expected 1" when following Query is executed to updated a Flag Value in a table on Click event of a Submit button. CurrentDb.Execute "UPDATE Scheduled_Appointment SET Is_Taken = 1 WHERE Scheduled_Appointment_ID LIKE Me.Sch_P_ID"Where:Table: Scheduled_AppointmentColumn: Scheduled_Appointment_ID [Primary Key]Column: Is_Taken [ColumnType = Number ]Text Field: Me.Sch_P_ID [contains the Scheduled_Appointment_ID value for the selected Record on the Form]Thanks in Advance.

View 2 Replies View Related

Run-time Error '3061'- Expected 1

Jan 18, 2006

I have a error I need help with. Here is my code for my Global, and My Form Current: See the red for the Error Line, that show up in the VBE and the Blue is the code related to that line. I am using access 2003

'Declare all variables for right-side record counter
Dim bdg As DAO.Recordset
Dim swr As DAO.Recordset
Dim wtr As DAO.Recordset
Dim dmo As DAO.Recordset
''Dim dvt As DAO.Recordset
Dim occ As DAO.Recordset
Dim fre As DAO.Recordset
Dim swrlat As DAO.Recordset
Dim wrtlat As DAO.Recordset

Dim bdgCount As Integer
Dim swrcount As Integer
Dim wtrcount As Integer
Dim dmocount As Integer
Dim dvtcount As Integer
Dim occcount As Integer
Dim frecount As Integer
Dim countswr As Integer 'laterial counter
Dim countwtr As Integer 'laterial counter

Dim sqlbdg As String
Dim sqlswr As String
Dim sqlwtr As String
Dim sqldmo As String
''Dim sqldvt As String
Dim sqlocc As String
Dim sqlfre As String
Dim sqlswrlat As String
Dim sqlwtrlat As String

Dim db As DAO.Database


Private Sub Form_Current()
Set db = CurrentDb()
'Use SQL strings to pull data from the tables
sqlbdg = "SELECT [Building].[PIN] FROM Building WHERE [Building].[PIN]='" & Me![ADDRESS3] & "' ;"
sqlswr = "SELECT [Sewerform].[PIN] FROM [SEWER SERVICE LATERALS] WHERE [Sewerform].[PIN]='" & Me![ADDRESS3] & "' ;"
sqlwtr = "SELECT [water].[PIN] FROM [WATER SERVICE LATERALS] WHERE [water].[PIN]='" & Me![ADDRESS3] & "' ;"
sqlswrlat = "SELECT [SewerMain].[PIN] FROM [SEWER MAIN PRBLEMS] WHERE [SewerMain].[PIN]='" & Me![ADDRESS3] & "' ;"
sqlwtrlat = "SELECT [WaterMain].[PIN] FROM [WATER MAIN PROBLEMS] WHERE [WaterMain].[PIN]='" & Me![ADDRESS3] & "' ;"
sqldmo = "SELECT [Demolition Permits].[PID] FROM [Demolition Permits] WHERE [Demolition Permits].[PID]='" & Me![ADDRESS3] & "' ;"
''There is no PIN field in the development table ==> sqlwtr = "SELECT [Development Permits].[PIN] FROM [Development Permits] WHERE [Development Permits].[PIN]='" & Me![ADDRESS3] & "' ;"
sqlocc = "SELECT [Occupancy].[PIN] FROM Occupancy WHERE [Occupancy].[PIN]='" & Me![ADDRESS3] & "' ;"
sqlfre = "SELECT [Freeze].[PIN] FROM Freeze WHERE [FREEZE].[PIN]='" & Me![ADDRESS3] & "' ;"

Set bdg = db.OpenRecordset(sqlbdg, dbOpenSnapshot)
Set swr = db.OpenRecordset(sqlswr, dbOpenSnapshot)
Set wtr = db.OpenRecordset(sqlwtr, dbOpenSnapshot)
Set dmo = db.OpenRecordset(sqldmo, dbOpenSnapshot)
''Set dvt = db.OpenRecordset(sqldvt, dbOpenSnapshot)
Set occ = db.OpenRecordset(sqlocc, dbOpenSnapshot)
Set fre = db.OpenRecordset(sqlfre, dbOpenSnapshot)
Set swrlat = db.OpenRecordset(sqlswrlat, dbOpenSnapshot)
Set wrtlat = db.OpenRecordset(sqlwtrlat, dbOpenSnapshot)

'Building recordset
On Error Resume Next
If bdg.EOF And bdg.BOF = True Then
bdgCount = 0
Else

With bdg
.MoveFirst
.MoveLast
bdgCount = .RecordCount
End With

End If

'Sewer recordset
On Error Resume Next
If swr.EOF And swr.BOF = True Then
swrcount = 0
Else

With swr
.MoveFirst
.MoveLast
swrcount = .RecordCount
End With

End If

'Water recordset
On Error Resume Next
If wtr.EOF And wtr.BOF = True Then
wtrcount = 0
Else

With wtr
.MoveFirst
.MoveLast
wtrcount = .RecordCount
End With

End If
'Sewer laterial recordset
On Error Resume Next
If swrlat.EOF And swrlat.BOF = True Then
countswr = 0
Else

With swrlat
.MoveFirst
.MoveLast
countswr = .RecordCount
End With

End If

'Water laterial recordset
On Error Resume Next
If wrtlat.EOF And wrtlat.BOF = True Then
countwtr = 0
Else

With wrtlat
.MoveFirst
.MoveLast
countwtr = .RecordCount
End With

End If

'Demolition recordset
On Error Resume Next
If dmo.EOF And dmo.BOF = True Then
dmocount = 0
Else

With dmo
.MoveFirst
.MoveLast
dmocount = .RecordCount
End With

End If

'Development recordset
''On Error Resume Next
''If dvt.EOF And dvt.BOF = True Then
dvtcount = 0
''Else

''With dvt
'' .MoveFirst
'' .MoveLast
'' dvtcount = .RecordCount
''End With

''End If

'Occupancy recordset
On Error Resume Next
If occ.EOF And occ.BOF = True Then
occcount = 0
Else

With occ
.MoveFirst
.MoveLast
occcount = .RecordCount
End With

End If

'Freeze recordset
On Error Resume Next
If fre.EOF And fre.BOF = True Then
frecount = 0
Else

With fre
.MoveFirst
.MoveLast
frecount = .RecordCount
End With

End If

'Set the values of the recordcounts to the appropriate text boxes

txtbdgcount.SetFocus
txtbdgcount.Text = bdgCount
txtswrcount.SetFocus
txtswrcount.Text = swrcount
txtwtrcount.SetFocus
txtwtrcount.Text = wtrcount
txtdmocount.SetFocus
txtdmocount.Text = dmocount
txtdvtcount.SetFocus
txtdvtcount.Text = dvtcount
txtocccount.SetFocus
txtocccount.Text = occcount
txtfrecount.SetFocus
txtfrecount.Text = frecount
txtcountswr.SetFocus
txtcountswr.Text = countswr
txtcountwtr.SetFocus
txtcountwtr.Text = countwtr


PARID.SetFocus


' Provide a record counter for using with
' custom navigation buttons (when not using
' Access built in navigation)

Dim rst As DAO.Recordset
Dim lngCount As Long

Set rst = Me.RecordsetClone

With rst
.MoveFirst
.MoveLast
lngCount = .RecordCount
End With

'Show the result of the record count in the text box (txtRecordNo)

Me.Text34 = "Record " & Me.CurrentRecord & " of " & lngCount
End Sub

View 6 Replies View Related

Err Msg : External Table Is Not In The Expected Format.

Feb 4, 2007

A lady at work created an Access database that imports a dBase 5 file and when I go to import this file on User #1 PC it gives the error;

"External table is not in the expected format."

I can use the same Access database and same dBase file to import (stored on a shared network drive) from User #2 & #3's PC's and all works well. The only problem is that it is User #1 job to do this.

I unloaded Access 2003 and reloaded it and still the same results. All 3 PC's are identical via hardware and software.

It use to work until this past Tuesday when it started to give the error.

My steps are:
open the "Sales" Access database
select the prices table
Get External Data / Import and then select Prices.dbf
Then the error message comes up.

I am not an Access database guy and could use some help!

Thanks

WhooTAZ

View 2 Replies View Related

Query Returning MORE Results Than Expected

Mar 2, 2007

Hi all:

running access 2000. I have a query that I selected to return the Top 1 record sorted descending on the date so it would pick the most recent entry. I did it by selecting Top 5 from the drop down box in query design mode and then changed the 5 to a 1 using SQL View from qry design.

SELECT TOP 1 Class.CourseID, User.UserName, Class.TrainerID, Class.ClassLocationID, Class.ElapsedTime, Class.ClassDate, Class.Comments
FROM [User] INNER JOIN Class ON User.UserID = Class.UserID
ORDER BY Class.ClassDate DESC;

It still gives me as many records as are entered on the system. How can I get JUST the most recent record entry?

thanks:confused:

View 3 Replies View Related

Query Not Returning All Expected Data

Sep 7, 2007

O.k. I have a query working, and it's calculating perfectly and I'm reporting on it fine. However I noticed that when I run the query it doesn't populate the equation for all the results. Let me explain further.

I have a main form for tracking company information, and a sub form that tracks departments for that company and waste breakdown information. We take measurements for the company in two ways. 1 - a total weight for the day, and 2 - we weigh out categories of waste (within the sub form that tracks the department stuff)..we then calculate what percentage of the daily waste a specific category is. This calculation is done in a query, and works fine for the first department of every company, however when it moves to the next department for the same company, all I get is #Error in the field. eg./

Company "X"
Total Daily Weight = 750 Kilograms
Department "Shipping"
Category - Plastic Bottles - 20 Kilograms

I then have a query that calculates what % 20 Kilograms is of 750, then a report based on the query. This works fine; However in my report I look at the next department, with the exact same informaton as above...I see #Error returned in the field.:confused:

Does all of that make sense?? Is there a way to make sure my query calculation flows through all of the departments??

Thanks.

View 9 Replies View Related

Compare Actual Records To Expected

Jan 28, 2008

Not even sure where to start so if this isn't a query question, please point me in the right direction.

I work in a plant that has a number of cranes. Each crane should be inspected each shift (three shifts per day), each day (less Sunday).

I have exactly what I need to capture the inspections being done. Inspections are identified by crane #, shift, and date.

How do I determine if an inspection hasn't been done? How do I compare the inspections that have been entered against the standard of inspections for each crane, each shift, each day?

I am below average with Access on my best day so please type slowly and be specific. Thanks for any help you can give.

Forrest

View 5 Replies View Related

Error 3061; Too Few Parameters. Expected 2

Jun 15, 2005

I am running this code, and i am getting this error:


Code:Private Sub SendFormToConsultants_Click() On Error GoTo Err_SendFormToConsultants_Click Dim stWhere As String '-- Criteria for DLookup Dim varTo As Variant '-- Address for SendObject Dim stText As String '-- E-mail text Dim stSubject As String '-- Subject line of e-mail Dim stCOFNumber As String '-- The COF Number from form Dim stCustomerID As String '-- The Customer ID from form Dim stCompanyName As String '-- The Company Name from form Dim stContactName As String '-- The Contact Name from form Dim stAddress As String '-- The Company Address from form Dim stTRDW As String '-- The TRDW from form Dim stPreReq As String '-- The PreReq from form Dim stWorkLoc As String '-- The Location of Work from form Dim stDelivActiv As String '-- The Deliverables/Activities from form Dim stStartDate As Date '-- The Start Date from Subform Dim stEndDate As Date '-- The End Date from Subform Dim stWho As String '-- Reference to Resources Dim strSQL As String '-- Create SQL update statement Dim errLoop As Error '-- Combo of names to assign COF to stWho = Me.COF_Scheduled__Assigned_Resources__Subform1!Res ourceName stWhere = "Resources.ResourceName = " & "'" & stWho & "'" '-- Looks up email address from Resources varTo = DLookup("[ResourceEmail]", "Resources", stWhere) stCOFNumber = Me!COFNumber stCustomerID = Me.Consultancy_Order_Form_CustomerID stCompanyName = Me.CompanyName stContactName = Me!COFContact stAddress = Me.Address stTRDW = Me.TRDW stPreReq = Me.PreRequisites stWorkLoc = Me.WorkLocation stDelivActiv = Me.DeliverablesActivities stStartDate = Me.COF_Scheduled__Assigned_Resources__Subform1!Sta rtDate stEndDate = Me.COF_Scheduled__Assigned_Resources__Subform1!End Date stSubject = ":: New Consultancy Order Assigned ::" stText = "You have been assigned a new Consultancy Order." & vbCrLf & _ "Consultancy Order Form Number: " & stCOFNumber & _ vbCrLf & _ "Company ID: " & stCustomerID & _ vbCrLf & _ "Company Name: " & stCompanyName & _ vbCrLf & _ "Contact Name: " & stContactName & _ vbCrLf & _ "Address: " & stAddress & _ vbCrLf & _ "Terms of Reference / Description of Work: " & stTRDW & _ vbCrLf & _ "Pre-Requisites: " & stPreReq & _ vbCrLf & _ "Location of Work: " & stWorkLoc & _ vbCrLf & _ "Deliverables / Activities: " & stDelivActiv & _ vbCrLf & _ "Start Date: " & stStartDate & _ vbCrLf & _ "End Date: " & stEndDate & _ vbCrLf & _ "Please reply to confirm Consultancy Order Assignment." 'Write the e-mail content for sending to Consultant DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1 'Set the update statement to disable command button once e-mail is sent strSQL = "UPDATE [Consultancy Order Form] SET [Consultancy Order Form].COFSentToConsultants = 0 " & _ "Where [Consultancy Order Form].COFNumber = " & Me!COFNumber & ";" On Error GoTo Err_Execute CurrentDb.Execute strSQL, dbFailOnError On Error GoTo 0 'Requery checkbox to show checked 'after update statement has ran 'and disable send mail command button Me!COFSentToConsultants.Requery Me!COFSentToConsultants.SetFocus Me.SendFormToConsultants.Enabled = False Exit SubErr_Execute: ' Notify user of any errors that result from ' executing the query. If DBEngine.Errors.Count > 0 Then For Each errLoop In DBEngine.Errors MsgBox "Error number: " & errLoop.Number & vbCr & _ errLoop.Description Next errLoop End If Resume NextExit_SendFormToConsultants_Click: Exit SubErr_SendFormToConsultants_Click: MsgBox Err.Description Resume Exit_SendFormToConsultants_ClickEnd Sub

What does it mean? it doesn't say where i have a problem in my code. What do you think?

View 3 Replies View Related

Querydef Execute Error: Expected Function

Dec 9, 2005

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

View 2 Replies View Related

Reports :: Report Is Not Returning Expected Averages

May 9, 2013

My database is set up to track call evaluations with 4 fields for number data (S, A/C, C/E and B) each of these have a possible point total. I also have a percentage field to track out of total possible points.When I run my query I get a list of each of the totals for each of the evaluations with the associates names (as expected).I take that query and try to run a report wizard to give me an average socre for each associate. and the system returns averages of 0 or an odd number that does not make sense.when I use the =Avg([fieldname]) process I get an accurate average of the total but can not get it to do a "subtotal" for each associate.

View 1 Replies View Related

Queries :: Query Returning 2 Records When Only One Is Expected

Aug 7, 2015

I'm running a query from two related tables in the database.the table relationships and the query design. Instead of doing what I want it to do/what I think I'm asking it to - which is show the sum total number of weeks on the program for each student - it shows me the number of weeks for that student just for that claim, not the total for the student overall. I've added some 'dummy data' (2 records in the claim table relating to 1 student), and the query then returns the student twice in the results.

View 1 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved