Thanks; you hit the nail on the head. awgina is a file symantec's installation tells the registry to use instead of msgina... regedit, and change it to point to msgina.... and now it works! Thanks.
I'm trying to get the Remote Desktop host to work properly. When I try and initiate a connection from a 2k box on the lan, it says:
The xp box won't let you log in... error message:
http://www.perdidobeachresort.com/test/emsg.gif
Any ideas?
Thanks a bunch!
Welcome. OLE pictures are horrible in jet. I believe it stores not only the image, but an uncompressed bitmap of the image. If you need to store them, you can... either store the path to the file(s) or use a blob, and write code to handle it... sample from microsoft for blob handling:
Class...
If you use ado, add a reference to adox, and read up on the catalog object. You could use the catalog to navigate the table definitions, get the name of the column you need, then build a sql statement to pick the data from that column for you.
hth
James
Well, as for the username/pw lookup,
Assuming you have a table that looks like this:
tblUsers:
Username
Password
Private Sub cmdLogIn_Click()
If DLookup("[Password]", "tblUsers", "[Username]='" & Me.txtUserName & "'") = Me.txtPassword Then
'...
Well... I don't have the time to do this, but I know how it can be done...
You can retrieve the values from the form just by accessing the value property of the form objects... like:
Me.txtMyTextbox.Value
Then you can go to msdn, or buy a book, and take a look at the word object model...
Welcome... the help explains docmd pretty well...
You'll probably notice you get some prompts like "Are you sure you want to update this table" when you run the update query via docmd... if you want to suppredd them, you can use another docmd method:
and make sure to turn 'em back...
I think you can make it work just fine like this:
Private Sub YourButtonName_OnClick()
Dim Response
' Run your report
Docmd.blahblah
Response = MsgBox("Please print the report. Would you like to mark the records as processed?", vbYesNo)
If Response = vbNo Then
' Do nothing
Else
'...
Hmm... ok so you're probably running the report from a form... as the onclick event of pushing a button on that form?
Private Sub YourButtonName_OnClick()
Dim Response
Response = MsgBox("Did it print ok?", vbYesNo)
If Response = vbNo Then
' Do nothing
Else
' Run the update query...
Hmm... I don't understand exactly what you're trying to do... but there are several ways of populating fields...
An easy one is to use the on_load property of the form...
Private Sub Form_Load()
Me.textboxname.DefaultValue = ""
'
' You could probably use DLookup to retrieve the
'...
Hands down,
Access 2000 Developer's Handbook Volume 1 and 2 by Getz, Litwin & Gilbert
It's pretty advanced; if you're fairly new to Access, you may want to supplement it with some introductory books.
Ok... a problem... As far as I know, you can't 'grey out' items on a toolbar. If you want that kind've control, you need to move the 'modules' from the menu bar to a switchboard... with the switchboard wizard, that should only be 5 minutes worth of work.
You could do code to make the toolbar...
You could also notify the user...
Private Sub Form_Load()
If (yourcondition) Then
MsgBox("Sorry, you are not allowed to use this form")
DoCmd.Close acForm, "theForm'sName", acSaveNo
End If
End Sub
If you need to grab a user's windows username to help set up your...
Ok; now I understand... you just created a menu, and dragged/dropped forms/etc to them.
In each form, you'll need to check if the user should be able to open it... and if not, close the form.
Private Sub Form_Load()
If (yourcondition) Then
DoCmd.Close acForm, "theForm'sName"...
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.