A função GUIDFromString converte uma cadeia de caracteres em um GUID, que é uma matriz do tipo Byte.
Sintaxe
GUIDFromString(stringexpression)
O argumento stringexpression necessário é uma expressão de cadeia de caracteres que é avaliada como um GUID em forma de cadeia de caracteres.
Comentários
O mecanismo de banco de dados do Microsoft Access armazena GUIDs como matrizes do tipo Byte. No entanto, o Access não pode retornar dados de Byte de um controle em um formulário ou relatório. Para retornar o valor de um GUID de um controle, converta-o em uma cadeia de caracteres. Para converter um GUID em uma cadeia de caracteres, use a função StringFromGUID . Para converter uma cadeia de caracteres em um GUID, use a função GUIDFromString .
Exemplo de consulta
| Expressão. | Resultados |
|---|---|
| SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; | Exibe a "userID", converte o StringExpression(userGUID) em GUID (matriz de bytes) e exibe na coluna GUIDCode. Este exemplo só funciona para uma expressão de cadeia de caracteres que pode ser avaliada como um GUID. |
Exemplo de VBA
Observação
Os exemplos a seguir demonstram o uso dessa função em um módulo do Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
O exemplo a seguir usa a função GUIDFromString para converter uma cadeia de caracteres em um GUID. A cadeia de caracteres é um GUID armazenado em forma de cadeia de caracteres em uma tabela de Funcionários replicada. O campo, s_GUID, é um campo oculto adicionado a cada tabela replicada em um banco de dados replicado.
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