Applies ToAccess za Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Funkcija GUIDFromString pretvara niz u GUID, što je polje vrste Bajta.

Sintaksa

GUIDFromString ( izraz niza )

Traženi argument stringexpression nizovni je izraz koji se vrednuje kao GUID u obliku niza.

Napomene

Modul baze podataka programa Microsoft Access pohranjuje GUID-ove kao polja vrste Bajt. No Access ne može vratiti bajtne podatke iz kontrola na obrazac ili izvješće. Da biste vratili vrijednost GUID-a iz kontrole, morate je pretvoriti u niz. Da biste GUID pretvorili u niz, koristite funkciju StringFromGUID . Da biste niz pretvorili u GUID, koristite funkciju GUIDFromString .

Primjer upita

Izraz

Rezultati

SELECT userID,GUIDfromString(userGUID) kao GUIDCode FROM GUID_Table;

Prikazuje "userID", pretvara StringExpression(userGUID) u GUID (polje bajtova) i prikazuje se u GUID kodu stupca. Ovaj primjer funkcionira samo za nizovni izraz koji se može vrednovati kao GUID.

Primjer VBA-a

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U sljedećem se primjeru koristi funkcija GUIDFromString za pretvaranje niza u GUID. Niz je GUID pohranjen u obliku niza u repliciranoj tablici Zaposlenici. Polje, s_GUID, skriveno je polje dodano svakoj repliciranoj tablici u repliciranoj bazi podataka.

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

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.