William Hindman
wdhindman at bellsouth.net
Thu Dec 22 22:30:32 CST 2005
...unless there is something new in your code Drew, you can open another form but you can't give it focus ...i.e. you can't click between forms ...if that's not true with your code I'll take another look because I'd certainly love to use it ...but I sure wasted a lot of effort with this approach once before ...its why I was experimenting using subforms on a single main form in order to beat the always-on-top problem. William ----- Original Message ----- From: <DWUTKA at marlow.com> To: <accessd at databaseadvisors.com> Sent: Thursday, December 22, 2005 10:55 PM Subject: Re: [AccessD] access xp runtime > What are you talking about? With the Access window hidden, you can open > as > many forms as you want, just set their popup property to Yes. (My code > gets > around having to set the dialog property to yes in A2k and up too....). > > The only drawback, from what I remember (because honestly, I don't use > this > in Access anymore, if I want a 'desktop' app, I just use VB), is that > reports won't preview, so you have to unhide the Access Window to preview > reports. > > Drew > > -----Original Message----- > From: William Hindman [SMTP:wdhindman at bellsouth.net] > Sent: Thursday, December 22, 2005 9:44 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] access xp runtime > > ...the problem with that API is that it only works for forms on top > ...you > can't open another form ...pop up a calendar for instance ...I got > heavy > into an experimental app with this approach before abandoning it > ...too many > compromises. > > William > > ----- Original Message ----- > From: <DWUTKA at marlow.com> > To: <accessd at databaseadvisors.com> > Sent: Thursday, December 22, 2005 8:53 PM > Subject: Re: [AccessD] access xp runtime > > > > This is code I put on an 'Always On Top' form which also hides the > Access > > window: > > > > Option Compare Database > > Option Explicit > > Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As > Long, _ > > ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, > ByVal _ > > cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long > > Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd > As Long) > > As Long > > Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As > Long, _ > > ByVal nCmdShow As Long) As Long > > Const SW_HIDE = 0 > > Private Const SW_SHOW = 5 > > Private Const SWP_NOMOVE = &H2 > > Private Const SWP_NOSIZE = &H1 > > Private Const HWND_TOPMOST = -1 > > Private Const HWND_NOTOPMOST = -2 > > > > Private Sub cmdAlwaysOnTop_Click() > > If IsWindowVisible(Application.hWndAccessApp) Then > > ShowWindow Application.hWndAccessApp, SW_HIDE > > SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, 0, 0, 0, > 0, _ > > SWP_NOMOVE Or SWP_NOSIZE > > ShowWindow Me.hwnd, SW_SHOW > > Me.Repaint > > Else > > ShowWindow Application.hWndAccessApp, SW_SHOW > > SetWindowPos Application.hWndAccessApp, HWND_NOTOPMOST, 0, 0, > 0, 0, _ > > SWP_NOMOVE Or SWP_NOSIZE > > End If > > End Sub > > Private Sub Form_Unload(Cancel As Integer) > > If IsWindowVisible(Application.hWndAccessApp) = False Then > > ShowWindow Application.hWndAccessApp, SW_SHOW > > SetWindowPos Application.hWndAccessApp, HWND_NOTOPMOST, 0, 0, > 0, 0, _ > > SWP_NOMOVE Or SWP_NOSIZE > > End If > > End Sub > > > > -----Original Message----- > > From: Michael Maddison [mailto:michael at ddisolutions.com.au] > > Sent: Thursday, December 22, 2005 7:11 PM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] access xp runtime > > > > > > Hi David, > > > > I'm (almost) sure I saw some API code a couple of years ago that > > completely hid the Access parent container window. > > I can't find it on my pc but its out there somewhere ;-) > > > > cheers > > > > Michael Maddison > > > > DDI Solutions Pty Ltd > > michael at ddisolutions.com.au > > Bus: 0260400620 > > Mob: 0412620497 > > www.ddisolutions.com.au > > > > -----Original Message----- > > From: accessd-bounces at databaseadvisors.com > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David & > > Joanne Gould > > Sent: Friday, 23 December 2005 11:23 AM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] access xp runtime > > > > My only plan for it is to hide the database window, put a > different icon > > on the titlebar. My client doesn't require menu bar or toolbars > (thank > > goodness). I'm hoping this will look like any other software in a > box. > > > > David > > > > At 10:58 AM 23/12/2005, you wrote: > >>"wants his database to not look like an access database (no > problem)" > >>D&J > >> > >>...lol ...runtime is one thing ...I run them on several client > systems > >>...but I'd really, really like to know how you make an Access db > not > >>look like an Access db ...the only way you can hide the Access > window, > >>afaik, is using popups which severely limits your gui > ...alternatively > >>you can fill the window with your main form and call subforms to > do > >>most of your work, an appoach I quickly abandoned ...and even then > the > >>user can still expose the Access window in a number of ways you > can't > > control. > >> > >>...building innovative guis is one thing ...but making it not look > like > > > >>an Access db? ...I'm all ears? > >> > >>...btw, if you have the option I highly recommend upgrading your > >>development system to A2K3 and buying the VSTO. > >> > >>William > >> > >>----- Original Message ----- > >>From: "David & Joanne Gould" <dajomigo at tpg.com.au> > >>To: <AccessD at databaseadvisors.com> > >>Sent: Thursday, December 22, 2005 4:28 PM > >>Subject: [AccessD] access xp runtime > >> > >> > >> >I have a client that wants his database to not look like an > access > >> >database (no problem) and be usable by people who don't have > access > >> >on their computers. My understanding is that this is possible > if the > > > >> >database is a runtime version. Is there any way to do this > without > >> >buying office developer XP. We are using access xp for the > database. > >> > > >> > David > >> > > >> > > >> > -- > >> > AccessD mailing list > >> > AccessD at databaseadvisors.com > >> > http://databaseadvisors.com/mailman/listinfo/accessd > >> > Website: http://www.databaseadvisors.com > >> > > >> > >> > >>-- > >>AccessD mailing list > >>AccessD at databaseadvisors.com > >>http://databaseadvisors.com/mailman/listinfo/accessd > >>Website: http://www.databaseadvisors.com > > > > > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > -- > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com >