Hi All,
I'm having some problems with datacombos can you tell? Well here is my problems. First when I try to delete something off the corresponding table. Only the first element in the list drops no matter what. SO for example if I had a list that looked like this:
Bob
Mary
Jane
Elizabeth
I then deleted Mary, Bob would disappear and that is the only that would disappear. Then it also doesn't get rid of the space that the old value held. So in this instance on the top there would always be a space. My second other big problem is that when I add something to the table below it doesn't show up no matter what I do to the datacombo. Here is the code I'm using to do a refresh but it isn't exactly working. I'm running SP5 if that matters to anyone. Thanks in advance.
On Error Resume Next
DataEnvironment1.rsEmployees.Resync adAffectAll
Debug.Print DataEnvironment1.rsEmployees.RecordCount
With cmbEmp
Set .RowSource = DataEnvironment1
.RowMember = "Employees"
.ListField = "UserName"
.BoundText = "UserID"
.ReFill
End With
If Err.Number <> 0 Then
' Do Nothing
End If
I'm having some problems with datacombos can you tell? Well here is my problems. First when I try to delete something off the corresponding table. Only the first element in the list drops no matter what. SO for example if I had a list that looked like this:
Bob
Mary
Jane
Elizabeth
I then deleted Mary, Bob would disappear and that is the only that would disappear. Then it also doesn't get rid of the space that the old value held. So in this instance on the top there would always be a space. My second other big problem is that when I add something to the table below it doesn't show up no matter what I do to the datacombo. Here is the code I'm using to do a refresh but it isn't exactly working. I'm running SP5 if that matters to anyone. Thanks in advance.
On Error Resume Next
DataEnvironment1.rsEmployees.Resync adAffectAll
Debug.Print DataEnvironment1.rsEmployees.RecordCount
With cmbEmp
Set .RowSource = DataEnvironment1
.RowMember = "Employees"
.ListField = "UserName"
.BoundText = "UserID"
.ReFill
End With
If Err.Number <> 0 Then
' Do Nothing
End If
