Cuestión : Error que no añade

Debajo están los códigos que conseguí de una base de datos de la plantilla. La modifiqué un poco para agregar más campos. El problema es que los códigos funcionan perfectamente si el acontecimiento no es recurrente o de repetición, sino que cuando es recurrente, no incluye el projectID o LocID. ¿Miraba el código varias veces pero no puedo imaginar lo que estoy haciendo mal?
class= > " claro " 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 secundario " del id= " codeSnippet941284 del 
Private " notpretty " ()
    datThis déviles como fecha
    lngActID dévil como de largo
    lngLocID dévil como de largo
    lngrojectID dévil como de largo
    lngOrganizationID dévil como de largo
    varNotes déviles como variante
    strSQL dévil como secuencia
    DB dévil como DAO.Database
    intDOW dévil como día de número entero 'de semana
    intDIM dévil como día de número entero 'en mes
    Si Me.grpRepeats = 2 entonces
        Si no CheckDates () entonces
            Salir el submarino
        Terminar si
    Terminar si
    'Si no CheckTimes () entonces
       'Salir el submarino
    'Terminar si
    Si IsNull (Me.cboActID) entonces
        MsgBox “usted debe seleccionar una actividad. ”, vbOKOnly + el vbInformation, “incorpora actividad”
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Salen el submarino
    Terminar si
    Si IsNull (Me.cboLocID) entonces
        MsgBox “usted debe seleccionar una localización. ”, vbOKOnly + el vbInformation, “entra en la localización”
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Salen el submarino
    Terminar si
    Si IsNull (Me.cboOrgID) entonces
        MsgBox “usted debe seleccionar una organización. ”, vbOKOnly + el vbInformation, “entra en la localización”
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Salen el submarino
    Terminar si
        Si IsNull (Me.cboProjectID) entonces
        MsgBox “usted debe seleccionar un proyecto. ”, vbOKOnly + el vbInformation, “entra en la localización”
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Salen el submarino
    Terminar si
    'strTitle = título de Me.txt
    varNotes = notas de Me.txt
    lngLocID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Fijar DB = CurrentDb
    Si Me.grpRepeats = 2 entonces 'necesitan colocar a través de fechas
        Para los datThis = Me.txt StartDate a Me.txt EndDate
            intDIM = GetDIM (datThis)
            intDOW = día laborable (datThis)
            Si (“chkDay” y intDIM y intDOW) = verdad o el _
                    (“chkDay0” y intDOW) = entonces verdad
  strSQL = “PARTE MOVIBLE EN tblTempSchedDates (” y _
                    “tscDate, OrgID, tscActID, tscLocID, ProjectID,” y _
                   “tscNotes)” y _
                    “Valores (#” y datThis y “#,” y lngOrganizationID y “,” y lngrojectID y “,” y lngActID y “,” y _
                    lngLocID y “,” y _
                    IIf (IsNull (varNotes), “falta de información”, """" y varNotes y """") y ") “
                DB. Ejecutar el strSQL, dbFailOnError
            Terminar si
        Después
     Las 'fechas están allí, apenas agregan el título, notas, épocas, localización, actividad
        strSQL = “tscActID fijado tblTempSchedDates de la actualización =” y lngActID y _
            “, tscLocID =” y lngLocID y “, OrgID =” y lngOrganizationID y “, ProjectID =” y lngrojectID
            
        Si Len (varNotes y "") > 0 entonces
            strSQL = strSQL y “, tscNotes =” y IIf (IsNull (varNotes), falta de información, """" y varNotes y """")
        Terminar si
        DB. Ejecutar el strSQL, dbFailOnError
    Terminar si
    Me.sfrmTempScheduleEdit.Requery
    El horario temporal de MsgBox “construyó. ” y _
        “Usted puede ahora corregir el horario y” y el _
        “añadir al horario permanente. ”, vbOKOnly + vbInformation, “horario del Temp completo”
Submarino del extremo
class= del

Respuesta : Error que no añade

Suena como usted quiere permitir un trazado estático a través para el acceso exterior.  Usted necesita crear un trazado staic:

(adentro, afuera) netmask estático 255.255.255.255 0 0

Entonces agregar una entrada a su ACL actual atada a su interfaz exterior:

permiso tcp (o UDP o IP) del exterior de la acceso-lista cualquie eq del anfitrión
Otras soluciones  
 
programming4us programming4us