thank you arnelgp your code work good in change Form's Orientation but it's not change shortcut menu Orientation
i asked if shortcut menu has Orientation property? or we can make this property and give it to shortcut somehow!
any idea
change this word "cdate(Now)" to "date()"
changer ce mot "cdate (Now)" en "date ()"
Si ce code ne fonctionne pas correctement, le programme a besoin d'une référence qui n'est pas présente dans la nouvelle version.
Ouvrez les références et voyez si vous en trouvez une corrompue - ou peut-être...
you can write code with few line as this:
If len(dir("C:\HOA", vbDirectory) & "") = 0 then
mkdir("C:\HOA\Directories\FoxMeadowsWest")
Else
'write here what you want happen after create folder
'and move your PDF to the folder
End if
test code and tell us what happened
good luck
Put this in new module
Function ExNumFromTxt(ByVal mystr As String)
Dim y As Integer, h As Integer
'mystr = "Year 2001 Mileage 2500 m/h Power "
'================================
On Error Resume Next
Dim ary() As String
Dim I As Integer
ary = Split(mystr, " ")
For I = 0 To UBound(ary)
If...
thanks for your reply again, the problem is fixed. with god goodnees, i type code as this DoCmd.OutputTo acOutputReport, repname, acFormatXLS, savPas, Trueand all things work good now!
thanks again.
i don't put this extension to report name, but to path save path, if you print the code to immediate window will see the different.
thanks alot for your reply
Hi All
I use this code to display a shortcut menu of reports when I click the right mouse button
But I want to pass the name of the current report to this routine so that I can export the report to Excel
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl...