![eagetmail gmail eagetmail gmail](https://devanswers.co/wp-content/uploads/2017/02/google-display-unlock-captcha.png)
'If you need to make any adjustments to other labels, 'Criteria met, so blank out this datalabel If pt.DataLabel.Text = " some condition " Then 'Now, check the datalabels one by one, testing for your criteria
#Eagetmail gmail code#
So that code will now call on another sub-procedure: Sub AdjustDataLabels(cht As Graph.Chart) ChartTitle.Text = (VBA.DatePart("m", VBA.Date()) - 1) & " " & VBA.DatePart("yyyy", VBA.Date()) & _Ĭall AdjustDataLabels(tstChart) 'Call a procedure to modify the labels as needed Within your procedure we will call another sub to do this: Set tstChart = !testing!barEquip.Object I'm assuming the value here being displayed is 0, and that you simply want to hide labels if it's 0, and do nothing to the other labels. Once we know they are displayed, iterate the points and selectively manipulate the point's DataLabel.Text property, based on it's DataLabel.Text property. The idea is to first ensure that the series data labels are being displayed. They are more limited in what you can do with them, which is what I was afraid of. You are using a Graph.Chart instead of a Chart. Me.Controls(strResultControl) = Me.Controls(strValueControl) / _ 'Debug.Print strResultControl, strValueControl, strCalcControl ' In response to your comments, I'll suggest this procedure as a starting point for you to build upon: Public Sub MyTextBoxValues() Rather than computing a result for me.txt_001_result and then assigning that value to the text box, consider setting the control source for txt_001_result to txt_001_value / txt_001_calc and let Access put the proper value into txt_001_result for you. I realize you want to do something with ctl.Name other than Debug.Print, but I don't know what that is. However, I don't understand what you're trying to accomplish. You could call it from the form's Load event: Private Sub Form_Load() You can list the names of textbox controls with a simple procedure like this: Public Sub TextBoxNames(ByRef pfrm As Form)