Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub cbo_EditAlloc_Recipient_AfterUpdate() Dim intProgCount As Integer Dim strProgramName As String Dim StrRowSource_SQL As String intProgCount = DCount("Program", "tbl_Recipient", "[PersonNum] = " & Forms!frm_EditAllocations!cbo_EditAlloc_Recipient) strProgramName = DLookup("Program", "tbl_Recipient", "[PersonNum] = " & Forms!frm_EditAllocations!cbo_EditAlloc_Recipient) StrRowSource_SQL = "SELECT tbl_Recipient.Program, tbl_Recipient.PersonNum " & _ "FROM tbl_Recipient GROUP BY tbl_Recipient.Program, tbl_Recipient.PersonNum " & _ "HAVING (((tbl_Recipient.PersonNum)= " & _ [Forms]![frm_EditAllocations]![cbo_EditAlloc_Recipient] & _ "));" Me.cbo_EditAlloc_Program.Enabled = True If intProgCount = 1 Then Me.cbo_EditAlloc_Program.Requery Me.cbo_EditAlloc_Program.Value = strProgramName 'Purpose updates Me.cbo_EditAlloc_Purpose.Requery Me.cbo_EditAlloc_Purpose.SetFocus Else Me.cbo_EditAlloc_Program.Value = "" Me.cbo_EditAlloc_Program.RowSourceType = "Table/Query" Me.cbo_EditAlloc_Program.RowSource = StrRowSource_SQL Me.cbo_EditAlloc_Program.SetFocus End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Need more granular date groupings||4||45|
|How to sort columns on a continuous form populated by resetting the recordet, as when a recordset is returned from a stored procedure?||5||48|
|Exchange 2013 database automatically getting mounted on another DAG node||5||47|
|MS Access Error - specified field could refer to more than one table listed||10||36|
Join the community of 500,000 technology professionals and ask your questions.