Vraag : Fout die toevoegt niet

Hieronder zijn de codes die ik van een malplaatjegegevensbestand kreeg. Ik wijzigde het een weinig om meer gebieden toe te voegen. Het probleem is dat de codes volkomen lopen als de gebeurtenis niet terugkomend of herhalend is, maar wanneer het terugkomend is, omvat het niet projectID of LocID. Ik bekeek meerdere keren de code maar kan niet berekenen wat ik verkeerd doe?
" codeBody " 
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:
van 
Private SubcmdBuildSchedule_Click ()
    Schemerige datThis als Datum
    Schemerige lngActID zoals lang
    Schemerige lngLocID zoals lang
    Schemerige lngrojectID zoals lang
    Schemerige lngOrganizationID zoals lang
    Schemerige varNotes als Variant
    Schemerige strSQL als Koord
    Schemerige db als DAO.Database
    Schemerige intDOW de dag als van Geheel 'van week
    Schemerige intDIM de Dag als van Geheel 'in maand
    Als Me.grpRepeats = 2 toen
        Als niet CheckDates () toen
            Sub van de uitgang
        Eind als
    Eind als
    'Als niet CheckTimes () toen
       'Sub van de uitgang
    'Beëindig als
    Als IsNull (Me.cboActID) toen
        MsgBox „u moet een Activiteit selecteren. “, vbOKOnly + gaat vbInformation, „Activiteit in“
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Sub van de uitgang
    Eind als
    Als IsNull (Me.cboLocID) toen
        MsgBox „u moet een Plaats selecteren. “, vbOKOnly + gaat vbInformation, „Plaats in“
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Sub van de uitgang
    Eind als
    Als IsNull (Me.cboOrgID) toen
        MsgBox „u moet een organisatie selecteren. “, vbOKOnly + gaat vbInformation, „Plaats in“
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Sub van de uitgang
    Eind als
        Als IsNull (Me.cboProjectID) toen
        MsgBox „u moet een project selecteren. “, vbOKOnly + gaat vbInformation, „Plaats in“
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Sub van de uitgang
    Eind als
    'strTitle = Me.txt Titel
    varNotes = Me.txt Nota's
    lngLocID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Vastgesteld db = CurrentDb
    Als Me.grpRepeats = 2 dan 'aan lijn door data vereisen
        Voor datThis = Me.txt StartDate aan Me.txt EndDate
            intDIM = GetDIM (datThis)
            intDOW = Weekdag (datThis)
            Als me („chkDay“ & intDIM & intDOW) = Waar of _
                    Me („chkDay0“ & intDOW) = Waar toen
  strSQL = „NEEM IN tblTempSchedDates op (“ & _
                    „tscDate, OrgID, tscActID, tscLocID, ProjectID,“ & _
                   „tscNotes)“ & _
                    „Waarden (#“ & datThis & „#,“ & lngOrganizationID & „,“ & lngrojectID & „,“ & lngActID & „,“ & _
                    lngLocID & „,“ & _
                    IIf (IsNull (varNotes), „Ongeldig“, """" & varNotes & """") &“) „
                db. Voer strSQL, dbFailOnError uit
            Beëindig als
        Daarna
     Anders de 'data zijn daar, voeg enkel de titel, nota's, tijden, plaats, Activiteit toe
        strSQL = de „Update tblTempSchedDates plaatste tscActID =“ & lngActID & _
            „, tscLocID =“ & lngLocID & „, OrgID =“ & lngOrganizationID & „, ProjectID =“ & lngrojectID
            
        Als Len (varNotes & "") > 0 toen
            strSQL = strSQL & „, tscNotes =“ & IIf (IsNull (varNotes), Ongeldig, """" & varNotes & """")
        Eind als
        db. Voer strSQL, dbFailOnError uit
    Beëindig als
    Me.sfrmTempScheduleEdit.Requery
    Tijdelijke gebouwde programma van MsgBox het „. “ & _
        „U kunt het programma nu uitgeven en“ & _
        „voeg aan het permanente programma toe. “, vbOKOnly + plant vbInformation, „Temperaturen volledig“
Sub van het eind

Antwoord : Fout die toevoegt niet

Het klinkt als u wil een statische afbeelding voor buitentoegang door toestaan.  U moet een staic afbeelding tot stand brengen:

statisch (binnen, buiten) netmask 255.255.255.255 0 0

Dan voeg een ingang aan uw huidige die ACL toe aan uw buiteninterface wordt gebonden:

van de toegang-lijst TCP buitenkantvergunning (of UDP of IP) om het even welke gastheer eq
Andere oplossingen  
 
programming4us programming4us