A Better Mouse Trap And Saving Image Path Problems
Sep 22, 2006
I'm using GHudson's A Better Mouse Trap code. It works great. However, I added other code from http://www.databasedev.co.uk/image-form.html to get and save the path to image files and now I think there is a conflict between the sets of code.
The Images tab on the form frm_CreateNewSpec is where I have problems. The error messages are definitely from Mouse Trap...I just don't know how to resolve the problem.
I've probably missed something simple, but don't know what.
Any and all assistance is greatly appreciated by this novice.
Randy
View Replies
ADVERTISEMENT
Jun 20, 2006
Hi,
I need a way at preventing users from using the scroll funtion on mouses from creating a multitude of balnk records and hence was looking at ghudson better mouse trap as a way of doing this... this is the way forward isnt it?
Looking at the code it starts with...
'For those of us not using Access XP, we have a challenge to prevent
'our users from advancing to another record if they do not use the controls
'we want them to use or to prevent them from bypassing our validation
'procedures too ensure the current record is okay to be saved.
How do you prevent this from happening in Access XP?? Access XP = 2002 does it not?
Regards
H.
View 3 Replies
View Related
Jul 28, 2006
First off sorry about the really bad layout…..I don’t know how to do all the fancy stuff but really wanted to share this because it seams like a lot of people wanted help with this.
So here is what I have going on.
I have a form to add a record, and I have a number of fields, then an “Add Record” button and a “Cancel Record” Button. What I wanted to do was:
A: Stop the form from going to another “New Record Form” when moving the mouse wheel
B: Stop the form from going to another “New Record Form” when pressing the “Tab” key
Here is what you got to do to solve the mouse problem:
1.) Create a field in the form that has the Name “MouseWheel Move”, and set the “Visible” property to “No”
2.) Enter the Fallowing:
Private Sub Form_Load()
Me![MouseWheel Move] = "No"
End Sub
3.) Enter The Fallowing:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Me![MouseWheel Move] = "Yes"End Sub
4.) Enter The Fallowing:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me![MouseWheel Move] = "Yes" Then
DoCmd.CancelEvent
Me![MouseWheel Move] = "No"
End If
End Sub
Here is what you got to do to solve the Tab problem:
The last item on my form is my “Cancel” button; so when the focus is on my “Cancel” button (ie. the last item on the form) and I press tab I want the focus to go to the first field on my form.
Private Sub Cancel_Button_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
Me![Field Name for the First Item on the Form].SetFocus
End If
End Sub
One more thing, I am using Microsoft Access 2002 (10.6771.6735) SP3 and it works fine
View 8 Replies
View Related
Dec 4, 2014
I have a form that I would like to update a picture on using VBA. The source of the picture path is in part a query that is not bound to the form. So far I have the following code that is pretty much working, but with a couple flaws.
Code:
Private Sub Form_Current()
LoadDefaultPicture
End Sub
Sub LoadDefaultPicture()
Dim db As DAO.Database
[Code] ....
This is working. However, when I change the record the picture flashes the current picture once and then loads the new picture. It is like it reloads the current picture then loads the new one. I'm hoping there is a way to get rid of the flash.
Also, the code fails here:
strDefaultPictureName = rs.Fields("AttachmentName")
When the query does not return a record. I can definitely fix this by adding an if statement to check for a record, but I'm kind of perplexed at why it is failing at that line. I would expect it to assign an empty string to that variable name and then fail on the next command where I try and set the ".Picture" property of the image.
View 8 Replies
View Related
Aug 22, 2007
Hi
I have a table with this fildes:
name - family - PathImage
I have 400 records.
and I have 400 pictures for 400 person to a folder
and I want fill them, but is an easy methode for finding and filling pathImage for each person? and insert it to table cell?
I want insert Name of image file to PathImage filde.
Is there any thing such browse bottom to find file name?
Thank for your lead
View 5 Replies
View Related
Dec 17, 2006
i have database with products and i want to add a picture for each one
In the table of products i have a field "Image path"
D:dun.jpeg
how can i insert this text-path from the form and not manually from table?
for example :with a button ADD IMAGE from the form and browse file.......
View 2 Replies
View Related
Oct 19, 2013
I have in a form this code but i need to add image path for HTML to export the FinalTable to Web "HTML" format
Specially my point in
Code:
rstInsert(RTrim(rst![Attacking])) = "<img src=Attack.png>"
The full code is :-
Code:
Option Compare Database
Private Sub CreateCrosstab_Click()
Dim dbs As dao.Database, rst As Recordset, rstInsert As dao.Recordset
Set dbs = CurrentDb
Call DeleteTable("FinalTable")
[Code] .....
View 1 Replies
View Related
Jul 10, 2013
I am trying to link an images (.png) onto a form. I have a folder of all the images I want but I want the path to be relative. So that if I move the access file and the images folder to a new location, it will still work.
In the properties for the image, It works fine as C:UsersjohnDesktopimage1.png but what I am looking for is the ability to use "imagesimage1.png" as the file will always be in that relative folder to the db.
What is the correct syntax for this? putting image1.png in the same directory and just using image1.png works, but this won't be very tidy with 100+ images.
I have tried:
imagesimage1.png
imagesimage1.png
imagesimage1.png
With PictureType set as linked.
I know from searching it is possible through VBA by getting the root directory of the folder and appending the filename. Don't really want to go this root. I also don't particularly want to create a table to store the images or links.
View 8 Replies
View Related
Sep 30, 2013
I am saving my word doc thru below vba code
.......
..........
doc.SaveAs ("Customers.doc")
..........
.......
Which is saving here :
C:UsersashfaqueDocuments
I need to save it to desktop or somewhere I want.
How can I specifically mention the path in my vba code to save this document at the desired place?
View 3 Replies
View Related
Mar 18, 2008
Hello. I've searched and read a few threads concerning image controls on forms and haven't been able to find a solution to my problem (yet). Anyway, I have a form with two image controls (imgOK1 & imgOK2). The previous and current setting of the "Picture" property for both images is set to "C:MOMGraphicsfilename.bmp". The location of my images has changed and will change for each user which is "C:Documents and Settingsuser.nameMOMGraphicsfilename.bmp". I'm using the following code to set the .Picture property on form load:
Dim ImgPath
ImgPath = "C:Documents and Settings" & Environ("username") & "My DocumentsMOMGraphics"
Me.imgOK1.Picture = ImgPath & "imgButton-OK1_25%.bmp"
Me.imgOK2.Picture = ImgPath & "imgButton-OK2_25%.bmp"
When the form is opened, an error stating that the image located at "C:MOMGraphicsfilename.bmp" cannot be found; once for each image control. Then the form loads and .Picture properties appear to be set correctly as they are displayed fine. I've tried to clear the .Picture properties for both image controls using the properties editor but the original path returns as soon as the property loses focus. Is there a way to programatically set this property and make it stick so the errors are not displayed?
View 7 Replies
View Related
Nov 1, 2013
I am trying to write some code to open an existing excel form, populate it, and save it with a custom filename in a directory that is built using variables I have declared.
The only part I am having difficulty with is setting the pathname. Here is my code:
Code:
'Build path to save file to
spath = "S:ContractsGeomatics LABSigned" & Company
'Build File name
Filename = "" & reservationNumberforForm & " " & Company & "-Payment Schedule"
'Save the payment schedule to the S: drive
'xlApp.ActiveWorkbook.SaveAs Filename:="S:ContractsGeomatics LABSigned" & Filename, FileFormat:=xlOpenXMLWorkbook
xlApp.ActiveWorkbook.SaveAs Filename:="" & spath & " " & Filename, FileFormat:=xlOpenXMLWorkbook
xlApp.ActiveWorkbook.Saved = True
View 5 Replies
View Related
Jul 25, 2013
I have a piece of code that I'm using to display an image on a report based on a path saved to each record. the code is:
Code:
Option Compare Database
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.ImagePath) Then
Me.ImgPic.Picture = "O:BellinghamIntranetProductionLabelsNo Label.bmp"
Else
Me.ImgPic.Picture = Me.ImagePath
End If
End Sub
It seems like every few months the code crashes access and then never works again. When I debug, the part that is highlighted is:
Code:
Me.ImgPic.Picture = Me.ImagePath
The only way i've found to correct it is to delete the report and the module and copy them back in from a backup database. What could be causing this code to crash or how to stabalize my database to prevent this from happening again.
View 14 Replies
View Related
May 26, 2014
Till now I managed to publish and save all in C:Reports. What I'm trying to do is Save to path specified in Path. DB attached.
Private Sub PrintAll_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim MyPath As String
Dim MyFileName As String
[Code] ....
View 6 Replies
View Related
Jun 30, 2005
I'm using Pat Hartman's code to select items from a list box and then append the records to a table. If a user doesn't select anything before clicking the buttom I'm trying to give them an error message. I've tried it in various places but can't get it to work. The attached is giving me the error message regardless of whether they have selected anything or not.
On Error GoTo Err_CreateAttendanceRecords_Click
Dim i As Variant
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim qd As DAO.QueryDef
Set dbs = CurrentDb
Set qd = dbs.QueryDefs!qrynewvaluations2
Set rst = qd.OpenRecordset
If i = 0 Then
MsgBox "You must select at least one property before continuing"
Exit Function
End If
For Each i In ctlref.ItemsSelected
rst.AddNew
rst!valprop = ctlref.ItemData(i)
rst!valdate = Me.txtValDAte
rst.Update
Next i
Set rst = Nothing
Set qd = Nothing
MsgBox "Records Created"
exit_createattendancerecords_Click:
Exit Function
Err_CreateAttendanceRecords_Click:
Select Case Err.Number
Case 3022 'ignore duplicate keys
Resume Next
Case Else
MsgBox Err.Number & "-" & Err.Description
Resume exit_createattendancerecords_Click
End Select
Any suggestions?
Thanks
Dawn
View 4 Replies
View Related
Jun 20, 2005
If you open the attached sample you will see what my problem is.
I have Form /Subform with look up combo that will not allow duplicate entries in same subform record. This works fine, access displays an error when a duplicate has been added as it should. What I want to do is trap that error myself and display a msgbox that will allow the entry to undo (the msgbox undo etc I can handle, it the trapping of the error)
Thanks in advance.
View 4 Replies
View Related
Feb 6, 2005
Hi all ,
Can anyone tell me about how to embedd image in image control using imagelist.
I added the 5 images in imagelist at design time and added the following code.
image.picture=imagelist.listimages(1).picture
but iam getting error.error no :2110,cannot open the file .
thank u,
Siva
View 3 Replies
View Related
Aug 23, 2005
I have a form with 22 data fields.
There are 4 entry flow paths.
(1) is 1 to 9, 10, 20 to 22
(2) is 1 to 9, 11 to 14, 20 to 22
(3) is 1 to 9, 15 to 17, 20 to 22
(4) is 1 to 9, 15 to 17, and stop at 19.
If information is in Field 10, then I need to prohibit entry in the other 3 paths.
How can I do this?
View 1 Replies
View Related
Oct 18, 2006
I know this topic has been covered over and over but I've searched and searched and can't find my answer. I did find one post with a link to a possible answer but the link was broken.
My form has a required field. When a user attempts to X out of the form I have code in the Before Update event that checks this field and if it is blank:
MsgBox "Payment Terms must be filled in before closing the form"
Me.PaymentTerms.SetFocus
Cancel = True
The message box appears, but then the
You can't save this record at this time...blah blah blah.....
dialog appears and then the form closes.
How can I prevent the user from closing the form if this field is blank? It seems like once the X is clicked there is no turning back. I realize that I could remove the close button (X) from the form and use a command button instead but this may only mess up the users who have been using this DB for years. Is there any way to go backward once the close button has been clicked?
Thanks for your help.
View 6 Replies
View Related
Jul 13, 2005
Hi, this a great forum and i'm asking for help :)
1.i trapped error 3314 and other errors at my custm buttons(save,edit...) but...
at my 2 forms(one single and the other continuous, access gives me an error about an empty field in a table (primary id), when i press tab (it moves to next record).
The same action has my continuous form when i click at an empty field at next record or pressing tab with empty values at primary fields.
What can i do to post my own messages?
2. I have a text box (a) that takes value form an other text box (b): b=2*a. both text boxes send values to a table
How can i prevent user from chanching the value on (b) text box?
thanks in advance
Dimitris Greece (sorry for my bad english)
View 14 Replies
View Related
Sep 16, 2005
:confused:
I would like to trap event name where an error has taken place in.
I do not want to type in every event name by hand for each error messge.
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
Call ErrorLog(Me.Name, EventName, Err, Err.description)
Resume Exit_Command27_Click
View 2 Replies
View Related
Dec 1, 2005
How do I programmatically force an error dialog to make a certain choice?
I'm able to trap the dialog via the following code:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 7787 Then 'record updated by another "user" (subform)
MsgBox "Error trapped!"
Response = acDataErrContinue
Else
Response = acDataErrDisplay
End If
End Sub
Problem is, if I bypass the 7787 error in this manner, it defaults to dropping the changes, rather than saving the record, which is what I want. (Both are choices on the dialog.)
Any help would be most appreciated.
View 7 Replies
View Related
Mar 1, 2006
Hi everyone
I posted this question about an hour ago but I seem to have been logged out by the time that I actually pressed "send", so I don't know whether it was posted correctly - I can't find it!
I've created four buttons on a form to negotiate my way through the records. When I come to the end, a message box is shown stating that the next record cannot be found (it doesn't exist). Can I trap this message and use it to activate some code? I thought about a form popping up (in "corporate" colours to match the remainder of the database) or a form asking whether I want to add another record.
I looked at the code that Access generated when I made the buttons, and I saw the following:
Err_MyButton_Click:
MsgBox Err.Description
Resume Exit_MyButton_Click
I "remmed" out the middle line, but the automatic message box still appeared. I added a line of code: <MsgBox Err.Number>, but that didn't give a result, so I guess that the message box that's being shown isn't generated via this snippet of code.
I know that I could disable the relevant button when the record number reaches the end or add another button to add a new record, but I'd like to trap this automatic message box. Can I do so, and, if so, how?
Thanks for your time.
View 1 Replies
View Related
Feb 26, 2007
i am using access against an Oracle DB through an ODBC driver, and when appending records to a local table, if access gets an Oracle record error "#deleted", the append query aborts. . . that's fine, but I can't figure out how to trap the error to get the rest of the records. . .
ugh! see attached graphic
thanks
sportsguy
View 3 Replies
View Related
Apr 4, 2006
Hi, I have a button in a form that loads a report, if there is no data in the report then 2 error messages are displayed, however as these messages have no affect and they do no harm as such I would like to prevent them from being displayed. The error messages are error 91 “invalid use of isnull” error and error 2501 “cancel event error message”
I’ve been able to prevent either error 91 from being displayed or alternatively 2501 using a single if statement but not both of them together using two if statements.
(If error 94 is displayed, I would still like the report to open, error 2501 is displayed after the report is closed if there’s no data & i just want this message not to be shown)
Any ideas what im doing wrong? :confused: any help much appreciated
Regards
Kevin
Below code works ok (to trap just the one error message):
Err_cmdPreview_Click:
If Err.Number = 2501 Then ' ignore cancel event error
Else
MsgBox Err.Number & " - " & Err.Description
End If
Resume Exit_cmdPreview_Click
End Sub
But the below code here doesn’t work (when I use 2 if statements to try & trap both of the error messages)
Err_cmdPreview_Click:
If Err.Number = 94 Then ' ignore isnull error
DoCmd.OpenReport stDocName, acNormal
Else
If Err.Number = 2501 Then ' ignore cancel event error
Else
MsgBox Err.Number & " - " & Err.Description
End If
Resume Exit_cmdPreview_Click
End Sub
View 6 Replies
View Related
Jun 28, 2005
Hi guys . i wonder how i can trap the following errors in access 2000 forms.
I have the database tables in sql server 2000 and front end is made by access 2000
forms. I be happy if some one show me how i can trap these errors and promt aproperte message
to the user when they violate them using forms.Thanks
1)Violation of not null constraint
2)primary key violation
3)Trigger violation
4)and other erros
View 1 Replies
View Related
May 16, 2015
I have a Composite Index to prevent duplicates I get the error message. How can I trap this?
I resolved it with this PHP Code:
'Trap Error.
Dim DataErr As Integer
Dim Response As Integer
Dim Message As String
If DataErr = 3022 Then 'Duplicate value entered
Response = acDataErrContinue
End IfÂ
View 2 Replies
View Related
