This problem has been wearing on me for sometime now and I've tried everything that I can think of to fix it. Anyway, I have created a custom control to be placed in a data repeater of another project. In this custom control there are 3 text boxes and one combobox. I don't want to allow the user to update the three text boxes, which is working for me, but I want to allow the user to update the combobox. The combobox loads fine with the correct data but when the user clicks on a different value it doesn't update the database. I've checked over my gets and lets and I also think that I've got my property changes correct. Here is the code....
Private Sub cboWeight_Change()
PropertyChanged "Weight"
End Sub
Private Sub cboWeight_Click()
PropertyChanged "Weight"
End Sub
Private Sub lblCharter_Change()
PropertyChanged "Charter"
End Sub
Private Sub lblGID_Change()
PropertyChanged "GID"
End Sub
Private Sub lblTeam_Change()
PropertyChanged "Team"
End Sub
Public Property Get Charter() As Variant
Charter = lblCharter.Caption
End Property
Public Property Let Charter(ByVal NewCharter As Variant)
lblCharter.Caption = NewCharter
End Property
Public Property Get GID() As Variant
GID = lblGID.Caption
End Property
Public Property Let GID(ByVal NewGID As Variant)
lblGID.Caption = NewGID
End Property
Public Property Get Team() As Variant
Team = lblTeam.Caption
End Property
Public Property Let Team(ByVal NewTeam As Variant)
lblTeam.Caption = NewTeam
End Property
Public Property Get Weight() As Variant
Weight = cboWeight.Text
End Property
Public Property Let Weight(ByVal NewWeight As Variant)
cboWeight.Text = NewWeight
End Property
I would appreciate any help I can get!
Thanks
Private Sub cboWeight_Change()
PropertyChanged "Weight"
End Sub
Private Sub cboWeight_Click()
PropertyChanged "Weight"
End Sub
Private Sub lblCharter_Change()
PropertyChanged "Charter"
End Sub
Private Sub lblGID_Change()
PropertyChanged "GID"
End Sub
Private Sub lblTeam_Change()
PropertyChanged "Team"
End Sub
Public Property Get Charter() As Variant
Charter = lblCharter.Caption
End Property
Public Property Let Charter(ByVal NewCharter As Variant)
lblCharter.Caption = NewCharter
End Property
Public Property Get GID() As Variant
GID = lblGID.Caption
End Property
Public Property Let GID(ByVal NewGID As Variant)
lblGID.Caption = NewGID
End Property
Public Property Get Team() As Variant
Team = lblTeam.Caption
End Property
Public Property Let Team(ByVal NewTeam As Variant)
lblTeam.Caption = NewTeam
End Property
Public Property Get Weight() As Variant
Weight = cboWeight.Text
End Property
Public Property Let Weight(ByVal NewWeight As Variant)
cboWeight.Text = NewWeight
End Property
I would appreciate any help I can get!
Thanks