Как можно проверить на пустой указатель в официальном наборе документов ДАО VBA?
После просмотра скриншота сообщения, которое вы вложили, похоже, что вы пытаетесь подключиться с экземпляра GCP к серверу «200.229.50.3», чей IP-адрес принадлежит «LEVEL UP! INTERACTIVE LTDA» в Бразилии; однако кажется, что «200.229.50.3» не позволяет вам подключиться («200.229.50.3» не отвечает). Если это правильно, вам, возможно, придется создавать правила брандмауэра в «200.229.50.3» вместо того, чтобы создавать их в GCP.
Я вижу, что у вас есть три правила, разрешающие входящий и исходящий трафик от и к экземплярам GCP, но ни одно из них не влияет на «200.229.50.3», потому что этот сервер не принадлежит проекту GCP: с именем «testeee» разрешает входящие подключения с IP-адреса 200.229.50.3 ко всем экземплярам проекта GCP через порт 6900. - Правило брандмауэра Windows «Порт 6900» разрешает подключения с любого IP-адреса вне сервера Windows через порт 6900. - Правила брандмауэра GCP «mean-stack» и «exit900» разрешают исходящий трафик от экземпляров GCP к любому IP-адресу вне проекта GCP через порт 6900.
Я попытался установить соединение telnet с 200.229.50.3:6900, но оно не отвечает. Это может быть нормально, потому что на этом сервере может быть брандмауэр, который не разрешает соединения с моего IP-адреса; однако я должен спросить следующее:
- Можете ли вы подтвердить, что 200.229.50.3 разрешает соединения через порт 6900 из вашего экземпляра GCP?
3 ответа
Как насчет:
IsNull(rs.Fields("MiddleInitial").Value)
Вы могли также взглянуть на эта статья , которая имеет некоторое объяснение о Нулевых значениях в Доступе приложения VBA и как обработать их.
Для примера Вы показываете, Nz работал бы:
thisMiddleInitial = Nz(rs!MiddleInitial,"")
Или просто конкатенация строки с пустой строкой:
thisMiddleInitial = rs!MiddleInitial & ""
На Ваш вопрос ответил Remou, кажется мне, но мне приходит в голову, что можно просто пытаться получить надлежащую конкатенацию полей имени. В этом случае Вы могли использовать Середину () и Пустое распространение в VBA для получения результата.
я не использую отдельные средние начальные поля, таким образом, моя обычная формула конкатенации имени:
Mid(("12" + LastName) & (", " + FirstName), 3)
Эти "12" строка вначале будет отказанной, если LastName Не является Пустым и не проигнорирован, если это пустой указатель, потому что + оператор конкатенации распространяет, Аннулирует.
Для расширения это для включения средних инициалов было бы похоже на это:
Mid(("12" + LastName) & (", " + FirstName) & (" " + MiddleInitial), 3)
Принятие Вашего UDF не делает некоторой сложной очистки псевдонимов/сокращений/и т.д., это могло заменить его полностью, кажется мне.