Frage : Nicht hinzufügende Störung

Unter sind Codes, die ich von einer Schablonendatenbank erhielt. Ich änderte sie wenig, um mehr Felder zu addieren. Das Problem ist, dass die Codes tadellos laufen, wenn das Ereignis nicht rückläufig oder wiederholend ist, aber, wenn es rückläufig ist, umfaßt es nicht projectID oder LocID. Ich betrachtete, den Code mehrmals aber kann nicht herausfinden, was ich falsch tue? 
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:
6:
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 VorcmdBuildSchedule_Click ()
    Schwache datThis als Datum
    Schwaches lngActID als lang
    Schwaches lngLocID als lang
    Schwaches lngrojectID als lang
    Schwaches lngOrganizationID als lang
    Schwache varNotes als Variante
    Schwaches strSQL als Schnur
    Schwaches DB als DAO.Database
    Schwaches intDOW als Zahl'Tag der Woche
    Schwaches intDIM als Zahl-'Tag im Monat
    Wenn Me.grpRepeats = 2 dann
        Wenn nicht CheckDates () dann
            Unterseeboot herausnehmen
        Beenden wenn
    Beenden wenn
    'Wenn nicht CheckTimes () dann
       'Unterseeboot herausnehmen
    'Beenden wenn
    Wenn IsNull (Me.cboActID) dann
        MsgBox „Sie müssen eine Tätigkeit vorwählen. “, vbOKOnly + tragen vbInformation, „Tätigkeit“ ein
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Nehmen Unterseeboot heraus
    Beenden wenn
    Wenn IsNull (Me.cboLocID) dann
        MsgBox „Sie müssen eine Position vorwählen. “, vbOKOnly + kommen vbInformation, „Position“
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Nehmen Unterseeboot heraus
    Beenden wenn
    Wenn IsNull (Me.cboOrgID) dann
        MsgBox „Sie müssen eine Organisation vorwählen. “, vbOKOnly + kommen vbInformation, „Position“
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Nehmen Unterseeboot heraus
    Beenden wenn
        Wenn IsNull (Me.cboProjectID) dann
        MsgBox „Sie müssen ein Projekt vorwählen. “, vbOKOnly + kommen vbInformation, „Position“
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Nehmen Unterseeboot heraus
    Beenden wenn
    'strTitle = Me.txt-Titel
    varNotes = Me.txt-Anmerkungen
    lngLocID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Einstellen DB = CurrentDb
    Wenn Me.grpRepeats = 2 dann 'sich durch Daten schlingen müssen
        Für datThis = Me.txt StartDate zu Me.txt EndDate
            intDIM = GetDIM (datThis)
            intDOW = Wochentag (datThis)
            Wenn ich („chkDay“ u. intDIM u. intDOW) = ausrichte oder _
                    Ich („chkDay0“ u. intDOW) = richte dann aus
  strSQL = „EINSATZ IN tblTempSchedDates (“ u. _
                    „tscDate, OrgID, tscActID, tscLocID, ProjectID,“ u. _
                   „tscNotes)“ u. _
                    „Werte (#“ u. datThis u. „#,“ u. lngOrganizationID u. „,“ u. lngrojectID u. „,“ u. lngActID u. „,“ u. _
                    lngLocID u. „,“ u. _
                    IIf (IsNull (varNotes), „Null“, """" u. varNotes u. """") u. ") „
                DB. strSQL, dbFailOnError durchführen
            Beenden wenn
        Zunächst
     Sonst 'Daten sind dort, addieren gerade den Titel, Anmerkungen, Zeiten, Position, Tätigkeit
        strSQL = „Update tblTempSchedDates stellte tscActID =“ u. lngActID u. _ ein
            „, tscLocID =“ u. lngLocID u. „, OrgID =“ u. lngOrganizationID u. „, ProjectID =“ u. lngrojectID
            
        Wenn Len (varNotes u. "") > 0 dann
            strSQL = strSQL u. „, tscNotes =“ u. IIf (IsNull (varNotes), Null, """" u. varNotes u. """")
        Beenden wenn
        DB. strSQL, dbFailOnError durchführen
    Beenden wenn
    Me.sfrmTempScheduleEdit.Requery
    MsgBox „temporärer Zeitplan errichtete. “ u. _
        „Sie können den Zeitplan und“ u. _ jetzt redigieren
        „zum dauerhaften Zeitplan hinzufügen. “, vbOKOnly + vbInformation, „Tempzeitplan komplett“
Enden-Unterseeboot

Antwort : Nicht hinzufügende Störung

Es klingt wie Sie möchte statisches durch abbilden äußeren Zugang zulassen.  Sie müssen ein staic Diagramm verursachen:

statisches (nach innen, draußen) netmask 255.255.255.255 0 0

Eine Eintragung Ihrem gegenwärtigen ACL dann hinzufügen gebunden an Ihrer äußeren Schnittstelle:

Zugangliste Außenseiten-Erlaubnis-TCP (oder UDP oder IP) irgendein Wirt eq
Weitere Lösungen  
 
programming4us programming4us