Question : Error not Appending

Below are codes that I got from a template database. I modified it a little to add more fields. The problem is that the codes run perfectly if the event is not recurrent or repeating, but when it is recurrent, it does not include projectID or LocID. I looked at the code several times but can not figure out what I am doing wrong?

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:



Private Sub cmdBuildSchedule_Click()
    Dim datThis As Date
    Dim lngActID As Long
    Dim lngLocID As Long
    Dim lngrojectID As Long
    Dim lngOrganizationID As Long
    Dim varNotes As Variant
    Dim strSQL As String
    Dim db As DAO.Database
    Dim intDOW As Integer 'day of week
    Dim intDIM As Integer 'Day in month
    If Me.grpRepeats = 2 Then
        If Not CheckDates() Then
            Exit Sub
        End If
    End If
    'If Not CheckTimes() Then
       ' Exit Sub
    'End If
    If IsNull(Me.cboActID) Then
        MsgBox "You must select an Activity.", vbOKOnly + vbInformation, "Enter Activity"
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Exit Sub
    End If
    If IsNull(Me.cboLocID) Then
        MsgBox "You must select a Location.", vbOKOnly + vbInformation, "Enter Location"
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Exit Sub
    End If
    If IsNull(Me.cboOrgID) Then
        MsgBox "You must select an organization.", vbOKOnly + vbInformation, "Enter Location"
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Exit Sub
    End If
        If IsNull(Me.cboProjectID) Then
        MsgBox "You must select a project.", vbOKOnly + vbInformation, "Enter Location"
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Exit Sub
    End If
    'strTitle = Me.txtTitle
    varNotes = Me.txtNotes
    lngLocID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Set db = CurrentDb
    If Me.grpRepeats = 2 Then 'need to loop through dates
        For datThis = Me.txtStartDate To Me.txtEndDate
            intDIM = GetDIM(datThis)
            intDOW = Weekday(datThis)
            If Me("chkDay" & intDIM & intDOW) = True Or _
                    Me("chkDay0" & intDOW) = True Then
  strSQL = "INSERT INTO tblTempSchedDates (" & _
                    "tscDate, OrgID, tscActID, tscLocID, ProjectID,  " & _
                   "tscNotes ) " & _
                    "Values(#" & datThis & "#," & lngOrganizationID & "," & lngrojectID & "," & lngActID & ", " & _
                    lngLocID & ", " & _
                    IIf(IsNull(varNotes), "Null", """" & varNotes & """") & ")"
                db.Execute strSQL, dbFailOnError
            End If
        Next
     Else  'dates are there, just add the title, notes, times, location, Activity
        strSQL = "Update tblTempSchedDates Set tscActID = " & lngActID & _
            ", tscLocID = " & lngLocID & ", OrgID = " & lngOrganizationID & ", ProjectID = " & lngrojectID
            
        If Len(varNotes & "") > 0 Then
            strSQL = strSQL & ", tscNotes = " & IIf(IsNull(varNotes), Null, """" & varNotes & """")
        End If
        db.Execute strSQL, dbFailOnError
    End If
    Me.sfrmTempScheduleEdit.Requery
    MsgBox "Temporary schedule built. " & _
        "You can now edit the schedule and " & _
        "append to the permanent schedule.", vbOKOnly + vbInformation, "Temp schedule complete"
End Sub

Answer : Error not Appending

It sounds like you want to allow a static mapping through for outside access. You need to create a staic mapping:

static (inside,outside) <EXTERNAL IP> <INTERNALIP> netmask 255.255.255.255 0 0

Then add an entry to your current ACL tied to your outside interface:

access-list outside permit tcp (or UDP or IP) any host <EXTERNAL IP> eq <PORT NEEDED FOR ACCESS>