This example demonstrates how to use Automation to add appointments to the Microsoft Outlook calendar.
Sub AddAppt()
Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutlook =...
Sylvain,
Sorry but I did not know that you wanted to maintain an overall 'Page? of ?' aswell.
Sorry I have not tackled that one. You can try the following site that says it does what you want (with a bit of changing the code to hide your headers)...
You just type
Page = 1
in the format event of the group level header (click the header that splits your report int o three groups and then in the properties under the events tab, add an events procedure for the format event).
This then resets the page number to 1 every time the group is...
This is out of the microsoft access help file.
Use Visual Basic to force a page break in a report if a condition is met
1 Open the report in Design view.
2 In the toolbox, click Page Break , then click in the report section where you want a conditional page break.
3 Open the report's...
Sylvain,
On the grouping header on_format event if you set the page to 1
i.e. Page = 1
you can then in the next line do an If statement to say that if Page equals 1 then make the page header visible equal false.
Hope this is what you were after
Jonathan
RagenPryde, I presume when you are talking about pages in your post you mean a tabbed control.
If this is correct you may want to put an event on the on_change of the tab control.
From here you could check the users group and if they do not possess the required level to view a page then give...
Is this what you mean (using the code provided earlier)
#include <algorithm>
#include <iostream>
int main(void)
{
int array[2][7] = {{54,23,12,78,99,102,71},{10,28,4,9,5,9,3}};
const int* e = std::min_element(array[1][1],array[1][7]);
int pos = e-array;
std::cout...
You are correct that it is a timing problem. You need to create a function that creates a pause in your loop. I use the following
Function Wait(Delay As Integer)
Dim DelayEnd As Double
DoCmd.Hourglass 1
DelayEnd = DateAdd("s", Delay, Now)
While...
Add a new module with the following pasted into it!
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias...
Create a module with the following code. You the need to call the following functions on the form on open event!
Resizeform Me
ResetWindowSize Me
The first call sets the screen resolution and the second call is used for Pop Up forms. Please note that you should use True Type fonts on your...
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.