MSAccess VBA: как отобразить номер с предшествующим 0?

Question

У меня есть следующие почтовые индексы в связанной таблице.Мой запрос извлекается из этой связанной таблицы.

01234
00123
12345
12345-6789

Проблема: предыдущие нули обрезаются.Я попытался добавить апостроф для преобразования в строку: ="'" & [PCode] Но это не очень хорошее решение.

Пожалуйста, помогите.Спасибо.

Answer 1

Формат должен подойти:

p="12345-6789"
?Format(p,"00000")
12345-6789

p="123"
?Format(p,"00000")
00123

Однако, если у вас число больше 5 цифр, для которого требуются предшествующие нули, вам потребуется IIF:

p="123-6789"
?Format(p,"00000")
123-6789

Answer 2

Postal Code: IIf([PCode] Like "####","0" & [PCode],IIf([PCode] Like "#####-",Left([PCode],Len([PCode])-1),IIf([PCode] Like "#########",Format([PCode],"@@@@@-@@@@"),[PCode])))