Recent content by fibonacci

As mentioned above I do not want to fiddle with it. It was just to perfect but not a priority. So I thank you warmly and I give up

This is the code that I used ,embedded in the macro autoexec ,but it does not work. Where am I wrong? Function autoexec() On Error GoTo autoexec_Err AddTrustedLocation DoCmd.OpenForm "Menu", acNormal, "", "", , acNormal autoexec_Exit: Exit Function autoexec_Err: MsgBox...

Forgive my ignorance but I have some doubts. I must put the 2 functions: Function TrustedLocation() TrustedLocationAllowSubFolders in a new module. It is right? And in value I must insert the path where is my app in .accde (the compiled version)? In this case I force my app to stay in an...

Thank you. But isn't something absolutely necessary. I thought enough lower the level of security. I leave it, not a problem

Hello evryone, I created the .accde to distribute only the compiled file. But I have a problem. When you open the file .accde there is this problem of security: You can not determine whether the content is from a trusted source. Leave off the contents, unless they provide essential capabilities...

Excellent, your second option is perfect for me. Thank you very much!

I do not want to delete the label but what the photo is marked with a red X (see it is made with paint). I did not know what to call it and I called the label even if it is not

Thanks, I solved with Me.Campo1.FileName If I remember right

No I don't want quit the form also , but only the label

Hi evryone, I want delete the label Volumi like you show in the image in the attachement (there is a red x in the exact point). How can I proceed ? Thank in advance

Hi evryone, I have to create a database with more than ten thousand records. There is a field on which image by clicking the image to be displayed with the default program based on the image on which you clicked. Whit this code: Private Sub Campo1_Click() Dim L As Long...

I wrote this code: Private Sub Campo1_Click() Dim strFormName As String Dim strCriteria As String If IsNull(Me.Campo1) Then 'No Product Entered Yet For Picture to be Displayed. MsgBox "You Must Enter a Product First Then Add a Picture" Exit Sub End If...

Hi Everyone, I am new to VBA for access. I am working on a form as a user interface. I have added an picture to the form. It looks small, and not clear because of the size, and each image has different size. I would like to know if there is a VBA code that will allow me to click on it, and...