PDA

View Full Version : آموزش: ایجاد کد رهگیری در اکسس



meisam223
پنج شنبه 08 اردیبهشت 1390, 20:10 عصر
salam

doostan man mikham ye code rahgiri baraye har recorde to access baraye har sefareshe jadid ijad konam,be nazareton behtari rahe hal chie?

albate hamon tor ke hamegi midooni bayad hatman monhaser be fard bashe,ke inja shayad to estefade
az tabe haye tolide adad ya harfe tasadofi beshe estefade kard,ama yekta boodan hefz beshe

mamnoon misham age komakam konid

ye donya mamnoon:لبخندساده:

id1385
پنج شنبه 08 اردیبهشت 1390, 20:20 عصر
با سلام
نمونه :

[VB]
Dim i As Integer
i=10
Public Function RandomString( _
ByVal length As Long, _
Optional charset As String = "abcdefghijklmnopqrstuvwxyz0123456789" _
) As String
Dim chars() As Byte, value() As Byte, chrUprBnd As Long, i As Long
If length > 0& Then
Randomize
chars = charset
chrUprBnd = Len(charset) - 1&
length = (length * 2&) - 1&
ReDim value(length) As Byte
For i = 0& To length Step 2&
value(i) = chars(CLng(chrUprBnd * Rnd) * 2&)
Next
End If
RandomString = value
End Function

Private Sub Command1_Click()
MsgBox RandomString(i)
End Sub

البته این نمونه است شما می تونید روشهای دیگه ای رو هم استفاده کنید مثلاً بخواهید یه نمونه مثل الف/9002/A55d6d و یا هر شکل دیگه ای میخواهید درست کنید فقط یه کوچولو تمرکز میخواد :چشمک:

موفق باشید

meisam223
پنج شنبه 08 اردیبهشت 1390, 23:37 عصر
kheili mer30 be khatere inke zood komakam kardid
faghat ye chizi,in code fek konam yekta boodan ro tazmin nemikone, doroste?
yani har chand ehtemal kame:لبخندساده: ama emkane mosavi shodan hast
doroste?
emkane tashihesh hast?

amirzazadeh
یک شنبه 11 اردیبهشت 1390, 09:09 صبح
سلام
ضمن خوشامد گوئي ورود شما به اين تالار لطفا در هنگام ايجاد تاپيك از صفحه كليد فارسي استفاده نماييد.
........................
موفق باشيد

meisam223
یک شنبه 11 اردیبهشت 1390, 19:47 عصر
ممنون، حتما

meisam223
دوشنبه 16 خرداد 1390, 12:59 عصر
در مورد تکراری نبودنش چه کار باید کرد؟

مهدی قربانی
دوشنبه 16 خرداد 1390, 15:02 عصر
ممنون، حتما

سلام
دوست گرامي لطف كنيد پستهاي قبلي رو هم به فارسي ويرايش كنيد .

سعید صابری
دوشنبه 16 خرداد 1390, 18:07 عصر
فیلدت از نوع Primery انتخاب کن

michkadol
چهارشنبه 18 خرداد 1390, 11:47 صبح
با سلام
فکر کنم نمونه زیر به کارتون بیاد
در فرم bime به قسمت defualt value فیلد row توجه کنین

aagh2008
چهارشنبه 18 خرداد 1390, 13:41 عصر
با سلام
من اگر بخوام از تاريخ و ساعتي كه بروي فرم شما وجودداره در فرم خودم استفاده كنم چي كار بايد بكنم
زياد سعي كردم نشد
ايا در حد يك copy و paste هست يا چيزي بيش از اين
در صورت امكان بصورت كامل توضيح دهيد.
با تشكرفراوان

meisam223
چهارشنبه 18 خرداد 1390, 15:02 عصر
ممنون از کمکتون
هر چند این نمونه کد غیر تکراریه عددی ایجاد می کنه، اما منظور سوال من ایجاد کد رهگیری مثل کدهای ثبت نام کنکور و از این قبیل بود، کدی که قبلا در پست قرار داده شده این کار رو میکنه اما در مورد غیر تکراری بودنش نمی شه مطمئن بود

michkadol
پنج شنبه 19 خرداد 1390, 12:25 عصر
به جز کپی فیلد ساعت و تاریخ 3 تا فیلد دیگه هم از همون فرم باید کپی کنی
نام فیلدها M! و Y! و D!