If you buy something and before you even receive it you notice the price has dropped by 30 percent. You would like to return it and purchase it again at the lower price, right? But then if you're honest about it, they want a restocking fee that makes it not worth returning. So what do you do? You open the box and say it's damaged so you don't get a restocking fee. Duh. Lol.
Access should have some global events, such as OnAnyFormOpen or OnAnyError.
Their data connection around Brampton is totally unstable and they keep raising the price of my plan and they only offer 1 plan for people that have their own phone, a plan which has way more data than I need and too expensive. What a joke, years ago you had to pay through the nose for data and now all they offer is way too much data. Also, home internet gets slow during the evening and stops working occasionally.
How do you guys display a logo in your reports?
I use an unbound image control, and when the report opens, I pass the image control to a procedure that sets the picture property to the path of the logo (jpg or bmp).
I have error trapping in all my procedures and functions, and error 2114 is the only error I ever see, and it happens usually once a day, and it can happen on any machine, in any report.
One of the users suggested that it might be associated with the error 'cannot open any more databases' - if they get that error and then try to run a report, it is simply out of memory, but I can't seem to replicate the error myself.
Below is a sample of the code.
It doesn't matter if myPath points to a jpg or bmp, the logo is a small file less than 200k on the server.
Image1 is an embedded image object with no control source, that is used to display a logo.
Private Sub Report_Open(Cancel As Integer)
Call myDisplayLogo(Me!Image1)
End Sub
Public Sub myDisplayLogo(ByRef objImage As Access.Image)
On Error GoTo Error_myDisplayLogo
Dim myPath As String
If objImage Is Nothing Then Exit Sub
If TypeName(objImage) <> "Image" Then Exit Sub
myPath = myDatabasePath() & myLogo()
If objImage.Picture <> myPath Then
objImage.Picture = myPath
End If
Exit_myDisplayLogo:
Exit Sub
Error_myDisplayLogo:
LogError Err.Number, Err.Description, "myDisplayLogo", , False
Resume Exit_myDisplayLogo
End Sub
But lately i find prices the same or higher than other local sellers.
So why wait longer for delivery and endure their perplexing discount structure.
Sorry temu, maybe I'll have better luck next time.
​
Hangs during commercials now and then and quite a few commercials.
Anyone had any luck designing a custom inputbox?
I discovered that docmd.openform of a modal/pop-up form as acDialog causes access vba to wait until the form is made invisible before it continues code execution.
So in the pop-up form, when you do me.visible=false, the code continues after the docmd.openform and you can then get any values from the pop-up form and then close it.
So, for example, you can make a function to ask a user for a password,
Public Function getPwd() As String
Dim myFormName As String
myFormName = "fInputBoxPwd"
getPwd = ""
If CurrentProject.AllForms(myFormName).IsLoaded Then 'if open, close the dialogue form
DoCmd.Close acForm, myFormName
End If
DoCmd.OpenForm myFormName, , , , acFormEdit, acDialog 'wait here until the form is closed or made invisible
If CurrentProject.AllForms(myFormName).IsLoaded Then 'if it was not closed (if it was made invisible)
getPwd = Nz(Forms(myFormName).Form!txtPassword.Value, "") 'get the value entered
DoCmd.Close acForm, myFormName 'now close the form
End If
End Function
Public Function isLoadedForm(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.
On Error GoTo Error_isLoadedForm
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
isLoadedForm = True
End If
End If
Exit_isLoadedForm:
Exit Function
Error_isLoadedForm:
LogError Err.Number, Err.Description, "isLoadedForm"
Resume Exit_isLoadedForm
End Function
One has a choice, cancel prime or pay a few more dollars a month.
Easy choice,, cancel prime.