Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сгенерить GUID в VBA? / 8 сообщений из 8, страница 1 из 1
16.07.2004, 07:25:41
    #32607222
Andrey Mamitko
Andrey Mamitko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
Как сгенерить GUID в VBA?

Спасибо, заранее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 07:57:59
    #32607229
andj25
andj25
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
а что значит сгенерировать guid ?

guid вроде как возвращает значение типа String, содержащее идентификатор класса объекта. Только для чтения.

например

Код: plaintext
Debug.Print Application.VBE.VBProjects( 1 ).References( 1 ).GUID  ' свойство GUID используется для возвращения кода GUID для указанного объекта Reference конкретного проекта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 08:19:31
    #32607242
AlTis
AlTis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
'==============================================================
'Название
'   Создать GUID
'Параметры:
'Возвращает GUID (32 символа)

Public Function GetGUID() As String
'(c)  2000  Gus Molina

Dim udtGUID As GUID
Dim strGuid As String

If (CoCreateGuid(udtGUID) =  0 ) Then

strGuid = _
String( 8  - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
String( 4  - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
String( 4  - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
IIf((udtGUID.Data4( 0 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 0 )) & _
IIf((udtGUID.Data4( 1 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 1 )) & _
IIf((udtGUID.Data4( 2 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 2 )) & _
IIf((udtGUID.Data4( 3 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 3 )) & _
IIf((udtGUID.Data4( 4 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 4 )) & _
IIf((udtGUID.Data4( 5 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 5 )) & _
IIf((udtGUID.Data4( 6 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 6 )) & _
IIf((udtGUID.Data4( 7 ) < &H10), "0", "") & Hex$(udtGUID.Data4( 7 ))
End If

GetGUID = strGuid
    
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 08:55:06
    #32607275
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
Andrey MamitkoКак сгенерить GUID в VBA?

Спасибо, заранее.
Версия Акса?
mdb или adp?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 09:18:54
    #32607319
Andrey Mamitko
Andrey Mamitko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
AlTis,
Спасибо! И извините, что забыл сказать, что нужна именно строка

paparomeВерсия Акса?
mdb или adp?
:) Нужно в VBA :)
На самом деле мне это нужно в Excel'е сделать :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 09:48:02
    #32607368
Andrey Mamitko
Andrey Mamitko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
AlTis,

А он мне говорить что-то типа Automation types are not supported in Visual Baisic

(запускается из Excel'а)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 09:52:03
    #32607376
AlTis
AlTis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
о, сори.

в начале модуля:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4( 7 ) As Byte
End Type
Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 10:48:00
    #32607511
Andrey Mamitko
Andrey Mamitko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сгенерить GUID в VBA?
Ага, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сгенерить GUID в VBA? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 337ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1673168]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 32ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 225ms
total:  337ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]