Setting default vaulue?

[June7]

I open the Reg Season Entries form, enter data into a (New) record row (some controls don't allow entry/edit). As soon as I hit the RdHmA combobox (the last control on the row) by Tab, Enter, or mouse click it populates with H or R.

Don't know what else can offer as guidance.

[djclntn]

Hey June,

I wanted to thank you for all of your help & time - as always! I started writing to you about surrendered in trying to figure out how to get this to work -- I'm just spending too much time spinning my wheels. Please, no reference to you. However, I gave it one last shot by downloading your dbs trying it again from scratch & I think that it's working as I wanted. Earily today when I tried, when I would enter a new Record & when I tapped on the 'RdHm' only 'R' was coming up with every new Record so I was all ready to throw in the towel. As I said, I gave it one more shot & I think it's working; 'H' is coming up in every other new recrd. I'll know for sure tomorrow morning when i enter teams results from this evenings games. Thanks

[June7]

There is a slight flaw in my code. I wrote and tested it with data already in the table. If you start with an empty table the code will error because there is not yet a record saved in the table, therefore no Max("rsID") exists. This code handles that situation:

Private Sub Combo82_GotFocus()
    Dim strHR As String
    If IsNull(Me.Combo82) Then
        strHR = Nz(DLookup("RdHm", "[Reg Season]", "rsID=" & Nz(DMax("rsID", "[Reg Season]"), 0)), "")
        Me.Combo82 = IIf(strHR = "" Or strHR = "R", "H", "R")
    End If
End Sub