My Code To Quit The Application Has A Bug!

Activation Code For My Application
I have made an application based in access, I want to put a supscription on it so every year you need to
enter an access code like you do when you install software, so an activation key, but i need an expiry
on it, so i can show demos that last a month or an actual copy but you need to renew every year!
Can any one help?

View Replies !

---

Referring To The Application Icon Using Code
Hello all...Happy New Year!!

I have obtained some VB code shown below which adds an icon to the windows task bar as I intend to put some additional code behind this that displays messages near the clock when something happens in the database.
The problem I have is that the code does add an icon but the icon is literally blank. i.e. it makes an additional icon space but does not display any picture.
The code is not actually for VBA so I need to tweak it. I am struggling with telling it which icon to display. Does anyone know how to refer to the application icon using code??

The code I am working on is: (there is also a module but I will post this if you need it.)
-------------------------------

Private Sub AddTrayIcon()

Dim nid As NOTIFYICONDATA

' nid.cdSize is always Len(nid)
nid.cbSize = Len(nid)
' Parent window - this is the window that will process the icon events
nid.hWnd = frmSystray.hWnd
' Icon identifier
nid.uID = 0
' We want to receive messages, show the icon and have a tooltip
nid.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
' The message we will receive on an icon event
nid.uCallbackMessage = 1024
' The icon to display
nid.hIcon = frmSystray.Icon
' Our tooltip
nid.szTip = "Always terminate the tooltip with vbNullChar" & vbNullChar

' Add the icon to the System Tray
Shell_NotifyIconA NIM_ADD, nid

' Prevent further adding
cmdAddIcon.Enabled = False
End Sub

Private Sub cmdAddIcon_Click()
AddTrayIcon
End Sub

-------------------------


This is the code that is the problem. I dont think VBA has this function so I need to tell it where to find the .ico file I use for my database.
Thanks folks.

View Replies !

---

How Can I Excute Code When The User End The MS Application By Alt+Ctrl+Delete
Some times, the system become stuck, which forces the user to end the program using Windows Alt+Ctrl+Delete. I have MS Access code which I want to execute when the user made the 'End Program' event using the Alt+Ctrl+Delete.

Thanks,

View Replies !

---

Access Won't Quit
Hello again folks.

Having spent a week building my database and everything is working as expected - I set the 'startup' properties and now Access won't save or quit from the main form. In order to close I have to select 'form design' and then the 'X' will work. This goes for all the methods of closure including the menu and system buttons. I cannot access the cnt/Alt/Del with this system but that's immeterial. I'm using XP and Access 2000.

I have tried removing all the conditionally formatted controls.

Help please!!

Chalkie.

View Replies !

---

Queries That Won’t Quit
Sorry to bug you guys (or Gals) for something as simple as this.

I have several subforms and list boxes that references other subforms using queries and when I close the form using

DoCmd.Close


Some of the queries ask for parameter values. Is there a little snippet that will fix this?

Thanks Everyone,

View Replies !

---

Employee Quit?
I have a form which has a drop down box which links to a table with Employee names. One employee quit and I want to delete her name from the table. But... if I do that, I will delete her entirely from all previous records. Is there a way to keep all previous records, but take her out of the drop down choices?

View Replies !

---

Update Excel Before Quit....
Hi
I'm trying to create a commandbutton that will update a Microsoft query in excel.
My problem is that excel is quitting before the workbook is updated. Maybe I need a "wait" command or something...
This is what i have:

Private Sub cmdASP_Click()
Dim XL
Dim XLARK
Set XL = CreateObject("excel.application")
Set XLARK = GetObject("c: est.xls")
XL.Visible = True
XLARK.Parent.Windows(1).Visible = True
XLARK.Activate
XLARK.RefreshAll
XLARK.Application.Cells(1, 1).Value = Now()
XL.ActiveWorkbook.Close Savechanges:=True
XL.Quit
Set XL = Nothing
Set XLARK = Nothing
End Sub

Can anyone help me out?

eroness

View Replies !

---

Quit() Won't Work When User Has Certain Windows Open
I'm working on a program that Windows runs as a scheduled program at 5PM every day that closes MS Access so folks can go in do updates on databases. I've managed to get the program to exit- when there aren't any complicated windows open- using the following command:

App1.Quit(Access.AcQuitOption.acQuitSaveNone);

The problem is that when the user leaves the "New" window open (the window that comes up when you click File:New) or the "Open" window open, Access can't shut down. My thinking is that if I can just have the program close these windows, Access can shut down.

So, any suggestions?

Thanks for your help.

View Replies !

---

Is It Possible To Integrate MS Access Application To A Web Application??!!
We have an extensive reporting application in Access and would like it to be available through a web application. I've went down the road of migrating this application to SQL to use SQL Reporting Services; this is a good tool but I am wondering if MS Access has an easier solution for me other than migration to SQL.

I'm looking for a solution that will make these reports available over the web for many users. Price tag is a consideration...need to know if there is any.

Please help...thanks in advance for any thoughts!!!!

View Replies !

---

Error When "Quit"
Hello all,

I need some help. I have a macro done in the menu macro, not on VB that imports some tables, run querys etc. The last step on the macro is "Quit", when the macro gets there I get the following error:
You can't exit Microsoft Office Access now.
If you're running a Visual Basic module that is using OLE or DDE, you may need to interrupt the module.
Can somebody please help me?

Thanks,

View Replies !

---