| |
|
|
| | Нужна функция - для генерации уникальных наименований изделий.
В неё наверное надо будет вставить проверку на уникальность - проверив существует ли уже такое наименование в базе (таблице). У кого какие идеи есть?  | |
| |
| |
| |
|
|
| | поле счетчик - в пустой табле и будет тебе счастье крепи его куда захочешь.
или прото табла с полем Целое куда +1 каждый раз пригенерации изделия
код_изделия ="Изд_" & Month(Date) & "-" & id_
id_=id_+1 | |
| |
| |
| |
|
|
| | я бы взял NOW :)....
время до милисекунд....
и проверьять ничего не надоть :)
а ещё можно использовать GUID
он, вродькак тоже уникальный :)
я в одном проекте использовал - для производственной компании (мороженое)
даже, по моему, гдето здесь и выкладывал то ли куски кода толи что-то по теме :) | |
| |
| |
| |
|
|
| |
а эт че - по подробней  может мне его как раз в жизни и не доставало, а теперь достанет | |
| |
| |
| |
|
|
| |
Guid Property
See AlsoApplies ToExampleSpecifics
The GUID property of a Reference object returns a GUID
that identifies a type library in the Windows Registry. Read-only String.
expression.Guid
expression
Required. An expression that returns one of the objects in the Applies To list.
Remarks
The GUID property is available only by using Visual Basic.
Every type library has an associated GUID which is stored in the Registry.
When you set a reference to a type library, Microsoft Access uses the type library's
GUID to identify the type library.
You can use the AddFromGUID method to create a Reference object from a type library's GUID.
Example
The following example prints the value of the FullPath, GUID, IsBroken,
Major, and Minor properties for each Reference object in the References collection:
Sub ReferenceProperties()
Dim ref As Reference
' Enumerate through References collection.
For Each ref In References
' Check IsBroken property.
If ref.IsBroken = False Then
Debug.Print "Name: ", ref.Name
Debug.Print "FullPath: ", ref.FullPath
Debug.Print "Version: ", ref.Major & "." & ref.Minor
Else
Debug.Print "GUIDs of broken references:"
Debug.Print ref.GUID
EndIf
Next ref
End Sub
|
Public Sub StringValueOfGUID()
Dim ctl As Control
Dim strGUID As String
' Get the GUID.
Set ctl = Forms!Employees!s_GUID
Debug.Print TypeName(ctl.Value)
' Convert the GUID to a string.
strGUID = StringFromGUID(ctl.Value)
Debug.Print TypeName(strGUID)
End Sub
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
|
| |
| |
| |
| |
|
|
| | так при чем оно к уникальности  ели это код референса который один и тот же
или я чегото не понял | |
| |
| |
| |
|
|
| | почитай о нем и все поймешь :) | |
| |
| |
|
|
| |
|
|
| | использовать GUID для именования изделия это жестока!
- Валя, отпусти Петрову парочку {6F8619FF-8B73-D011-B42D-00АС4FC964МF}
|
| |
| |
| |
| |
|
|
| | патамушта нада людям тренировать гибкость мыслей! а то попривыкали фтакть в одну кнопку, которая сделает её фсьо!  | |
| |
| |
| |
 38 Кб. |
|
| | так Силыч, так, попривыкали с компами, мобилами, нетбуками | |
| |
| |
| |
|
|
| | да! [затянул жалостливо] мы тегяем когнии-и-и... | |
| |
| |
| |
|
|
| | http://www.hiprog.com/forum/read.php?id_forum=2&id_theme=8197&page=1
:) | |
| |
| |
| |
|
|
| | согласен со счетчиком, чем не уникальный префикс?
недостатки - при удалении и всатвке того же изделия номер будет другой.
Еще можно восп. ф-ей, ген. сл.числа. | |
| |
| |
| |
|
|
| |
недостатки - при удалении и всатвке того же изделия номер будет другой.
|
напиши логи - обработки | |
| |
| |
|
|
|
|
|
|
