ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сгенерить GUID в VBA?
8 сообщений из 8, страница 1 из 1
Как сгенерить GUID в VBA?
    #32607222
Andrey Mamitko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey Mamitko
Гость
Как сгенерить GUID в VBA?

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

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

например

Код: plaintext
Debug.Print Application.VBE.VBProjects( 1 ).References( 1 ).GUID  ' свойство GUID используется для возвращения кода GUID для указанного объекта Reference конкретного проекта.
...
Рейтинг: 0 / 0
16.07.2004, 07:57:59
| Ответить | Цитировать | Написать  
Как сгенерить GUID в VBA?
    #32607242
AlTis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlTis
Участник
Код: 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:19:31
| Ответить | Цитировать | Написать  
Как сгенерить GUID в VBA?
    #32607275
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Andrey MamitkoКак сгенерить GUID в VBA?

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

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

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

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

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

Код: 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, 09:52:03
| Ответить | Цитировать | Написать  
Как сгенерить GUID в VBA?
    #32607511
Andrey Mamitko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey Mamitko
Гость
Ага, спасибо!
...
Рейтинг: 0 / 0
16.07.2004, 10:48:00
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сгенерить GUID в VBA?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1594&tid=1673168]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 231ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


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