Преобразовать часть идентификационного номера в текстовый доступ VBA - PullRequest
0 голосов
/ 27 мая 2019

Может кто-нибудь помочь мне с небольшой проблемой.Таким образом, у меня есть БД, где вы вводите личные данные кого-то, и у меня есть 4 поля, которые я бы хотел, чтобы VBA генерировал автоматически.Первое поле - это поле ID Number, а затем - поля DateOfBirth и Age.Они автоматически генерируются только из поля ID.Однако, чтобы сэкономить время, я хочу, чтобы часть поля ID-номера генерировала, является ли человек мужчиной или женщиной.

Чтобы объяснить это, позвольте мне привести пример.Идентификационный номер основан на южноафриканском идентификационном номере.Это 13-значный номер, например, 851205 5205 08 6. Первые 6 цифр указывают дату рождения (1985/12/05).Эта часть номера обновляет мое поле DOB, а также сообщает мне людей старше с VBA.Теперь я хочу, чтобы числа «5205» автоматически генерировали мое поле, независимо от того, мужчина это или женщина.Женщинам присваиваются номера в диапазоне 0000-4999, а мужчинам от 5000-9999.Если вам нравится более подробная информация, то, пожалуйста, Google «расшифровывает ваш южноафриканский идентификационный номер».

Так что, если я введу этот идентификационный номер выше, он определит человека как мужчину.Может кто-нибудь помочь мне с каким-то VBA?

Спасибо

нашел решение, и оно работает так, как я хочу:

If (Mid([txtIDnumber].Value, 7, 4) > 4999) Then
Me.cboGender = "MALE"
Else
Me.cboGender = "FEMALE"
End If
...