Click here to Skip to main content
15,909,939 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralA complicated string... Pin
Brad Fackrell13-Jul-04 10:11
Brad Fackrell13-Jul-04 10:11 
GeneralRe: A complicated string... Pin
Dave Kreskowiak13-Jul-04 12:19
mveDave Kreskowiak13-Jul-04 12:19 
GeneralRe: A complicated string... Pin
Brad Fackrell13-Jul-04 12:42
Brad Fackrell13-Jul-04 12:42 
Generalvb code Pin
nazerudeen13-Jul-04 5:56
nazerudeen13-Jul-04 5:56 
GeneralRe: vb code Pin
Dave Kreskowiak13-Jul-04 12:13
mveDave Kreskowiak13-Jul-04 12:13 
GeneralRe: vb code Pin
jonathan1515-Jul-04 5:29
jonathan1515-Jul-04 5:29 
QuestionHow to connect Microsoft Access Report in vb.net Pin
Member 122179713-Jul-04 2:58
Member 122179713-Jul-04 2:58 
AnswerRe: How to connect Microsoft Access Report in vb.net Pin
martyconnelly14-Jul-04 15:31
martyconnelly14-Jul-04 15:31 
You will have to modify your Access database
Here is an example
It has a menu toolbar to direct to various printers or email

'http://www.attcanada.net/~kallal.msn/msaccess/DownLoad.htm
' Acesss97 example With ms-access interface hidden:

And here is the method to call it.
I tested this with another Access program but should work with VB.

You can even remove the Access Key Icon or set to your own
in the upper corner, can't remember how but have done it.



Option Compare Database
Option Explicit
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1
Private Const SW_HIDE = 0
Private Declare Function apiSetForegroundWindow Lib "user32" _
Alias "SetForegroundWindow" _
(ByVal hWnd As Long) As Long
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Sub test()
'http://www.attcanada.net/~kallal.msn/msaccess/DownLoad.htm
' Acesss97 example With ms-access interface hidden:
Dim accRpt As Access.Application
Set accRpt = CreateObject("Access.Application")
With accRpt
.Application.OpenCurrentDatabase ("C:\WordVBA\Kallal Word Merge Easy Samples\WordMerge22\WordMerge22.mdb")
.Application.DoCmd.Maximize
.Application.Visible = True
Call apiSetForegroundWindow(.hWndAccessApp)
'Call apiShowWindow(.hWndAccessApp, SW_SHOWNORMAL)
Call apiShowWindow(.hWndAccessApp, SW_SHOWMAXIMIZED)
' Call apiShowWindow(.hWndAccessApp, SW_HIDE)
' .Application.DoCmd.OpenForm "frmDefaultPrinterList"
'displays the custom toolbar named CustomToolbar in all Microsoft Access windows that become active:

.Application.DoCmd.ShowToolbar "Rides Print", acToolbarYes
'DoCmd.ShowToolbar
.Application.DoCmd.OpenReport "Contacts", Access.AcView.acViewPreview
'Set the focus to MSACCESS
'Dim lngAcc As Long
' lngVal = FindWindow("OMain", ByVal 0&)
' lngAcc = SetFocusAPI(lngVal)
'must close form to exit second app 'acReport=3;acObjStateOpen=1

Do While .SysCmd(acSysCmdGetObjectState, acReport, "Contacts") = acObjStateOpen
DoEvents
Loop
.Quit acQuitSaveNone

'MsgBox "Print"
End With
Set accRpt = Nothing
End Sub

GeneralIntegrating Outlook Pin
Het210912-Jul-04 23:32
Het210912-Jul-04 23:32 
GeneralSave as WebPages using WebBrowser control Pin
Member 122179712-Jul-04 21:43
Member 122179712-Jul-04 21:43 
GeneralRe: Save as WebPages using WebBrowser control Pin
monkeyjoe14-Jul-04 14:43
monkeyjoe14-Jul-04 14:43 
QuestionHow to find which windows API(.dll) is getting called Pin
Member 122179712-Jul-04 21:40
Member 122179712-Jul-04 21:40 
AnswerRe: How to find which windows API(.dll) is getting called Pin
Dave Kreskowiak13-Jul-04 0:56
mveDave Kreskowiak13-Jul-04 0:56 
QuestionProblems in forms? Pin
mythinky12-Jul-04 18:03
mythinky12-Jul-04 18:03 
GeneralMapPointWebService Pin
Member 69039512-Jul-04 15:08
Member 69039512-Jul-04 15:08 
GeneralRe: MapPointWebService [EDITED] Pin
Dave Kreskowiak13-Jul-04 12:25
mveDave Kreskowiak13-Jul-04 12:25 
GeneralCreating Links in Vb.NET Pin
bensoncd12-Jul-04 11:25
bensoncd12-Jul-04 11:25 
GeneralRe: Creating Links in Vb.NET Pin
Dave Kreskowiak12-Jul-04 14:03
mveDave Kreskowiak12-Jul-04 14:03 
GeneralThank you: Creating Links in Vb.NET Pin
bensoncd13-Jul-04 12:30
bensoncd13-Jul-04 12:30 
GeneralCreating a Wizard in VB.NET Pin
gahziman12-Jul-04 10:45
gahziman12-Jul-04 10:45 
GeneralRe: Creating a Wizard in VB.NET Pin
Dave Kreskowiak12-Jul-04 13:57
mveDave Kreskowiak12-Jul-04 13:57 
GeneralRe: Problem with ADO, ADO.NET and VB.NET Pin
Steven Campbell12-Jul-04 8:11
Steven Campbell12-Jul-04 8:11 
GeneralMSDE and VB.NET Standard Edition Pin
ellisonc12-Jul-04 7:25
ellisonc12-Jul-04 7:25 
GeneralRe: MSDE and VB.NET Standard Edition Pin
Steven Campbell12-Jul-04 7:35
Steven Campbell12-Jul-04 7:35 
GeneralRe: MSDE and VB.NET Standard Edition Pin
Carl Mercier12-Jul-04 7:51
Carl Mercier12-Jul-04 7:51 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.