Posts
 
Reputation
Joined
Last Seen
0 Reputation Points
Unknown Quality Score

No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.

0 Endorsements
~220 People Reached
Favorite Forums
Member Avatar for raymund.climaco.7
Member Avatar for raymund.climaco.7

Private Sub Command1_Click() Dim dbName As String Dim rptName As String Dim Preview As Long Const acNormal = 0 Const acPreview = 2 dbName = "C:\Users\user\Desktop\SVSPTODA REGISTRATION SYSTEM\SVSPREGDB.mdb" rptName = "MyReportName" Preview = acPreview 'acNormal With objAccess .OpenCurrentDatabase filepath:=SVSPGEGDB If Preview = acPreview Then .Visible = True .DoCmd.OpenReport rptName, Preview …

0
63