Вопрос : Ошибка не прилагая

Под Кодие я получил от базы данных шаблона. Я доработал его немногая для того чтобы добавить больше полей. Проблема что Кодие бегут совершенно если случай не возвратн или повторяющ, то но когда он возвратн, он не вклюает projectID или LocID. Я посмотрел Кодего несколько времен но не могу давать в численном выражении я делаю неправильно?
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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 " id= " codeSnippet941284 
Private Sub ()
    Тусклые datThis как дата
    Тусклое lngActID как длиной
    Тусклое lngLocID как длиной
    Тусклое lngrojectID как длиной
    Тусклое lngOrganizationID как длиной
    Тусклые varNotes как вариант
    Тусклое strSQL как шнур
    Тусклый db как DAO.Database
    Тусклое intDOW как день интежер 'недели
    Тусклое intDIM как день интежер 'в месяце
    Если Me.grpRepeats = 2 после этого
        Если не CheckDates () после этого
            Выходите подводная лодка
        Закончитесь если
    Закончитесь если
    'Если не CheckTimes () после этого
       'Выходите подводная лодка
    'Закончитесь если
    Если IsNull (Me.cboActID) после этого
        MsgBox «вы должны выбрать деятельность. », vbOKOnly + vbInformation, «вписывает деятельность»
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Выходите подводная лодка
    Закончитесь если
    Если IsNull (Me.cboLocID) после этого
        MsgBox «вы должны выбрать положение. », vbOKOnly + vbInformation, «входит положение»
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Выходите подводная лодка
    Закончитесь если
    Если IsNull (Me.cboOrgID) после этого
        MsgBox «вы должны выбрать организацию. », vbOKOnly + vbInformation, «входит положение»
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Выходите подводная лодка
    Закончитесь если
        Если IsNull (Me.cboProjectID) после этого
        MsgBox «вы должны выбрать проект. », vbOKOnly + vbInformation, «входит положение»
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Выходите подводная лодка
    Закончитесь если
    'strTitle = название Me.txt
    varNotes = примечания Me.txt
    lngLocID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Установите db = CurrentDb
    Если Me.grpRepeats = 2 после этого 'нужно закрепить петлеть через даты
        Для datThis = Me.txt StartDate к Me.txt EndDate
            intDIM = GetDIM (datThis)
            intDOW = будний день (datThis)
            Если я («chkDay» & intDIM & intDOW) = True или _, то
                    Я («chkDay0» & intDOW) = True после этого
  strSQL = «ВСТАВКА В tblTempSchedDates (" & _
                    «tscDate, OrgID, tscActID, tscLocID, ProjectID,» & _
                   «tscNotes)» & _
                    «Значения (#» & datThis & «#,» & lngOrganizationID & «,» & lngrojectID & «,» & lngActID & «,» & _
                    lngLocID & «,» & _
                    IIf (IsNull (varNotes), «Null», """" & varNotes & """") & ") «
                db. Исполните strSQL, dbFailOnError
            Закончитесь если
        Затем
     Еще 'даты там, как раз добавляют название, примечания, времена, положение, деятельность
        strSQL = «tscActID уточнения установленное tblTempSchedDates =» & lngActID & _
            «, tscLocID =» & lngLocID & «, OrgID =» & lngOrganizationID & «, ProjectID =» & lngrojectID
            
        Если Len (varNotes & "") > 0 после этого
            strSQL = strSQL & «, tscNotes =» & IIf (IsNull (varNotes), Null, """" & varNotes & """")
        Закончитесь если
        db. Исполните strSQL, dbFailOnError
    Закончитесь если
    Me.sfrmTempScheduleEdit.Requery
    План-график MsgBox «временно построил. » & _
        «Вы можете теперь редактировать план-график и» & _
        «приложите к постоянному план-графику. », vbOKOnly + vbInformation, «план-график Temp вполне»
Подводная лодка конца
class=

Ответ : Ошибка не прилагая

Оно звучает как вы хочет позволить статический составлять карту до конца для внешнего доступа.  Вам нужно создать staic составлять карту:

статическое (внутрь, снаружи) netmask 255.255.255.255 0 0

После этого добавьте вход к вашему в настоящее время ACL связанный к вашей внешней поверхности стыка:

разрешение tcp (или UDP или IP) снаружи доступ-списка любое eq хозяина
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us