Tupacmoche
Registered User.
- Local time
- Today, 08:50
- Joined
- Apr 28, 2008
- Messages
- 291
Hi VBA Masters,
I have this simple code:
'THIS CODE POPULATES THE GIFT TYPE COMBO BOX
strPerson = "Soft;Joint;IHO;IMO;Faculty & Friends"
strOrg = "Soft;IHO;IMO;Faculty & Friends"
If Nz(DLookup("PersonorOrgan", "dbo_tblTransmittalInfo", "GiftID= " & [GiftID] & " "), "P") = "P" Then
Me.SoftGiftType.RowSource = strPerson
Me.SoftGiftType.RowSourceType = "Value List"
Else
Me.SoftGiftType.RowSource = strOrg
Me.SoftGiftType.RowSourceType = "Value List"
End If
Using a DLookup it determines if a row belongs to a Person (p) or an Organization (o). Using a simple if statement it assigns the appropriate string to a combo box. But, I always get the same string assignment. Can anyone see what is wrong?:banghead:
I have this simple code:
'THIS CODE POPULATES THE GIFT TYPE COMBO BOX
strPerson = "Soft;Joint;IHO;IMO;Faculty & Friends"
strOrg = "Soft;IHO;IMO;Faculty & Friends"
If Nz(DLookup("PersonorOrgan", "dbo_tblTransmittalInfo", "GiftID= " & [GiftID] & " "), "P") = "P" Then
Me.SoftGiftType.RowSource = strPerson
Me.SoftGiftType.RowSourceType = "Value List"
Else
Me.SoftGiftType.RowSource = strOrg
Me.SoftGiftType.RowSourceType = "Value List"
End If
Using a DLookup it determines if a row belongs to a Person (p) or an Organization (o). Using a simple if statement it assigns the appropriate string to a combo box. But, I always get the same string assignment. Can anyone see what is wrong?:banghead: