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
'...
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.