چگونگی کد کردن اطلاعات

[Mehr@ban]

سلام شرمنده میدونم پست های زیادی در مورد کد کردن اطلاعات در سایت وجود داره ولی هیچکدوم به کار من نیومد

درخواست من:
توضیحات کاملی در مورد کد کردن اطلاعاتی که در فرم A وارد میشود و در جدول B بصورت کد شده ثبت میشود.

با تشکر از همه عزیزان

[Mehr@ban]

از اساتيد كسي نيست جواب ما رو بده

[Mehr@ban]

هيچ جاي سايت آمورش كاملي رو در اين باره نداده
ميشه جواب بدين

[Mohammad_chz]

به نام خدا
دوست عزیز اول از یه الگوریتم کد گذاری که حتما توی سایت میتونی تعداد زیادی از اونها رو پیدا کنی استفاده کن برای کد کردن اطلاعات.
فرض کنیم تابعی به نام Code توی یه ماژول ساختی برای کد کردن اطلاعات حالا برای ذخیره کردن اطلاعات توی جدول می تونید از کد زیر استفاده کنید

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("Your Table Name")

rs.AddNew

rs.Fields(0) = Code(Text1.Text)

rs.Update

برای نمایش اطلاعات بر عکس عمل کن یعنی

Text1.Text = Code(rs.Fields(0).Value)

[mj_bayati]

با سلام
البته مطالب مفصلی درباره کد و دیکد کردن در این تالار مطرح شده
- یکی از اونا تو برنامه انبارداری جناب id1385 است!!

ولی به هرحال نمونه ای که از همین تالار گرفتم رو میذارم
ایشالله کارگشا باشه

[Mehr@ban]

با تشکر از عزیزان میشه یکم کاربردی تر توضیح بدین
و قابل توجه مدیران تالار اکسس میشه یک تاپیک مثل همین آموزش رو پر و بال بدین و پیشتر روش کار کنید

دوستانی که موافقن تا هم موضوع جمع و جور بشه و هم کاربردی و تخصصی تر بحث بشه اعلام کنن (البته تشکر در این بخش حکم موافق بودن رو داره)

اگر نمونه ها با فرمت 2003 در اختیار گذاشته بشه بهتره

ممنون

[Mehr@ban]

داداش من هر كاري كردم نتونستم كه اينو درست كنم

از اون ساخت ماژول:

فرض کنیم تابعی به نام Code توی یه ماژول ساختی برای کد کردن اطلاعات

تا پياده سازي پروسه

كمك

[id1385]

سلام
در قسمت زیر یک فایل گذاشتم که از اون توی برنامتون استفاده کنید،
نحوه ی استفاده به شکل می باشد.

محتویات فایل :

Option Compare Database

Public Function Encrypting_Decrypting(DataString As String) As String

Dim Code As String

Code = "QW@#$"

Dim I As Integer

Dim location As Integer

Temp$ = ""

For I% = 1 To Len(DataString$)

location% = (I% Mod Len(Code$)) + 1

Temp$ = Temp$ + Chr$(Asc(Mid$(DataString$, I%, 1)) Xor _

Asc(Mid$(Code$, location%, 1)))

Next I%

CODE_DECODE = Temp$

End Function

نمونه استفاده از کد:

Private Sub btn_submit_Click()

Dim Enc, Dec As String

Enc = Encrypting_Decrypting("U'r Sample text here")

Dec = Encrypting_Decrypting(Enc)

End Sub

رشته برای کد کردن (در نمونه بالا) :

Enc = Encrypting_Decrypting("U'r Sample text here")

خروجی :

gQ6-SH4w4F\%w(FV4

در حالت برگردان هم رشته کد شده را داخل اون تکه کد قرار میدهیم خروجی قابل فهم می دهد:

Encrypting_Decrypting("gQ6-SH4w4F\%w(FV4")

موفق باشد.

[aromega65]

سلام در نمونه بالا

Dec = Encrypting_Decrypting(Enc)

به Enc پیغام خطای ByRef argument type mismatch رو میده و اجرا نمیشه

[id1385]

اون dec یک نمونه بود شما طبق اشیا فرم خود باید استفاده کنی، و ورودی نباید خالی باشد

موفق باشید

[Mehr@ban]

خدا خيرت بده داداش ممنون
آقا يه سوال ديگه ميمونه

اگه بخوايم براي كاربر امكاني رو فراهم كنيم كه بتونه از اطلاعات كد شده در جدول ها خروجي داشته باشه يعني بتونه خروجي به اكسل داشته باشه كه اطلاعات كد شده رو دريافت ميكنه ميشه توضيح بدين..

[id1385]

با سلام
موقع خروجی گرفتن اول اطلاعات رو ببر توی فانکشن خروجی معمولی بگیر بعد اگه خواستی فرمت و اینا رو بهش بده بعد بفرست تو فرمت اکسل و ...

موفق باشی.

[Mehr@ban]

آقا خيلي ممنونم كه دنبال آموزش رو ميگيري.
ولي ميشه يكم توضيح بيشتري بدي
اين كه گفتي يعني چه ؟؟؟

موقع خروجی گرفتن اول اطلاعات رو ببر توی فانکشن خروجی معمولی بگیر بعد اگه خواستی فرمت و اینا رو بهش بده بعد بفرست تو فرمت اکسل و ...

يا علي

[Mehr@ban]

سلام

با عرض پوزش بخاطر مطرح کردن دوباره این تاپیک قدیمی

راهنمایی که دوست عزیز آقای id1385 دادن کاربردی و خیلی ساده بود که استفاده کردم
حالا میخوام ببینم چطور این روش رو در فرم های باند شده باید استفاده کنم؟