تحديد GUID لحقل في اكسس ضرورة ملحة بعد فصل القاعدة

Public Function NewGUID() As String
   
   Const cTable As String = "USys_GUID"
   
   Dim strSQL As String
   Dim db As Object
   Dim strPath As String
   strPath = Application.CurrentProject.Path & "\za-cus-UP_table1.accdb"
  
   Set db = DBEngine.OpenDatabase(strPath)
   If DCount("*", "MSysObjects", "Type IN (1,4,6) And [Name]='" & cTable & "'") = 0 Then
       With db
           Dim tdf As Object
           Set tdf = .CreateTableDef(cTable)
           With tdf
               Dim fld As Object
               Set fld = .CreateField("MyGUID", dbGUID)
               fld.Attributes = (fld.Attributes Or 8132)
               tdf.Fields.Append fld
           End With
           .TableDefs.Append tdf
           .TableDefs.Refresh
       End With
       
   End If
       
   db.Execute "DELETE FROM " & cTable
   With db.OpenRecordset("SELECT * FROM " & cTable & " WHERE 1=0")
       .AddNew
       NewGUID = Replace(Replace(.Fields(0), "{guid ", ""), "}}", "}")
       .CancelUpdate
       .Close
   End With
End Function