gawd! i'm an idiot!
took just a sec to update that which was the easiest thing and right in front of me!
it takes someone else to point out the obvious!
i can't believe I've spent this time and everyone else's for being shortsighted!
it seems I always end up doing it the hard way when all...
Ok, i'm thinking this won't work with what I have.
I am using a calendar form which has to be opened then I generate the Report.
The report displays exactly as it does on the form.
to make this simple or easy for me to try and explain ...
The ADD form where the schedule is entered displays the...
I have the following code in my report module as the report is generated with VBA based on the data on the form.
' Select Case Forms!frmScheduled!grpSort
' Case 1 'Name
' Me.GroupLevel(0).ControlSource = "ScheduleDate"
' Me.GroupLevel(1).ControlSource = "What"
' End...
I apologize as I thought I had answered your question on what I want the code to accomplish ...
that being the report Detail Section is to display all the detail items in a specific format. Hence the OnFormat code to accomplish this.
Because of the JOIN from the Detail_Inv to the Options table...
ok, it took me several different ways to determine that what's happening is that in the order of the invoices, it came to one that the item is in fact missing the Options table and it won't print the rest of the invoices.
How do I still make that invoice print and print the item even though it...
humh,
well, i got the 1st page to preview but can't print or preview add'l pages without getting the message.
i'm not sure about your questions regarding the blank invoice?
each invoice has various types of data, on the JOIN to the Options table though, I did find 2 invoices that each had one...
Hi dhookom,
sorry, I don't always know what's too much info or not enough info from lack of experience ...
strSQL = "SELECT InvoiceNumber, SortOrder, Category, Items, " & _
"Format " & _
"FROM Details_Inv LEFT JOIN Options " & _
"ON Details_Inv.Item = Options.Items...
now, more interestingly ... i was able to print the 1st page prior that message.
But when trying to print or preview the 2nd page, i received Run-time error End of Record.
This error was the first, then when trying to see what might be the issue and previewing the report again, am now getting...
Hi,
I am confused ... i have a report where the detail section uses a procedure.
basically, the part of the code I am getting a Run-Time error '3021'. No Current Record
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim strSQL As String
Dim db As DAO.Database...
sorry, i do have the ().
turns out it did not like 2nd, so i just change the textboxname to secondlevel instead of 2ndlevel and it works great!
thank you very very much!!
that doesn't make sense to me as I want data as the current statement is of a Left-outer-join.
I want everything in my BOM table and then all the data twhere it matches the BOM table of the components.
So some may not have component items.
Then the report prints the component items data of the...
Sorry for the confusion, i need a code that will suppress the detail section ONLY when there isn't data.
Of course I want it to display the detail section when there is data.
Biggest reason for wanting to suppress the section when there's no data is because I have lines and the lines show when...
I was trying to search but it's not working so ...
I would like to be able to suppress the entire Detail section of my report if there is no data?
How would I do that and would the EventProcedure go in OnFormat or OnPrint?
Thanks ... here you go.
these are codes for the ByQuote
Private Sub CustomQuoteNumber_DblClick(Cancel As Integer)
ViewOrder
End Sub
[code]
Private Sub ViewOrder()
On Error GoTo Err_ViewOrder
DoCmd.OpenForm "CustomQuotes"
DoCmd.GoToControl Forms![CustomQuotes]!
oh yea, and the OnActivate on the CustomQuote:
[code]
Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
Me.Requery
If IsLoaded("Customers") Then
If Forms![Customers]!
Thank MajP,
ok, this is what I have
I inserted the code just as a Module.
Option Compare Database
Option Explicit
Public intQuoteID As Integer
then the following updated codes:
On Dbl click on the QuoteSummary subform which is on the Customer form:
[code]
Private Sub...
MajP,
i got the other areas updated but being not very good with Modules ...
not sure how to write.
i did this and am receiving an error (of course)
Function intQuoteID()
Public intQuoteID As Integer
End Function
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.