jjafferr

الظاهر هذه رسالة من اعدادات امان الوندوز ، فانا لا تظهر لي هذه الرسالة لما افتح الملف من : الكمبيوتر المحلي ، من الشبكة ، من الانترنت !! جرب هذه الطريقة ActiveX WebBrowser القديمة ، وطريقتك موجودة ولكنها مخفية ، ويمكنك حذفها لاحقا. جعفر 1360.1.نسخ الملفات.accdb.zip

آمين يا رب العالمين 🙂

هممم سؤال غير تقليدي ، بحثت ولم احصل على جواب ، فقمت انا بعمل التجربة : . واوقفت البرنامج لأنه تأخر في اعطائي النتائج 🙂 هل انت راض عن الحجم الى الآن 🙂 جعفر

هذا كل اللي عملته: Option Compare Database Dim web As Object ' Private Sub Form_Current() If Len(Me.txtPath & "") = 0 Then web.Navigate "about:blank" Else web.Navigate Me.txtPath End If End Sub Private Sub Form_Open(Cancel As Integer) Set web = Me.WebBrowser28.Object End Sub جعفر 1360.نسخ الملفات.accdb.zip

بما ان المرفق واضح ، ولكي تستفيد وتعرف مكان الخطأ في كودك ، رجاء ارفاق ما عملته 🙂 جعفر

عفوا الاخ هاني قد تستغرب من قدرة الاساتذة في الرد على الكثير من المواضيع ، وبدون مرفق ، واذا احتاجوا اليه ، فسيطلبونه 🙂 جعفر

وعليكم السلام 🙂 الجواب هنا جعفر

هذا كل اللي تحتاج اليه : dim strQuery as string strQuery="Sale_Daily" DoCmd.OpenQuery strQuery جعفر

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

حياك الله 🙂 كلامي هنا عن تكرار البصمة بدون فاصل: وبما انك لم ترد علينا بإمكانية استعمال صيغة accdb ، والتي بها نستطيع التحكم في الوقت الفاصل بين البصمة والاخرى ، لذا سأعطيك استعلام حذف البيانات الاضافية والذي عملت عليه سابقا: . 1. الاستعلام الذي يعطيك اول قيمة (الدخول T_Min) وآخر قيمة لليوم (الخروج T_Max) ، . 2. نفس بيانات الجدول CHECKINOUT ، ولكن بإضافة حقل للتاريخ ، ولا نستخدمه مباشرة ، وانما استعلام الحذف التالي يستعمله ، . 3. استعلام الحذف : . وقوته في المعيار ليحصر لبيانات المتكررة: Between (SELECT top 1 DateAdd('s','1',[CHECKTIME]) FROM CHECKINOUT As C WHERE C.USERID= [qry_InOut].[USERID] And DateSerial(Year(C.[CHECKTIME]),Month(C.[CHECKTIME]),Day(C.[CHECKTIME]))=[qry_InOut].[D] ORDER BY [CHECKTIME]) And (SELECT TOP 1 DateAdd('s','-1',[CHECKTIME]) FROM CHECKINOUT As C WHERE C.USERID= [qry_InOut].[USERID] And DateSerial(Year(C.[CHECKTIME]),Month(C.[CHECKTIME]),Day(C.[CHECKTIME]))=[qry_InOut].[D] ORDER BY [CHECKTIME] DESC) جعفر 1356.1.att2000.accdb.zip

يمكن كذلك ربط الاكسس بـ SQL Server عن طريق ODBC وتكون الجداول مربوطة بواجهة الاكسس ، وتستعمل الاكسس بطريقة عادية : . جعفر

جميل 🙂 ميزة ADO انك تقدر تعمل Disconnect من الجداول وتبقى البيانات في ذاكرة كمبيوترك 🙂 الطريقة العادية عن طريق LinkChildFields تفي بالغرض ، وبدون دوخة الاكواد 😁 جعفر

اخوي ابو ابراهيم 🙂 انزلت المرفق قبل ان اضع مشاركتي السابقة ، وفي الواقع كنت مستغرب ليش انك عملت جدولين ، مع اني شفت ان بياناتهم مختلفة ، ولكن وبعد تعليقك عن النظر في شفرتك ، قررت ان استورد الملف عن طريق الاكسس تلقائيا ، والذي اكتشف ان الفاصل بين الحقول هو Tab ، ولكني تفاجأت بأن المرفق عبارة عن جدولين مدمجين في ملف واحد ، او كما اسميته انت Header ثم تحته بياناته الخاصة به (مما يجعلني اعتقد بأن صاحب الموضوع لم يصدّر الجداول ، وانما قام بتصدير التقارير) ، فعليه القيت النظر على شفرتك بالتفصيل ، وكانت جدا واضحة وجدا مختصرة (وليست مختزلة فهذا تخصص اخونا @رمهان) ، كعهدنا بعملك 🙂 جعفر

ولكن كيف كنت ستربط النموذجين الرئيسي والفرعي عن طريق Recordset ؟ جعفر

انا اخبركم مشكلتكم ، والوسيلة التي قد استخدمها اخوي أبو إبراهيم (انظر للصورة ادناه) : اذا فتحت ملف txt مباشرة عن طريق برنامج Notepad ، فستجد بيانات غير مرتبه ، بينما اذا استعملت برنامج متخصص لقراءة نصوص البرمجة ، مثل البرنامج المجاني ++Notepad ، فسترى انه يعطيك المعلومات المطلوبة 🙂 . والسؤال هنا ، ولإثراء الموضوع ، يا ترى اي برنامج استعمل اخونا أبو إيراهيم لفك هذا الطلسم 🙂 جعفر

رجاء تعطيني الخطوات بالضبط ، وباسماء الحقول ، لأني حاولت وما صار شيء !! جعفر

وعليكم السلام 🙂 الـ Recordset معناه جلب البيانات من الجدول وتخزينها في الذاكرة المؤقتة Ram (وهنا يجب ان يكون كمبيوتر المستخدم فيه كمية كافية لهذه الاضافة) ، وهذا يأخذ وقتا ، ولكنه بعد ذلك يصبح سريع ، لأن جلب البيانات يكون اسرع ، بينما لو استعملت وحدة التخزين SSD ، فلن تلاحظ فرق كبير بين الطريقة العادية وطريقة Recordset ، ولتجعل الطريقتين اسرع ، يجب ان تعمل فهرسة للحقول التي فيها فرز/تصفية (ثم ضغط واصلاح) ، ولما تستعمل LinkChildFields ، فهذا الحقل يحتاج الى فهرسة (لأنه تصفية 🙂 ) . جعفر

شكرا على المعلومة 🙂 جعفر

السلام عليكم 🙂 نفس عمل اخوي ابوخليل ، ولكن بشكل موسع لخطوة الحذف 🙂 هذا الاستعلام فيه شيئين ، وقت الدخول T_Min (اول قيمة في تاريخ اليوم) والخروج T_Max (آخر قيمة) ، وفيه حقلين T1 , T2 اللي ممكن نعمل استعلام حذف ونستعمل الامر Between لهم فيحذفون بقية قيم اليوم : . SELECT DateSerial(Year([CHECKTIME]),Month([CHECKTIME]),Day([CHECKTIME])) AS D_mm, CHECKINOUT.USERID AS U_mm, Min(CHECKINOUT.CHECKTIME) AS T_Min, Max(CHECKINOUT.CHECKTIME) AS T_Max, Min(DateAdd("s","1",[CHECKTIME])) AS T1, Max(DateAdd("s","-1",[CHECKTIME])) AS T2 FROM CHECKINOUT GROUP BY DateSerial(Year([CHECKTIME]),Month([CHECKTIME]),Day([CHECKTIME])), CHECKINOUT.USERID ORDER BY DateSerial(Year([CHECKTIME]),Month([CHECKTIME]),Day([CHECKTIME])), CHECKINOUT.USERID; . جعفر

انا ما كان قصدي اني استسلمت ، ولكن بحاجة الى اعادة التفكير في العمل 🙂

وعليكم السلام 🙂 خليني اشوف لك بخور يناسب هذه المشكلة ، يمكن يفيدك 🙂 او تعطينا معلومات اكثر ، او مرفق 🙂 جعفر

سؤال: اذا كنت تريد وقت الدخول ووقت الخروج فقط ، فتقدر تأخذ اول سجل وآخر سجل للمستخدم لذلك اليوم ، وخليه يبصم كثر ما يريد 🙂 جعفر

هل تستطيع التحكم ، بأن تجعلها بصيغة mdb او accdb ؟ مو قصدي انك تحولها لاحقا ، وانما قصدي ان تجعل الجهاز يرسل البيانات الى صيغة accdb ؟ جعفر

السلام عليكم 🙂 موضوعك سهل ، ولكن جدا محير ويدوخ !! عندك 3 نماذج (بغض النظر ان بعضهم فرعي داخل فرعي) ، وهاي مو مشكلة ، المشكلة تكمن في مربعات السرد ، لأن منها اللي يأخذ اسم المادة ، واللي يأخذ الاسم المختصر ، ثم الجدول ، اللي يحفظ هذا الحقل ، واللي يحفظ الحقل الآخر ، واذا اخذنا القيمة من النموذج صارت مشكلة ، واذا اخذناه من الجدول ، صارت مشكلة اخرى !! ثم علاقات الجداول اللي تسمح بحفظ هذا الحقل وليس ذاك !! جعفر

وعليكم السلام 🙂 رجاء النظر في هذا الموضوع : جعفر