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

[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

 

[rey360]

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

 

[ابو جودي]

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

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

 

غيرها الى exit sub

[rey360]

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

غيرها الى exit sub

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

تم تعديل سبتمبر 11, 2019 بواسطه rey360

[ابو جودي]

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

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

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

[طلب اكسس]

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

غيرها الى exit sub

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

[rey360]

أستاذ ابا جودى 

 

Base de données4 - Copie.rar

[ابو جودي]

انه يعمل بنجاح

اين المشكله

 

Base de données4 - Copie.accdb

تم تعديل سبتمبر 11, 2019 بواسطه ابا جودى

[طلب اكسس]

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

انه يعمل بنجاح

اين المشكله

 

Base de données4 - Copie.accdb 580 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

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

[rey360]

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

انه يعمل بنجاح

اين المشكله

 

Base de données4 - Copie.accdb 580 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

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

 

[ابو جودي]

هههههههههههههههه

انا ما قمت بتعديل اى شئ

انه تصميمك وباكوادك فقط انا قمت بالتجربة ووجدته يعمل 

[rey360]

شكرا لك أستاذ ابا جودى المشكلة كانت في حفظ الملف 

 

[rey360]

 أستاذ ابا جودى هل يمكن قيام بهاذا العمل عن طريق استعلام وليس الأكواد بحيث الجدول الذي تريد أن تظهر النتائج فيه يكون مصمم من قبل مثل هذا  

test.rar

[د.كاف يار]

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

 

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

 

[kha9009lid]

جرب المرفق

الحاق بالجدول.accdb

[rey360]

شكرا لك أستاذ د.كاف يار وشكرا لك أستاذ kha9009lid على العمل الذي قمتما به 

 

تم تعديل سبتمبر 11, 2019 بواسطه rey360