Moosak

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

حياك الله مجددا أخي محمد ،، 🙂 بعد البحث والتقصي أعتقد أن سبب هذه الرسالة هو عدم تمكن البرنامج من التعرف جيدا على ملف التحديثات الجديدة .. !! وهذا قد يحصل لأسباب عديدة كتلف الملف أو عدم اكتمال التحميل أو أو أو أسباب كثيرة لا داعي للتقصي عنها الآن .. وطبيعي جدا إذا لم تكتمل هذه الخطوة لن يستطيع البرنامج من تحديث النسخة لدى المستخدمين .. 🙂 لذلك أوصيك بالتالي : .. إذهب لملف التحديثات الحالي .. وقم بحذفه X X ثم قم بإعادة تحميل الملفات التي وضعتها لكم سابقا .. وخذ منها ملف التحديثات قم بإعادة ربط جداوله بقاعدتك القديمة BE .. ثم أعد محاولة أختيار ملف التحديثات مجددا وأخبرنا بالنتيجة 🙂

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

عفوا أخي أبو فتحي .. 🌹 أما بالنسبة للجداول فموضوعها مختلف عن نسخة الواجهات .. لأن نسخة الجداول عبارة عن ملف واحد يتم تنصيبه على السيرفر أو المجلد المشترك لذلك لا يتم توزيعه على أجهزة المستخدمين .. ولكي تقوم بتحديث ملف الجداول ستحتاج إلى أخذ نسخة احتياطية من ملف الجداول القديم ثم تقوم بالتحديثات التي تريدها على الملف بدون أن تحتاج لنقله أو إعادة تنصيبه .. فقط عليك أن تتأكد أن لا أحد يعمل على البرنامج في الوقت الذي تستبدل فيه الملف القديم .. لأنه يكون حينها متصل بأجهزة المستخدمين وهذا قد يسبب عدة مشاكل أنت في غنى عنها ..👍🏼🙂

تم بحمد الله تحديث النسخة الجديدة 🙂 تفضل أخي محمد : فقط أذكرك بأنه عليك إعادة ربط الجداول في النسخة القديمة + النسخة الجديدة ( التحديث ) .. تفتح النموذج المشار إليه في الصورة برقم (1) ثم تقوم بإضافة ملف التحديث من جديد لكي يتخزن في الجدول .. و تعلم (بصح) على بدء تطبيق التحديثات الجديدة . والجديد في هذه النسخة : - تعرف تلقائي على مكان نسخة الواجهات . - سهولة في إضافة النسخة المحدثة . - حفظ نسخة احتياطية من نموذج الواجهات القديم . ‏‏Auto FrontEnd Updator V2.0.rar

تحتاج لعدة تعديلات بسيطة .. بعد أن تجهز أرفقها لكم إن شاء الله .. 🙂

أهلا بك أخي محمد .. 🙂 بالنسبة لهذه النقطة تطرق إليها المهندس جعفر وكان جوابي له أنني وضعت مسار الواجهة بهذه الطريقة لأنني افترضت أن جميع المستخدمين لهم نفس المسار للواجهات ، لأنني أعمل برامجي بهذه الطريقة .. ولكن فعليا هذا الأمر يتفاوت من برنامج لآخر .. لذلك أنا بالفعل قمت بعدة تحديثات على هذه الأداة تجعلها تقوم بإرسال الموقع الفعلي لنسخة الواجهات لكل مستخدم على حده وكذلك قمت بتبسيط هذه الواجهة للمستخدم 😉👌🏼 لعلي أجد فرصة قريبا لطرح التحديث الجديد 🙂 وهذا شكل الواجهة المحدثة: حيث أن موقع نسختي الجداول والواجهات يتم تحديثهما تلقائيا .. بدون تدخل فقط تختار الملف الجديد .. والبرنامج تلقائيا سينسخه في مجلد اسمه Updates (ينشئه تلقائيا بجانب ملف الجداول BE ) ويحدد مساره في البرنامج ..

وعليكم السلام ورحمة الله وبركاته أخي محمد… في المرة الأولى بعد تطبيق هذه الفكرة ستضطر إلى تحديث جميع الواجهات يدويا أو بالطريقة التقليدية .. وبعدها سوف يتم تحديث جميع الواجهات أوتوماتيكيا في تحديثاتك القادمة .. 🙂

وضح الفكرة أكثر أخي أبو فتحي ؟

شكرا لك أخي أكرم .. 🙂 إن شاء الله تكون لي تجربة معه بإذن الله 🌹

وعليكم السلام ورحمة الله وبركاته أخي محب العقيدة 🙂 منك العذر أخي العزيز ،، فهذا الموضوع لم يأخذ حقه من الإشادة والثناء ☺️ شرح جميل وواضح وجهد مبذول تستحق عليه جزيل الشكر والتقدير .. 🌹🌹🌹 ويتضح من خلال سلاستك في السرد و (إيجاد الحلول للمشاكل التي يمكن أن تواجه المصمم) أن لك باعا طويلا في هذا النوع من قواعد البيانات .. وفقك الله ربما لما أستوعب جميع ما ذكرت حتى أخوض غمار التجربة بنفسي ..😅🖐🏼️ ولعله تكون لنا عودة مرة أخرى لاستيضاح ما قد نواجهه مستقبلا عند التجربة على أرض الواقع 😉👌🏼 وفقك الله أخي العزيز وبارك الله لك في علمك وحالك ومالك وذريتك ..🌹🤲🏼😊 وربما نجد عندك أيضا بعض الحلول الإبداعية لحل بعض القضايا مثل : إعادة الاتصال بقاعدة البيانات تلقائيا أو بواجهة سهلة كم هو الحال في هذا الموضوع : أو كيفية الكشف عن ما إذا كانت القاعدة متصلة أم لا ؟ ... وغيرها من الأمور ..

بعد البحث وجدت أن الموضوع له امتداد هنا ... ولكن المشكلة لم تحل من يومها 😅🖐🏼️

بالنسبة للمكتبة .. اشتغل الكود بنجاح عندما أزلت المكتبة السابقة .. فقام البرنامج بإضافتها من جديد .. ولكن المشكلة الثانية باقية كما هي ..

أخي أكرم .. أكرمك الله من واسع فضله 🙂 عند تجربة الملف واجهت أمرين .. الأول : لم يتعرف البرنامج تلقائيا على المكتبة التالية : ولكن أضفتها يدويا من خلال ملف SQLDMO.DLL المرفق .. الثاني : عند الضغط بعدها على زر [ اختيار السيرفر ] تظهر لي رسالة الخطأ التالية : فيتوقف الكود ولا يجلب أسماء السيرفرات المتوفرة .. ويبدو لي أن هناك Class ناقص في البرنامج .. ما هو رأيك ؟

وعليك السلام ورحمة الله وبركاته أخي محمد 🙂 إذهب لمحرر الأكود وتأكد من إضافة المكتبة التالية :

وعليكم السلام ورحمة الله وبركاته أخي علي 🙂 استخدم دالة weekDay(Date)

وعليكم السلام ورحمة الله وبركاته أخي العنزي 🙂 تفضل هذه هي الطريقة : والنتيجة : Prog1.rar

هل نسخة الأوفيس لديك مرخصة وكاملة ؟ وهل ضبطت المواقع الموثوقة في البرنامج لديك؟

ربما يفيدك قناع الإدخال في هذا الموضوع ..

وعليكم السلام ورحمة الله وبركاته 🙂 استخدم داله Dlast.. Nz(Dlast("[fieldName]";"[TableName]"))+1

وعليكم السلام ورحمة الله وبركاته 🙂 وهنا أيضا :

نعم تماما كما ذكرت مهندسنا العزيز .. وأضيف أني أرى من الأسهل استخدام خاصية الـ Tag بوضع علامة معينة عليه للعناصر المراد التحكم بها ( وذلك للخروج من متاهات أسماء العناصر وأنواعها ) 😅 نضع العلامة أو الرمز هنا : ثم نستخدمها في الكود هكذا : For Each ctl In Me.Controls If ctl.Tag = "*" Then ctl.BackColor = RGB(150, 180, 215) End If Next ctl طبعا الشرح للمبتدأين أمثالي .. أما لكم أنتم فمن باب " وذكّر ... " 😁

ذكرني هذا الموضوع بمنشور قديم تم استخدام نفس التقنية فيه 😊👌🏻 .. أعيد تذكيركم به .. مع إسبال الشكر الجزيل للأساتذة الأعزاء المهندسين قاسم وخالد .. نفعنا الله بهما .. وأمد في أعمارهما 🙂🌹

ما شاء الله فكر أمني وطريقة جيدة للاحتراز من العبث 🙂 وهل تقوم بتغيير الامتداد يدويا عند الاستعادة ؟

وعليكم السلام ورحمه الله وبركاته 🙂 تفضل هذا كود تصدير استعلام معين إلى ملف أكسل - نقلته كما هو بدون تعديل - وطريقة استخدامه مشروحة في الكود : '--------------------------------------------------------------------------------------- ' Procedure : Export2XLS ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Export recordset to Excel ' Copyright : The following may be altered and reused as you wish so long as the ' copyright notice is left unchanged (including Author, Website and ' Copyright). It may not be sold/resold or reposted on other sites (links ' back to this site are allowed). ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sQuery : Name of the table, or SQL Statement to be used to export the records ' to Excel ' ' Usage: ' ~~~~~~ ' Export2XLS "qryCustomers" ' Call Export2XLS("qryCustomers") ' ' Revision History: ' Rev Date(yyyy/mm/dd) Description ' ************************************************************************************** ' 1 2012-Apr-18 Initial Release ' 2 2015-May-01 Header Clarifications '--------------------------------------------------------------------------------------- Function Export2XLS(ByVal sQuery As String) Dim oExcel As Object Dim oExcelWrkBk As Object Dim oExcelWrSht As Object Dim bExcelOpened As Boolean Dim db As DAO.Database Dim rs As DAO.Recordset Dim iCols As Integer Const xlCenter = -4108 'Start Excel On Error Resume Next Set oExcel = GetObject(, "Excel.Application") 'Bind to existing instance of Excel If Err.Number <> 0 Then 'Could not get instance of Excel, so create a new one Err.Clear On Error GoTo Error_Handler Set oExcel = CreateObject("Excel.Application") bExcelOpened = False Else 'Excel was already running bExcelOpened = True End If On Error GoTo Error_Handler oExcel.ScreenUpdating = False oExcel.Visible = False 'Keep Excel hidden until we are done with our manipulation Set oExcelWrkBk = oExcel.Workbooks.Add() 'Start a new workbook Set oExcelWrSht = oExcelWrkBk.Sheets(1) 'Open our SQL Statement, Table, Query Set db = CurrentDb Set rs = db.OpenRecordset(sQuery, dbOpenSnapshot) With rs If .RecordCount <> 0 Then 'Build our Header For iCols = 0 To rs.Fields.Count - 1 oExcelWrSht.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name Next With oExcelWrSht.Range(oExcelWrSht.Cells(1, 1), _ oExcelWrSht.Cells(1, rs.Fields.Count)) .Font.Bold = True .Font.ColorIndex = 2 .Interior.ColorIndex = 1 .HorizontalAlignment = xlCenter End With 'Copy the data from our query into Excel oExcelWrSht.Range("A2").CopyFromRecordset rs oExcelWrSht.Range(oExcelWrSht.Cells(1, 1), _ oExcelWrSht.Cells(1, rs.Fields.Count)).Columns.AutoFit 'Resize our Columns based on the headings oExcelWrSht.Range("A1").Select 'Return to the top of the page Else MsgBox "There are no records returned by the specified queries/SQL statement.", vbCritical + vbOKOnly, "No data to generate an Excel spreadsheet with" GoTo Error_Handler_Exit End If End With ' oExcelWrkBk.Close True, sFileName 'Save and close the generated workbook ' 'Close excel if is wasn't originally running ' If bExcelOpened = False Then ' oExcel.Quit ' End If Error_Handler_Exit: On Error Resume Next oExcel.Visible = True 'Make excel visible to the user rs.Close Set rs = Nothing Set db = Nothing Set oExcelWrSht = Nothing Set oExcelWrkBk = Nothing oExcel.ScreenUpdating = True Set oExcel = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: Export2XLS" & vbCrLf & _ "Error Description: " & Err.Description _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function