أبو إبراهيم الغامدي

إليك ماطلبت... Scc1.zip

استخدم الشفرة التالية في زر الأمر START Dim I As Integer Dim DATE_POST As Date DATE_POST = CDate(Forms![TEST1]![Date_M]) For I = 1 To Forms![TEST1]![F] If Not Weekday(DATE_POST) Like "[6-7]" Then Me.no = I Me.date = DATE_POST Else I = I - 1 End If DATE_POST = DATE_POST + 1 DoCmd.GoToRecord , , acNewRec Next

الأمر سهل! افتح الرسام > جديد غير مقاس الصورة إلى 1 بكسل سيصبح مقاس الصورة بهذا الشكل أرجو أن يكون ياستطاعتك رؤية الصورة

اجعل حجم الصورة 1 بكسل! حيلة سهلة!

مع فائق تقديري لهذا الجهد المبارك أتمنى من الأستاذ آدم أن يضع عناوين لهذه الكشاكيل في المشاركة الأولى ويربطها بمواضعها حتى تساعدنا في الوصول إلى المعلومة دون الحاجة إلى قراءة كافة المشاركات

أهلا بك أستاذ أبو آدم والاساتذة في إدارة المنتدي الكريم الاستاذ أبو خليل و الاستاذ جعفر في اعتقادي أن عدم إلزام السائل بالبحث عن الإجابة أكثر إيجابية، وأكثر إثراءً للحلول، وأوفر للمشاركين بتقديم مالديهم من تجارب في تقديم الحلول، كما أن الأسئلة لايمكن أن تكون جميعها متشابه، أو تكون طلبات السائلين متطابقة.. هذا بعيد.. ثم ما الغضاضة في تكرار الأسئلة؟ هل هو القلق من تكرار الإجابة؟! إن نسبة التطابق بين هذين السؤالين ضئيل جداً! فلو سألتني عن فكرة تسجيل الأحداث على مستوى الحقل في زمن أكسس 2003 لن تكون هي نفسها بالنسة لأكسس 2007، لأن في الأخير إمكانية لذلك لم تكن لم تكن موجودة مسبقا! ثم إن معظم الأسئلة السابقة مغلقة بالإجابات التى ارتضاها السائلون ولا أظن أنا اعادة فتحها أو الإشارة إليها فكرة جيدة! هذا إذا كان الباحث عن الإجابة يريد مناقشتها.. وفي نظري أن تأبين المشاركات السابقة خاصة تلك المتعلقة بإصدارات أكسس 2003 وما قبله أمر أكثر إلحاحا من ذي قبل لأننا بحاجة إلى أن تعلم الجديد! تحياتي لكم

هذا من نبلكما أخواي وسابق فضلكما، ولا أعتقد أن ما قدمته يسمو إلى مقامكما.. ولكنه التواضع المعهود فيكما.. لا أظن أنني أحسن هذا النوع من المشاركات.. أرجو المعذرة..

أهلا بك أستاذي عبدالله فكرة سليمة ومنطقها صحيح.. لكن المشكلة في الإيعاز.. استخدم هذه الشفرة ملاحظة: ليس كل عناصر التحكم في النموذج تعيد بيانات ولذلك يجب وضع شرط لتقيدها Sub ADD_NEW() Dim M As DAO.Recordset Dim C As Control Set M = CurrentDb.OpenRecordset("Employees", dbOpenDynaset) M.AddNew For Each C In Detail.Controls If C.ControlType = acTextBox Then M(C.Name) = C.Value End If Next M.Update End Sub

وعليكم السلام ورحمة الله أهلا بك أستاذ عبد الفتاح ومرحبا.. عودا حميد.. أرجو أن أوفق لإرضاء طموحك.. لأني أتساءل كيف ستقوم باستخدم الطريقة على مستوى المستخدم؟! هل ستسلمة بيانات مفتوحة المصدر؟! أم أن لديك طريقة ما تتيح للمستخدم انتقاء حقول البيانات ومعالجنها ومن ثم تصديرها؟! على كل حال إليك الطريقة.. يمكن تصدير حقول مختارة من جدول أو استعلام عن طريق مزودات البيانات لأكسس (DAO,ADO) عن طريق خصيصة توصيف البيانات لكل منهما.. هناك فروق بسيط بين المزودين لكن سوف أركز على (DAO) لكونة المزود الافتراضي لأكسس.. يمكن توصيف البيانات على مستوى قاعدة البيانات، كما يمكن توصيف البيانات على مستوى مصدر السجلات (Recordset).. صيغة الشفرة لهذه المكونات كالتالي مكون (ِADO) Function OLEDB() As ADODB.Connection Set OLEDB = New ADODB.Connection OLEDB.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" & CurrentProject.Path & _ "\EMPLOYEES.XLSX;Extended Properties = 'Excel 12.0;HDR=YES;'" End Function مكون (DAO) Function XLDB() As DAO.Database DB_PATH = CurrentProject.Path & "\BOOK2" Set XLDB = OpenDatabase(DB_PATH, True, False, "EXCEL 12.0;HDR=YES;") End Function يكون مصدر البيانات لهذين المكونيين هو ملف أكسل، فإذا كان ملف أكسل موجود مسبقا فإن المكون سيقوم بإدراج ورقة البيانات إلى الملف، أما إذا كان ملف أكسل غير موجود فسيقوم المكون بإنشاء الملف وإدراج ورقة البيانات.. إذا كان ملف أكسل يحتوي على ورقة بيانات بنفس الاسم فسيعيد المكون رسالة الخطأ (3010) مفادها أن ورقة البيانات موجودة مسبقا.. ينطبق ما سبق على مكون مصدر السجلات (Recordset) وهذه صيغته Sub EXPORT_TO_EXCEL_02(SHEET_NAME) '.. EXPORT TO EXCEL USING CURENTDB EXECUTE CurrentDb.Execute "SELECT ID, [LAST NAME],[FIRST NAME] INTO [" & SHEET_NAME & "]IN'" _ & CurrentProject.Path & "\employees'[Excel 8.0;HDR=yes;] FROM EMP1" End Sub يمكن أيضا استخدام (DOCMD.RUNSQL) لكونها تعمد على (DAO) في مصدر البيانات وهذه صيغته Sub EXPORT_TO_EXCEL_01(SHEET_NAME) '.. EXPORT TO EXCEL USING DOCMD RUNSQL DoCmd.RunSQL "SELECT ID, [LAST NAME],[FIRST NAME] INTO [" & SHEET_NAME & "]IN'" _ & CurrentProject.Path & "\employees'[Excel 8.0;HDR=yes;] FROM EMP1" End Sub أرجو ملاحظة أن الأخيرين لهما نفس الصيغة في تعريف البيانات الصيغة المخصصة لتوصيف بيانات أكسل هي "EXCEL 8.0;HDR=YES;" 'تستخدم هذه الصيغة على مستوى قاعدة البيانات [EXCEL 8.0;HDR=YES;] 'تستخدم هذه الصيغة على مستوى مصدر السجلات الرقم في هذه الصيغة يمثل رقم إصدار نسخة الأوفس، وهو هنا للسخة 2003، وأنصح باستخدام هذه الرقم لتجنب وقوع خطأ عدم مطابقة النسخة عند تصدير البيانات... طريقة تصدير البيانات تعتمد على صيغة استعلام عمل جدول (SELECT ... INTO.. IN.. [EXCEL 8.0;HDR=YES] FROM) ..SELECT تأخذ اسماء حقول البيانات ..INTO ينشئ جدول يحمل البيانات العائدة من SELECT .. الجدول هنا هو ورقة البيانات في أكسل ..IN تأخد اسم ملف أكسل مع الدليل [EXCEL 8.0] ثوصيف مصدر البيانات المصدر إليها البيانات FROM تأخذ اسم جدول البيانات في أكسس المثال التالي يوضح كيف يمكن استخددام الطريقة على مستوى المستخدم؛ وذلك بتمكينه اختيار الحقول إما من الجدول أو استعلام ومن ثم تصديرها إلى أكسل Access With Excel.zip

أليس هذا سؤالك؟ أين الحل الذي توصلت إليه؟

هذه المكتبة تضاف إلى المراجع تلقائيا عند إضافة مكونات Windows Form في النموذج

يلزمك أيضا إضافة الصورة إلى مسرد الصور.. أظنك لم تلاحظ العبارة التالية أخذت لقطة للصورة أعلاه وطبقت عليها وكانت النتيجة كما في الصورة التالية

أهلا بكم جميعا.. أضفت مكون مسرد الصور ( Microsoft ImageList Control) حتى أتمكن من تضمين الصورة وأعيد بيانات يمكن لوظيفة API قرائتها لأن البيانات العائدة من عنصر الصورة التابع لأكسس يعيد بيانات لا تفهمها وظائف API. وأيضا حذفت الوظيفة التي تقوم بتحميل ومعالجة أبعاد الصورة، وأجريت تعديل على وظيفة تحوير الصورة.. آمل منكم إجراء مقارنة بين الوظائف لمعرفة الفرق.. إليكم التعديل: zahrah.zip

أهلا بك علي.. تفضل الحل: mm.zip

استخدم الصيغة التالية Call Shell("XCOPY /Y E:\MAF\PQD_BE.accdb C:\Users\" & Environ ("UserName") &"\Dropbox\", 1)

ممكن تعطيني مثال..

أهلا بك محمد.. ضع الشفرة التالية في كل النماذج Private Sub Form_Resize() Call MinimizeAccess(Me) End Sub

ولو أستاذ شيفان.. العين ما تعلى على الحاجب..

أهلا بك.. في الحقيقة لا يوجد في أكسس دالة اسمها Concatenate هذي وظيفة أنشأها المبرمج من أجل دمج القيم! .. أقول هذا للتوضيح فقط.

فكرة سليمة 100% .. التنصيص يكون على علامة النمجمة(*) فقط وتربط بعلامة الدمج (&) Like "0" & Format(Date(),"yy") & "*" // تعمل بشكل سليم لو وضعتها في الاستعلام // بهذه الطريقة أيضا Format() يمكن استخدام Like Format(Date(),"\0yy") & "*" أو استخدم هذه إن شئت.. أضفتها في الاستعلام Qry_Filter Like Mid(Year(Date()),2) & "*" التعديل: qus.zip

آمين.. في انتظار وأنا كذلك.. بارك الله لك في عمرك وعملك وأهلك وولد ومالك.. آمين

أهلا بك طاهر.. يلزمك لهذا كتابة عناوين الأعمدة يدويا في الاستعلام الجدولي كما في الصورة: إليك التعديل: 11تجريبي.zip

هذا النموذج نسخة عن النموذج frmEdrajSenf ..أين تريد وضع هذا النموذج؟ تحت أي حدث؟

أهلا بك أبو زاهر أجريت بعض التعديلات على نموذج البحث تحت مسمى جديد.. أرجو ذكر أسماء النماذج المتعلقة بالمبيعات والمشتريات.. وماهية الإدراج التي تريد استخدامها لأن مراجعة الشفرة التي في قاعدة البيانات مرهقة بعض الشئ.. أذكر ما تريد وسوف أنفذه لك بإذن الله تعالى إليك المرفق: الحفاظ على لون السجا.zip

إذا وصلت لجهازي عدلته.. أنا على الهاتف الآن!