Is there a way to have the listindex of listboxes to have a preset value of zero when the userform initializes or opens?
Thank you and Denny
Sub Button1_Click()
TrapUF.Show
End Sub I would like these to be preset to these values when the userform is opened.
Locationlb.ListIndex = 0 SetsLB.ListIndex = 0 Lure1LB.ListIndex = 0 Lure2lb.ListIndex = 0 Lure3LB.ListIndex = 0 BaitLB.ListIndex = 0 UrineLB.ListIndex = 0 TrapLB.ListIndex = 0 TargetLB.ListIndex = 0 SNotesTB.Text = "" CBRem.Value = False
Denny,
there are two ways.
One is to load the form first and make those settings, then show the form
Sub Button1_Click() Load TrapUF With TrapUF
.Locationlb.ListIndex = 0 .SetsLB.ListIndex = 0 .Lure1LB.ListIndex = 0 .Lure2lb.ListIndex = 0 .Lure3LB.ListIndex = 0 .BaitLB.ListIndex = 0 .UrineLB.ListIndex = 0 .TrapLB.ListIndex = 0 .TargetLB.ListIndex = 0 .SNotesTB.Text = "" .CBRem.Value = False
End With TrapUF.Show End Sub
since this code it not in the userform module, you must qualify the names with their parent, the userform. This is easily done using the With; End With construct as shown above.
the other way is to use the Initialize Event.
Private Sub Userform_Initialize()
Locationlb.ListIndex = 0 SetsLB.ListIndex = 0 Lure1LB.ListIndex = 0 Lure2lb.ListIndex = 0 Lure3LB.ListIndex = 0 BaitLB.ListIndex = 0 UrineLB.ListIndex = 0 TrapLB.ListIndex = 0 TargetLB.ListIndex = 0 SNotesTB.Text = "" CBRem.Value = False
End Sub
This always has the name Userform_Initialize no matter what the name of the userform it. You can go into the userform module and at the top in the dropdowns, select Userform on the left and Initialize on the right. That will put in the proper declaration. Then add your code to that.
This event fires everytime the form is loaded.
Advertisement