Questione : Errore che non aggiunge

Sotto sono i codici che ho ottenuto da una base di dati della mascherina. La ho modificata un piccolo per aggiungere più campi. Il problema è che i codici funzionano perfettamente se l'evento non è ricorrente o ripetentesi, ma quando è ricorrente, non include il projectID o LocID. Ho esaminato il codice varie volte ma non posso calcolare fuori che cosa sto facendo male?
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
class= cmdBuildSchedule_Click secondario " del id= " codeSnippet941284 del 
Private " notpretty " ()
    datThis fiochi come data
    lngActID fioco come lungamente
    lngLocID fioco come lungamente
    lngrojectID fioco come lungamente
    lngOrganizationID fioco come lungamente
    varNotes fiochi come variante
    strSQL fioco come stringa
    Db fioco come DAO.Database
    intDOW fioco come giorno di numero intero 'della settimana
    intDIM fioco come giorno di numero intero 'in mese
    Se Me.grpRepeats = 2 allora
        Se non CheckDates () allora
            Uscire il sommergibile
        Concluder se
    Concluder se
    'Se non CheckTimes () allora
       'Uscire il sommergibile
    'Concluder se
    Se IsNull (Me.cboActID) allora
        MsgBox “dovete selezionare un'attività. „, vbOKOnly + il vbInformation, “entra nell'attività„
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Escono il sommergibile
    Concluder se
    Se IsNull (Me.cboLocID) allora
        MsgBox “dovete selezionare una posizione. „, vbOKOnly + il vbInformation, “entra nella posizione„
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Escono il sommergibile
    Concluder se
    Se IsNull (Me.cboOrgID) allora
        MsgBox “dovete selezionare un'organizzazione. „, vbOKOnly + il vbInformation, “entra nella posizione„
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Escono il sommergibile
    Concluder se
        Se IsNull (Me.cboProjectID) allora
        MsgBox “dovete selezionare un progetto. „, vbOKOnly + il vbInformation, “entra nella posizione„
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Escono il sommergibile
    Concluder se
    'strTitle = titolo di Me.txt
    varNotes = note di Me.txt
    lngLocID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Regolar db = CurrentDb
    Se Me.grpRepeats = 2 allora 'devono collegare attraverso le date
        Per i datThis = Me.txt StartDate a Me.txt EndDate
            intDIM = GetDIM (datThis)
            intDOW = giorno della settimana (datThis)
            Se me (“chkDay„ & intDIM & intDOW) = allineo o il _
                    Me (“chkDay0„ & intDOW) = allora allineo
  strSQL = “INSERTO nei tblTempSchedDates (" & nel _
                    “tscDate, OrgID, tscActID, tscLocID, ProjectID,„ & _
                   “tscNotes)„ & _
                    “Valori (#„ & datThis & “#,„ & lngOrganizationID & “,„ & lngrojectID & “,„ & lngActID & “,„ & _
                    lngLocID & “,„ & _
                    IIf (IsNull (varNotes), “posizione di segnale minimo„, """" & varNotes & """") & ") “
                db. Eseguire lo strSQL, dbFailOnError
            Concluder se
        Dopo
     Altrimenti 'le date sono là, appena aggiungono il titolo, le note, i periodi, la posizione, attività
        strSQL = “tscActID regolato tblTempSchedDates dell'aggiornamento =„ & lngActID & _
            “, tscLocID =„ & lngLocID & “, OrgID =„ & lngOrganizationID & “, ProjectID =„ & lngrojectID
            
        Se Len (varNotes & "") > 0 allora
            strSQL = strSQL & “, tscNotes =„ & IIf (IsNull (varNotes), posizione di segnale minimo, """" & varNotes & """")
        Concluder se
        db. Eseguire lo strSQL, dbFailOnError
    Concluder se
    Me.sfrmTempScheduleEdit.Requery
    Il programma provvisorio di MsgBox “ha costruito. „ & _
        “Potete ora pubblicare il programma e„ & il _
        “aggiungere al programma permanente. „, vbOKOnly + vbInformation, “programma del Temp completo„
Sommergibile dell'estremità
class= del

Risposta : Errore che non aggiunge

Suona come voi vuole permettere un tracciato statico attraverso accesso esterno.  Dovete generare un tracciato staic:

(all'interno, all'esterno) netmask statico 255.255.255.255 0 0

Allora aggiungere un'entrata al vostro ACL corrente legata alla vostra interfaccia esterna:

permesso tcp (o UDP o IP) della parte esterna della accesso-lista qualsiasi eq ospite
Altre soluzioni  
 
programming4us programming4us