Sorry for taking so long to get back on this. I have reviewed all the code and ALL is good. Everything is working fine now.
Our Network folks recently informed me they were changing settings (and various other things) on the servers during the time I was working on this. Does anyone else “enjoy” it when server work is being done and no one bothers to inform you?
I placed a "Close" button on the...
swen
Last Activity: Apr 18 '14, 02:47 PM
Joined: Jan 27 '11
Location:
-
Zmbd
As you requested
I get the error code 3021 (no current record) upon the CLOSE of the “READ ONLY” version of the form only. I get the error BEFORE the "on close" code is ran.
The ONLY code that has been changed is how the form is opened. The form itself does not have any changes. Its code already has code to trap for 3021 and EOF/BOF. Again, I get the error BEFORE code is ran when the "READ...Leave a comment:
-
Yes. Only the "Read Only" has the issue.
Yes. There is one SubForm
All forms already have error handling that include the: If Err.Number <> 3021 and EOF/BOF language.
The strange part is the 3021 error comes up BEFORE any VB code is ran. I have debugged everything and nothing errors via code.Leave a comment:
-
Several departments review the data, for whatever their job function needs, (customer inquiry, quality standards, employee review, etc…) Not my place to question. Errors with data had happened when the user inadvertently; click a button, start typing in a field, etc… Thus, the request to make a View (read only) option available.
With Read only, if multiple records are pulled, the user only has the ability to navigate from...Leave a comment:
-
mcupito,
The same form is used, the change is how it is opened. Users where making unintended changes to data, thus the request to allow the user to make a selection to open the form as "read only"(View) or Edit. Based on the selection made, now an If statement runs the Docmd...acFormEdit (original) -v- acFormReadOnly.
The user has the option to open ALL records (over 40,000) or via search criteria. The record source...Leave a comment:
-
jimatqsi,
Using the "control/break" only takes me to debugging and engages the "on close" code, without any errors. I get the 3021 error BEFORE any VB code is ran.
Unfortunately this is NOT my database, I have been asked to update it. The builder did not provide a button control to close the form, so users have to use the forms control box "X" to close. Just out of curiosity, I built a button control...Leave a comment:
-
Error 3012: no current record on CLOSE of a "read only" form
I am currently working on an existing MS Access 03 data base that has been working perfectly for years. I have been requested to provide the userS the option to select a viewing option on a form, i.e. open as read only -v- edit.
The form currently has error trapping code everywhere and works fine when the form is opened with (current code):
...Code:DoCmd.OpenForm strFormName, acNormal, , , [B]acFormEdit[/B], acWindowNormal, strSQL3
-
Thank you. Thank you for ALL your help.
This code works. Now I can review other requested changes for this DB.
I will review ALL the reports and forms for the use of the same name for the Control Name / controlsource. This may explain some other periodic glitches that have occurred with this DB.Leave a comment:
-
Attached is the rip out of the DB.
Form "RunRPT" launches several reports.
The "Report Type" on RunRPT (for this string) is "Serial No(s) Checked Out"
Please let me know your thoughts and possible solutions. ALL are welcome....Leave a comment:
-
New development (realization).. .
As I was ripping out this section of the DB to attach and verifying all the appropriate tables, qrys, etc. are intact. I ran the report with arbitrary criteria in ALL the fields of the "RunRPT" form for this report.
Guess what... I got the same debug msg (previous in the string) as if the criteria fields were blank.
I verified that the arbitrary info was/not in the...Leave a comment:
-
Thank you for the article info... very informative.
I inserted the "if null" statement prior to line 54... It blows past the new "if null" statement with out giving the msgbox statement and then errors out with the same debug statement on the same line of code.
The DB is too large (compressed) to attach or email at this time. I'll try to rip out all but this section.
I appreciate all...Leave a comment:
-
The default query "Qry_SerialCkou t2" (code below) only pulls data via a Serial range. Where as the code on the report includes the "SNso" (sales order) criteria.
Qry_SerialCkout 2 code:
...Code:SELECT TestCase.SerialNoID, TestCase.TopAssyNo, TestCase.SerialNo, TestCase.Date, (IIf(IsNull([Line1]),[SONo],[SONo] & "-" & [Line1])) AS [Sales Order], TestCase.CustName, TestCase.CustPO, TestCase.DesignNotes,
Leave a comment:
-
Total newbe... disregard the previous question. I replaced every instance of "Me.SerialN o" but still get the same debug error message on the same line of code.
I verified that the SerialNo field on the base table is "Required" and that there are not any records with a Null value.
Any ideas?Leave a comment:
-
Quick question... would I replace Line 54 with "lngLast=Nz(Me. SerialNo,-10)"? Or insert it somewhere?Leave a comment:
-
When the report opens and the user did not input a criteria on the "RunRPT" form, the msgbox code on line "3" appears.(This is correct). After the user selects the "OK" to this msgbox, the debug error appears "you entered an expression that has no value" and focuses on line "54" of the below code. (The below code is the only code on this report).
Thank you for your assistance with this....Leave a comment:
-
I got the "Line skipper" to work. I had to add the "SerialNo" field to the report, change the code to look at that field, and calculate "+1".
Now I get a debug message "you entered an expression that has no value" on "lngLast = Me.SerialNo". This happens when the user does not enter any search criteria which invokes the msgbox code on the report open.
Do I need to change...Leave a comment:
-
TheSmileyOne
Thank you for the attachement and code. I changed the code to apply to the fields within my report and was not able to get it to work.
Here is the code that my report is generated from:
...Code:Private Sub Report_Open(Cancel As Integer) If IsNull(Form_frm_RunRPT.BegSerial) And IsNull(Form_frm_RunRPT.EndSerial) And IsNull(Form_frm_RunRPT.SNso) = True Then MsgBox "TheLeave a comment:
-
How to create an identifier to indicate a break in sequence?
I am trying to modify a Access 2003 Sales report that pulls serial numbers assigned to sales orders. The modification needed is to add an identifier (anything, color, etc...) to show when there is a break in the serial number sequence.
example: Sales order # 46783
SN's assigned and shipped
4670110
4680110
**4700110
4710110
4720110
4730110
**4780110...
No activity results to display
Leave a comment: