heres the sql statement...my report shows the products with grouping according to Pharma...cn anybody help me how can i sum the total peso value of each group on a footer?
SELECT tblPlansheet.Da te, tblProduct.Phar ma, tblProduct.Prod uctDescription, tblPlansheetDet ails.PlansheetI d, tblProduct.Supp lierSKUCode, tblPlansheetDet ails.ProductId, tblProduct.Fore cast, tblProduct.Cata loguePrice, tblProduct.Deal Variable, ([CataloguePrice]*[DealVariable])...
rockdc1981
Last Activity: Jul 6 '07, 01:47 AM
Joined: Apr 16 '07
Location: somewhere in your neighborhood
-
how to Sum a group in footer
-
runtime error 2497..action method requires a report name
I dont get it lately the code is working andnow i get the error message...the code below is on a list where i can select the reports from a table source and enables user to preview and export it..any help pls...tnx
Private Sub lstReports_Afte rUpdate()
Me.RecordsetClo ne.FindFirst "[report code] = " & Me![lstReports]
Set rs = db.OpenRecordse t("reports", dbOpenDynaset)
'Me.Bookmark... -
repost
Private Sub Command11_Click ()
On Error GoTo Err_Command11_C lick
stdoc = Me.Report_file_ name
DoCmd.OutputTo acOutputReport, stdoc, xls
Exit_Command11_ Click:
Exit Sub
Err_Command11_C lick:
MsgBox Err.Description
Resume Exit_Command11_ Click
End Sub
the code will export the selected report...
... -
for the purpose of sharing,
Private Sub Command11_Click ()
On Error GoTo Err_Command11_C lick
stdoc = Me.Report_file_ name
DoCmd.OutputTo acOutputReport, stdoc, xls
Exit_Command11_ Click:
Exit Sub
Err_Command11_C lick:
MsgBox Err.Description
Resume Exit_Command11_ Click
End Sub
the code will export the selected...Leave a comment:
-
hi i was able to preview the reports..ur code is perfectly working..now is it possible to add a command button that will export the selected report into excel file and file name will be report name and the current date.tnxLeave a comment:
-
print report from selection(list box)
i have list box which displays all the reports available on my database using the query below c/o allen brown...my problem now is i cant find ways to code and preview/print or open the selected report...can somebody share me a taught of how will i do this...thanks
SELECT MsysObjects.Nam e
FROM MsysObjects
WHERE (((MsysObjects. Name) Not Like "~*" And (MsysObjects.Na me) Not Like "MSys*") AND ((MsysObjects.T ype)=-32764))... -
Export Reports To Excel Using Office 2007
I Recently Upgraded My Ms Office To 2007 From 2003, And Very Much Frustrated Finding Out That I Cannot Export My Reports To Excel File..any Help With This Guys?im Thinking Of Possibly Selecting A Report From A Combo Box And Inserting A Command Button That Will Export The Report To Excel File..any Help Or Suggestion Is Appreciated ...tnx In Advance -
well thanks a lot for the help man..i learned something.God Bless..Leave a comment:
-
given:
i have a continous form view and i can change to datasheet view
issue #1-on form load the isd info fields are not disabled...when in fact the default value for isd item is no or false
issue # 2-when i select no for [isd item?], the other form isd info becomes disabled when in fact the [isd item?] field is selected as yesLeave a comment:
-
enable fields on click of a check button
i need help i search the forum but i cant find a thread like this...
i have check box i named isd item?(yes or no)
then i have infos like price, deals, cost, gp, etc below...is it possible that by default the info fields for isd item will be disabled given that the default value for the check box is no and when i check the box the info field will be enabled...
please give me example or link how can i code this...thanks... -
Credit goes to all who replied on my post.
For the purpose of resolving my issue and reference to others who might use this
SELECT tblMonth.MonthN o, tblMonth.MonthD escription
FROM tblMonth
WHERE (((tblMonth.Mon thNo)=Format(No w(),"mm")))
ORDER BY tblMonth.MonthN o;
then set default value to Format(Now(),"m m")))
Thanks for the...Leave a comment:
-
default value is current month name
i want my combo box to show the current month when i add new data...the combo query goes like this
SELECT tblMonth.MonthN o, tblMonth.MonthD escription
FROM tblMonth
ORDER BY tblMonth.MonthN o;
month no=month description
1 january........ . and so on
is this possible...or any suggestions..th anks -
summing problem
i have two fields which i want the the sum on another column, the problem is when the other field is blank, i dont get the total..
eg
field 1 field 2 total
1 1 2
1 0 1
1 empty empty
why dont i get the 1 value on the third case, whats wrong with Access
i found this site from microsoft and its... -
change fonts and color of messagebox
is there any way to do this or were stocked with the standard -
for the benefit of other members who might want to use this heres the partially correct code...
...Code:Private Sub Combo42_LostFocus() Dim Result Dim rsp As Integer Result = Me.Combo42 If IsNull(Result) = False Then End If If IsNull(Result) = True Then rsp = MsgBox("Pharma Record is Empty", vbRetryCancel, "Empty Record") If rsp = vbRetry Then ' or If rsp = 4 ThenLeave a comment:
-
go to last form (continous form view)
i have a form and subform...
i have combo box on main form that has combo box to filter a record to be shown on subform...
the case now is ,
is it possible the on load or after select a record from my combo box, the cursor should be on the last or new record or should i say "last form" of my subform contents,(subfo rm shows continous forms)
tnx -
im gettin run time error 2585....action cant be carried out while processing a form or report event...
fisrt what does it mean
then waht should i do
then whats wrongLeave a comment:
-
both of our code worked fine...
Private Sub Combo42_LostFoc us()
Dim Result
Dim rsp As Integer
Result = Me.Combo42
If IsNull(Result) = False Then
End If
rsp = MsgBox("Pharma Record is Empty, Click Retry to Select Record or Cancel to Exit Form", vbRetryCancel)
If rsp = vbRetry Then ' or If rsp = 4 Then
'If IsNull(Result) = True Then
'MsgBox "Select...Leave a comment:
-
I made some revisions..my problem now is after Cancel, how will i close the form
Private Sub Combo42_LostFoc us()
Dim Result
Result = Me.Combo42
If IsNull(Result) = False Then
End If
If IsNull(Result) = True Then
MsgBox " Pharma Record is Empty, Click Retry to Select Record or Cancel to Exit Form", vbRetryCancel
If True = vbRetry Then
...Leave a comment:
-
Mary so sory for posting it on the article, that was unintentional.. .anyway thanks for the help guys!more powerLeave a comment:
No activity results to display
Leave a comment: