[VBA] : Checking for the presence of a value in a textbox

Hello,

'Test example on dynamically created controls
'in UserForm

Private Sub CommandButton1_Click() Dim Cont As Control 'Loop through UF For Each Cont In Me.Controls 'Check if Control is a TextBox and empty If TypeOf Cont Is MSForms.TextBox And Cont.Object.Value = "" Then MsgBox "Warning! Missing Info" & Cont.Name End If Next Cont End Sub 

Hello,
Thank you for this program.
The problem is that I can't adapt it to my button which is created dynamically.

Hello,
You should have said that from the start!! I'm looking for the code to intercept a dynamically created button click.

See you!

Re,

Retrieve the file and hang on

https://www.commentcamarche.net/faq/31279-vba-ajouter-des-controles-dynamiquement-dans-un-userform

Good luck

Hello,
Hello fxx :-)
He probably doesn't need such complicated code, with
this demo it will be easier.
Use your function.
Use the demo to dynamically add code to the button.
Of course, adapt Combo to the button's name.
See you!
Edit: But there might be an even simpler way, show the code used to add
the dynamic controls.
EDIT: I couldn't find that one anymore.

If you hit a pot and it sounds hollow, it’s not necessarily the pot that’s empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.

```html Here is the code that allows me to dynamically create my textboxes as well as the code that allows me to place the values in a sheet. Currently, with the code I wrote, it doesn’t work. I would like the error message to appear if one or more textboxes have not been filled in.

For i = 1 To n Set Obj = Me.Controls.Add("forms.Textbox.1") 'Create n textboxes With Obj .Left = 90 'Position of the textboxes from the left edge of the userform .Top = 25 * i + 10 'Spacing between each textbox .Width = 100 'Length of the textbox .Height = 18 'Height of the textbox '.BackColor = &HC0FFFF 'Background color .BorderStyle = 0 'Border style (0 or 1) .FontName = "calibri" 'Font type .FontBold = False 'Bold text .FontSize = 10 'Font size .Enabled = True 'Ability to write in the box End With Next i Dim Bouton As MSForms.CommandButton 'Adding a validate button Dim Cl As ClasBT Set Collect = New Collection Set CollectBT = New Collection Set Bouton = Me.Controls.Add("Forms.CommandButton.1", "Bt1", True) CollectBT.Add Bouton, "1" 'Add to the object collection Set Cl = New ClasBT 'Add to the class collection Set Cl.GroupBoutons = Bouton Collect.Add Cl Public Sub ControlClick(nom As String, num As Long) 'Validate button control Dim Ctrl As Control Dim CtrlName As String Dim CtrlIndex As Integer Dim ctrlText As String For Each Ctrl In Me.Controls CtrlName = Ctrl.Name If InStr(CtrlName, "TextBox") = 1 Then 'Get the textbox number CtrlIndex = Val(Mid(CtrlName, 8)) 'MsgBox CtrlIndex Worksheets("trimestre 1").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text 'Positioning the textboxes in a sheet (cells(row,column)) Worksheets("trimestre 2").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text 'Positioning the textboxes in a sheet (cells(row,column)) Worksheets("trimestre 3").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text 'Positioning the textboxes in a sheet (cells(row,column)) Else End If Next For i = 1 To n If Worksheets("trimestre 1").Cells(i + 9, 1).Value = "" Then 'Check the values entered in the textboxes Reponse = MsgBox("Please fill in each box." & Chr(10) & Chr(10) & "To complete your list click OK." & Chr(10) & "To return to the homepage click Cancel.", vbExclamation + vbOKCancel, "Error") If Reponse = vbCancel Then 'If you click Cancel Unload UserForm1 demarrage.Show Else End If End If Next i 

Here is my class module (ClasBT) for my validation button:

Option Explicit Public WithEvents GroupBoutons As MSForms.CommandButton Private Sub GroupBoutons_Click() Call UserForm1.ControlClick(GroupBoutons.Caption, GroupBoutons.Tag) End Sub

```

Huumm, I recognize a lot of parts of your code... :-)
But I see that you haven't quite understood everything yet, that's normal, it's not easy.
Do you only have one button? If so, there's no need for the collection of objects. (Class module)
The simplest... post an example of your spreadsheet, I'll see about making it work.

If you bump into a pot and it sounds hollow, it's not necessarily the pot that's empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.

Yes, it is quite possible that you will recognize it, but it is true that I am a beginner, so I don't understand everything.
For the button, I created it dynamically because I want it to automatically place itself next to the last textbox of the userform.
You will find my file attached if you want to take a look.
Thank you and have a good evening.
http://dl.free.fr/getfile.pl?file=/pb9pbCSv

Re,
A workbook with your TextBox
I saved the data on Sheet1, since there aren't individual sheets for each student.
Do as stated on Sheet1.
The button only validates when all the textBoxes are filled in.
I added a lot of notes so that you can understand the purpose of the collections.
You say..
See you later
If you bump into a pot and it sounds hollow, it's not necessarily the pot that's empty. ;-)(Confucius)
NOTE: I do not respond to private messages for technical questions.

Hello,
Thank you very much, it works perfectly. I'm starting to understand how collections work thanks to your comments. I hadn't thought of locking the validate button; that's a very good idea!
Thank you for the time you dedicated to it!