Функция GUIDFromString преобразует строку в GUID, который является массивом типа Byte.
Синтаксис
GUIDFromString(stringexpression)
Обязательный аргумент stringexpression — это строковое выражение, которое вычисляется как GUID в строковой форме.
Замечания
Ядро СУБД Microsoft Access хранит идентификаторы GUID в виде массивов типа Byte. Однако Access не может возвращать байтовые данные из элемента управления в форме или отчете. Чтобы вернуть значение GUID из элемента управления, необходимо преобразовать его в строку. Чтобы преобразовать GUID в строку, используйте функцию StringFromGUID . Чтобы преобразовать строку в GUID, используйте функцию GUIDFromString .
Пример запроса
| Выражение | Результаты |
|---|---|
| SELECT userID,GUIDfromString(userGUID) в качестве GUIDCode FROM GUID_Table; | Отображает "userID", преобразует stringExpression(userGUID) в GUID (массив байтов) и отображается в столбце GUIDCode. Этот пример работает только для строкового выражения, которое может вычислить по GUID. |
Пример VBA
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В приведенном ниже примере функция GUIDFromString используется для преобразования строки в код GUID. Строка является кодом GUID, который хранится в строковой форме в реплицированной таблице Employees. Поле s_GUID является скрытым полем, добавленным в каждую реплицированную таблицу в реплицированной базе данных.
Sub CheckGUIDType()
Dim dbsConn As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
' Make a connection to the current database.
Set dbsConn = Application.CurrentProject.Connection
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "Employees", _
dbsConn, , , adCmdTable
' Print the GUID to the immediate window.
Debug.Print rst!s_GUID
Debug.Print TypeName(rst!s_GUID)
Debug.Print TypeName(GuidFromString(rst!s_GUID))
Set rstEmployees = Nothing
Set dbsConn = Nothing
End Sub