اذهب الي المحتوي
أوفيسنا

طريقة لجعل مربع غير منظم يقوم ارشفة ما يكتب فيه


rey360

الردود الموصى بها

تفضل اخي الكريم

في حدث بعد التحديث ضع الكود التالي مع مراعاة اضافة اسم مربع النص

الأمر الذي سيتم تنفيذه

- انشاء جدول للبحث بإسم SaveSearch

- حفظ جميع النصوص المدخلة من مربع النص

- حفظ التاريخ و الوقت

Dim x
x = [مربع النص]

On Error GoTo errorhandle
    DoCmd.RunSQL "CREATE TABLE SaveSearch ([Search] VARCHAR (200) , [Date_Search] VARCHAR (20) );"
errorhandleexit:
        Exit Function
errorhandle:
        If Err.Number = 3010 Then
            DoCmd.SetWarnings False
            DoCmd.RunSQL "INSERT INTO SaveSearch Values ('" & x & "' , Now())"
            DoCmd.SetWarnings True


        Else
            MsgBox Err.Number & "-" & Err.Description
        End If
        
        Resume errorhandleexit

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

في ١١‏/٩‏/٢٠١٩ at 10:36, rey360 said:

شكرا لك أستاذ د.كاف يار لكن عند تشغيل الماكرو يظهر بأنه هناك مشكل في exit function يقول بأنها غير مسموح لها في اجراءات sub

 

2019-09-11_092844.png

غيرها الى exit sub

  • Thanks 1
رابط هذا التعليق
شارك

11 دقائق مضت, ابا جودى said:

غيرها الى exit sub

سلام عليكم  أستاذ ابا جودى عند تغير exit function الى exit sub قام بانشاء جدول SaveSearch ولكنه فارغ لانهم قام بتجاهل باقي الاوامر عندما قمت با exit sub  وشكرا لك

تم تعديل بواسطه rey360
رابط هذا التعليق
شارك

في ١١‏/٩‏/٢٠١٩ at 10:50, rey360 said:

سلام عليكم  أستاذ ابا جودى عند تغير exit function الى exit sub قام بانشاء جدول SaveSearch ولكنه فارغ لانهم قام بتجاهل باقي الاوامر عندما قمت با exit sub  وشكرا لك

ممكن المرفق اللى حضرتك شغال عليه

  • Thanks 1
رابط هذا التعليق
شارك

32 دقائق مضت, ابا جودى said:

غيرها الى exit sub

اتوقع الامر الاول يعمل ملف جديد للبحث و اذا حصل ملف البحث يقوم بتنفيذ الامر الي تحت و اتوقع هذا الارجح

رابط هذا التعليق
شارك

1 دقيقه مضت, ابا جودى said:

صحيح شغال فل الفل

رابط هذا التعليق
شارك

1 دقيقه مضت, ابا جودى said:

شكرا لك أستاذ لم يكون يعمل عندي من قبل

 

  • Haha 1
رابط هذا التعليق
شارك

تفضل تعديل الكود اخي الكريم

 

On Error GoTo errorhandle
Dim x
اسم مربع النص الذي في النموذج
x = [مربع النص]
            DoCmd.SetWarnings False
			اسم الجدول الذي سيتم تخزين به نصوص البحث
            DoCmd.RunSQL "INSERT INTO [ اسم الجدول ] Values ('" & x & "' , Now())" 
            DoCmd.SetWarnings True
errorhandleexit:
        Exit sub
errorhandle:

            MsgBox Err.Number & "-" & Err.Description
        
        Resume errorhandleexit

 

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information