rey360 قام بنشر سبتمبر 10, 2019 مشاركة قام بنشر سبتمبر 10, 2019 السلام عليكم أريد أن اسأل حظرة الاساتذة لجعل مربع غير منظم يقوم بأرشفة مايكتب فيه في جدول خارجي وبوقت واليوم اذا أمكن وشكرا رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 تفضل اخي الكريم في حدث بعد التحديث ضع الكود التالي مع مراعاة اضافة اسم مربع النص الأمر الذي سيتم تنفيذه - انشاء جدول للبحث بإسم 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 1 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 شكرا لك أستاذ د.كاف يار لكن عند تشغيل الماكرو يظهر بأنه هناك مشكل في exit function يقول بأنها غير مسموح لها في اجراءات sub رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 في ١١/٩/٢٠١٩ at 10:36, rey360 said: شكرا لك أستاذ د.كاف يار لكن عند تشغيل الماكرو يظهر بأنه هناك مشكل في exit function يقول بأنها غير مسموح لها في اجراءات sub غيرها الى exit sub 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 (معدل) 11 دقائق مضت, ابا جودى said: غيرها الى exit sub سلام عليكم أستاذ ابا جودى عند تغير exit function الى exit sub قام بانشاء جدول SaveSearch ولكنه فارغ لانهم قام بتجاهل باقي الاوامر عندما قمت با exit sub وشكرا لك تم تعديل سبتمبر 11, 2019 بواسطه rey360 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 في ١١/٩/٢٠١٩ at 10:50, rey360 said: سلام عليكم أستاذ ابا جودى عند تغير exit function الى exit sub قام بانشاء جدول SaveSearch ولكنه فارغ لانهم قام بتجاهل باقي الاوامر عندما قمت با exit sub وشكرا لك ممكن المرفق اللى حضرتك شغال عليه 1 رابط هذا التعليق شارك More sharing options...
طلب اكسس قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 32 دقائق مضت, ابا جودى said: غيرها الى exit sub اتوقع الامر الاول يعمل ملف جديد للبحث و اذا حصل ملف البحث يقوم بتنفيذ الامر الي تحت و اتوقع هذا الارجح رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 أستاذ ابا جودى Base de données4 - Copie.rar رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 (معدل) انه يعمل بنجاح اين المشكله Base de données4 - Copie.accdb تم تعديل سبتمبر 11, 2019 بواسطه ابا جودى رابط هذا التعليق شارك More sharing options...
طلب اكسس قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 1 دقيقه مضت, ابا جودى said: انه يعمل بنجاح اين المشكله Base de données4 - Copie.accdb 580 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download صحيح شغال فل الفل رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 1 دقيقه مضت, ابا جودى said: انه يعمل بنجاح اين المشكله Base de données4 - Copie.accdb 580 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads شكرا لك أستاذ لم يكون يعمل عندي من قبل 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 هههههههههههههههه انا ما قمت بتعديل اى شئ انه تصميمك وباكوادك فقط انا قمت بالتجربة ووجدته يعمل رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 شكرا لك أستاذ ابا جودى المشكلة كانت في حفظ الملف رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 أستاذ ابا جودى هل يمكن قيام بهاذا العمل عن طريق استعلام وليس الأكواد بحيث الجدول الذي تريد أن تظهر النتائج فيه يكون مصمم من قبل مثل هذا test.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 تفضل تعديل الكود اخي الكريم 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 1 رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر سبتمبر 11, 2019 مشاركة قام بنشر سبتمبر 11, 2019 جرب المرفق الحاق بالجدول.accdb 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر سبتمبر 11, 2019 الكاتب مشاركة قام بنشر سبتمبر 11, 2019 (معدل) شكرا لك أستاذ د.كاف يار وشكرا لك أستاذ kha9009lid على العمل الذي قمتما به تم تعديل سبتمبر 11, 2019 بواسطه rey360 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.