Caption Property & Queries
I realize I could simply delete the Caption. However, this is a database I receive weekly from an external source, and it has many fields in it.
This problem occurs in both Access 2003 &
Thank you for taking the time to report an issue.
What's wrong... Please write below.
Then I will change the caption property of the form so that the tab of the form does NOT show frmNameOfForm. I replace it with something more user friendly.
I'd like to do the same for my queries.
Is it possible to change the caption property of the query so that it does not show qryNameOfQuery on the tab
I am trying:
but get this error message:
Error Number: 2465
Why is this caption record counter not working?
Me.Caption = "Record " & (Me.RecordsetClone.AbsolutePosition + 2) & " of " & Me.RecordsetClone.RecordCount
and how can I stop my code from clicking onto the next record when I have this on click of my "Next" button?
DoCmd.GoToRecord , , acNext.
Report_MyReport.Controls("lblFilter").Caption = txtDate.value
Report_MyReport.lblFilter.Caption = txtDate.value
And, it just not working. I'm not sure how to reference that label's caption property properly.
Dim varReport As Variant
For Each varReport In .AllReports
If Right(varReport.Name, 1) = "Z" Then
Problem is that the report names are not very end user friendly, and won't really be. I'm looking for a way to add the report's Caption to the combo as well, and tried using a 2 column combo and the following:
cmbReport.AddItem varReport.Name & ";" & varReport.Caption
This doesn't work though as I get an object doesn't support this property or method error.
Sometimes the user wants to update the caption for the label - this carries through to the report heading etc.
It's simple to get the user to change the caption using a button /InputBox, however when we close and re-open the Database
it defaults back to the original caption - not the updated one.
Is it possible to save the most recent caption as the default
The below code works
Private Sub cmdscroll_Click() Dim x As Integer, y As Integer Dim Start, delay For x = 1 To 100 Start = Timer delay = Start + 1 Do While Timer < delay lbl1.Caption = Mid(lbl1.Caption, 2) & Left(lbl1.Caption, 1) lbl2.Caption = Mid(lbl2.Caption, 2) & Left(lbl2.Caption, 1) DoEvents Loop DoEvents Start = Timer delay = Start + 1 Next x End Sub
but it makes the text scroll too fast. The answer he had was to increase the delay time ie
delay = start+3000
. I have tried that to no avail.
My form has a command button as you can see from the code and 2 label boxes. The cmd button should start the scroll once clicked
Private Sub Report_Activate() TxtPurchaseOrder.Visible = True TxtPurchaseOrder.SetFocus Label17.Caption = "Thank you for your purchase order " & TxtPurchaseOrder.Text & " received " TxtDate.Visible = True TxtDate.SetFocus TxtPurchaseOrder.Visible = False Label17.Caption = Label17.Caption & TxtDate.Text & "." Text28.SetFocus TxtDate.Visible = False End Sub
Worked perfectly now i've introduced a subreport and it errors out on the second line, TxtPurchaseOrder.SetFocus giving the error stated earlier. TxtPurchaseOrder is a bound field linking to a table, the subreport is bound to a query.
(the same is True with a command button, it changes is Caption only when I click on it)
Still, the form goes in AllowEdits and AllowDeletitions. It behaves like an event is not raised.
Here's te code: