فروم تخصصی - پشتیبانی CPSD - توابع و کدهای مفید

فعال سازی غلطک ماوس در اکسس 2013 - 2007

Fri, 23 Nov 2012 18:51:26 +0330

ضمن سلام

یکی از تغییراتی که از بدو ایجاد نسخه 2007 اکسس با آن مواجه شده ایم , غیر فعال سازی عملکرد غلطک ماوس در خصوص گشت و گذار در بین رکوردهای ثبت شده می باشد

تا نسخه 2003 با چرخاندن غلطک ماوس , اکسس اقدام به تغییر رکورد جاری کرده و رفتاری همچون فشار بر روی دکمه های Next Record و Previous Record را از خود به نمایش می گذاشت

از آنجا که در برخی مواقع کاربر به صورت اتفاقی اقدام به گرداندن غلطک ماوس می نمود , در این حالت اکسس نیز اقدام به ثبت اطلاعات تغییر داده شده می کرد که همین امر مطلوب برخی کاربران نبود

بر همین اساس مایکروسافت اقدام به حذف این مشخصه رفتاری , از نسخه 2007 اکسس نمود

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

اقدام به کپی نمودن کدهای زیر در داخل رویداد On Mouse Wheel فرم نمایید :

کد: 

If (Count < 0) And (Me.CurrentRecord > 1) Then

     DoCmd.GoToRecord , , acPrevious

   ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then

        DoCmd.GoToRecord , , acNext

   End If

در صورتی که مایل هستید از جایجایی رکوردها به صورت اتفاقی پس از تغییر در داخل یک رکورد , جلوگیری به عمل آورید نیز , میتوانید از کد تکمیل شده زیر استفاده نمایید ( به جایگزینی کد فوق ) :

کد: 

If Not Me.Dirty Then

   If (Count < 0) And (Me.CurrentRecord > 1) Then

     DoCmd.GoToRecord , , acPrevious

   ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then

        DoCmd.GoToRecord , , acNext

   End If

 Else

   MsgBox "لطفا اقدام به ذخيره سازي داده ورودي نماييد"

 End If

موفق باشید

تهيه نسخه پشتيبان از فايل اكسس

Sat, 04 Feb 2012 15:07:49 +0330

با سلام

يكي از مواردي كه الزاماً در خصوص طراحي يك بانك اطلاعاتي ميبايست مد نظر قرار گيرد ، اسقرار و پياده سازي يك رويه تهيه نسخه پشتيبان مي باشد

با توجه به احتمالات متعددي كه در خصوص تخريب بانكهاي اطلاعاتي ميتوان متصور شد ، الزامي مي نمايد كه سيستمهاي اطلاعاتي خود را به يك سيستم سهل الوصول تهيه نسخه پشتيبان مجهز نماييد

در فايل پيوست شما با نحوه تهيه نسخه پشتيبان به صورت فشرده ( زيپ شده ) از يك فايل اكسس آشنا خواهيد شد

نمونه بر اساس معماري FEBE طراحي و پياده سازي شده است

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

بخشي جهت نگهداري اطلاعات ، شامل جداول كه به آن Back End ميگوييم و بخشي نيز جهت نگهداري مابقي آبجكتها ( متغيرهاي يك سيستم اطلاعاتي ) كه آن را Front End مي ناميم

در يك پروسه بك آپ گيري ، در واقع رويه تكرار پذير تهيه نسخه پشتيبان ، مي بايست در خصوص بخش Back End به عمل بيايد ، يعني بخشي كه ماهيت حياتي دارد

در نمونه پيوست عمليات تهيه نسخه پشتيبان به صورت فشرده شده و با نامي منحصر به فرد در هر بار اجرا ، به عمل خواهد آمد

جهت مشاهده نحوه عملكرد در اين مثال :

ابتدا اقدام به كپي نمودن فايلها در داخل ريشه درايو C نماييد ( در داخل هيچ فولدري قرار نداشته باشد )

فايل XZip.dll را رجيستر كنيد

اقدام به باز نمودن فايل FrontEnd.mdb نموده و عمليات تهيه نسخه پشتيبان از فايل BackEnd.mdb را به انجام برسانيد

به جهت سهولت ايده گيري ، مثال موجود در ساده ترين حالت ممكن طراحي و پياده سازي گرديده و امكان پيچيده سازي تا سطوح بسيار بالاتري را خواهد داشت

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

BackUp Project.zip (اندازه: 99.58 KB / تعداد دفعات دریافت: 1007)

موفق باشيد

جداسازی اعداد از یکدیگر

Thu, 12 Jan 2012 21:51:05 +0330

با سلام

در برخی موارد این نیاز وجود داره که در اسناد ( گزارشات ) ارقام به صورتی مجزا به نمایش در بیان ( به صورت ذیل )

راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش

کد: 

For i = 1 To 9

       Me("p" & i) = Mid(StrReverse(txtNum), i, 1)

Next i

دستور فوق اقدام به جداسازی اعداد 9 رقمی خواهد نمود در صورتی که مایل بودید تعداد ارقام رو تغییر بدید شما تنها نیاز دارید عدد 9 رو به عدد مد نظر تغییر داده و TextBox های متناظر رو در داخل گزارش به جهت جایگیری عدد ایجاد کنید

کد: 

For i = 1 To 12

       Me("p" & i) = Mid(StrReverse(txtNum), i, 1)

Next i

Dividing Numbers.zip (اندازه: 53.48 KB / تعداد دفعات دریافت: 408)

موفق باشید

حذف يك كاراكتر خاص از مجموع كاراكترهاي وارد شده

Wed, 27 Oct 2010 14:51:51 +0330

ضمن سلام

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

کد: 

Public Function StripChars(EnteryText As String, StripChar As String) As String

On Error GoTo StripCharsError

   Dim lngFound As Long

   lngFound = 1

   Do Until lngFound = 0

      lngFound = InStr(EnteryText, StripChar)

      If lngFound = 0 Then GoTo AllDone

      EnteryText = Left(EnteryText, lngFound - 1) & Mid(EnteryText, lngFound + 1)

   Loop

AllDone:

   StripChars = EnteryText

StripCharsExit:

   Exit Function

StripCharsError:

   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description

   Resume StripCharsExit

End Function

مثال :

کد: 

StripChars("Sample---Text","-")=SampleText

StripChars("Sample   Text"," ")=SampleText

موفق باشيد

تابع شمارش تعداد خطوط متن

Thu, 02 Sep 2010 19:08:23 +0430

ضمن سلام

در تابع زیر شما میتونید عملیات شمارش تعداد خطوط موجود در داخل یک Text Box و یا یک ورودی از نوع متن رو به انجام برسونید

در واقع این تابع بر اساس تعداد دکمه های Enter فشرده شده در داخل متن عمل میکنه و تا وقتی که خط توسط دکمه Enter شکسته نشه , تابع همچنان تعداد خطوط رو یک فرض میکنه .

کد: 

Function CounterLines(EnteryText As String) As Integer

On Error GoTo Err_CounterLines

Dim LenTX As Integer

CounterLines = 1

LenTX = Len(EnteryText)

For i = 1 To LenTX

If Asc(Mid(EnteryText, i, 1)) = "10" Then

CounterLines = CounterLines + 1

End If

Next i

Exit_CounterLines:

On Error Resume Next

Exit Function

Err_CounterLines:

Select Case Err.Number

Case 0

Resume Exit_CounterLines:

Case Else

MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in module modSample - function CounterLines"

Resume Exit_CounterLines:

End Select

End Function