Search results

That's Fantastic

Yep, put it in the macro

Me thinks... If the font is smallest and the names are not fitting, then you have to either make the chart bigger or split the staff into smaller groups (by department?) and make several charts.

Is this a chart? Have you tried making the font smaller on the axis?

Chuck something like this in before and after action1 Dim Action1Start dim Action1Finish 'about to start action1 so... Action1Start = Now() 'code for action1 goes here 'code finishes here Action1Finish = Now() msgbox "Action1 started at " & Action1Start & vbnewline & "Action1 Finished at "...

John, Try this out: UPDATE tbl1 RIGHT JOIN tbl2 ON tbl1.str1 = tbl2.str2 SET tbl1.str1 = [tbl2].[str2] WHERE (((tbl1.str1) Is Null));

Set db = CurrentDb a = db.TableDefs("table1").Fields("yo").Properties("ColumnWidth") 'twips first MsgBox "Twips = " & a 'convert to inches b = a / 1440 MsgBox "Inches = " & b 'convert to cm c = b * 2.54 MsgBox "cm = " & c Rows are a bit trickier

try this, not exactly what u wanted...

command button code: Private Sub Command0_Click() Dim strFilePath As String strFilePath = Replace(Now, " ", "") strFilePath = Replace(strFilePath, ":", "") strFilePath = Replace(strFilePath, "/", "") strFilePath = "c:\Report" & strFilePath & ".xls" DoCmd.TransferSpreadsheet acExport...

It does nothing? I find that hard to believe. What do you mean it "sits there". Have you checked the directory for a saved excel file. I will post an example......

Will this do the trick? Dim strFilePath as string strFilePath replace(NOW," ","") strFilePath replace(strFilePath,":","") strFilePath replace(strFilePath,"/","") strfilepath = "c:\"My_Report_Name_" & strfilepath & ".xls" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9...

try this: objSheet.Range("A3:A" & lastrow + 1).FormulaR1C1 = "=SUM(R[-" & lastrow & "]C:R[-1]C)"

Did you try printing it out? Sometimes the print preview doesn't show everything correctly.

Willie, If you want me to update your database, just send it through with some details. I am happy to do free of charge.

Willie, try the sample. Put the form in design mode and click View>Code to see what is going on.

Try this.....

Read your previous thread properly and check the demo Keep this section of Lebans code as is: Public Function ConvertReportToPDF( _ Optional rptname As String = "", _ 'DO NOT PUT ANYTHING HERE!!!! Optional SnapshotName As String = "", _ Optional OutputPDFname As String = "", _ 'DO NOT PUT...

This may help, it is crude and untested though: 'get a record count Set rdset = CurrentDb.OpenRecordset("qrypacksum") rdset.MoveLast rdset.MoveFirst reccount = rdset.RecordCount Set rdset = Nothing DoCmd.OpenQuery "qryPackSum", acViewNormal, acReadOnly DoCmd.GoToRecord acDataQuery...

You have to use this, The user may have to type in the file extension.. or you may be able to put it in your VBA.. Dim fDialog As Office.FileDialog Dim varSelection As Variant Dim strFileName As String Set fDialog = Application.FileDialog(msoFileDialogSaveAs) With fDialog...

Re: Has NASA found (potentially) extraterrestrial life? --> who cares..., of course there is ET Life. To think that Earth is the only life sustaining rock in the goddamn universe is ridiculous. I say spend the Trillions of wasted dollars on cleaning up our grubby rock. Also burning desire and...