رمهان

الخطا هنا جديد ومختلف ويظهر ان هناك دالة باسم ImportExportData غير موجودة بالملف السابق

تمام .. قيد التنفيذ

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

ارفق مثال ويمكنك تجربة compile من قائمة debug والتاكد بعدم وجود خطأ بالتوفيق

اذا وجدت دوال ال api قم باضافة كلمة ptrsafe قبل function وستعمل معاك ان شاء الله ويمكنك استخدام البحث والاستبدال لتسريع العملية بالتوفيق

هل تم اغلاق الطلب الاول ؟ ماهو طلبك الثاني ؟ بالتوفيق

مشاركة مع اخي الاستاذ شيفان استخدم دالة trim فقط . واذا المسافات بالوسط يمكن استخدام replace ولو ترفق مثالا او لصق مجموعة من الارقام من الجدول وكما هي بالتوفيق

مشاركة مع الاستاذ ابو خليل وبعد اذنه اخي عمرو (ان اصبت في الاسم) انا حرجع من الاول وسارد على الاستفسار بدون ان احاول فهم البرنامج 1. هنا اذهب لخاصية مرئي للنموذج الفرعي = لا ومن خلال التصميم ثم حفظ 2. حدث بعد التحديث للقائمة Private Sub Combo51_AfterUpdate() Transaction_sub_Out.Visible = Not IsNull(Combo51) End Sub الان نقفل الطلب الاول ثم نذهب للطلب الثاني بالتوفيق

ابشر .. وسنشارك الاستاذ ابا خليل بما يفتح الله علينا تحياتي

العفو منك ومن صاحب الموضوع يعلم الله ان الشرف لنا بالمساعدة وتبادل الافكار

هنا موضوع مشابه وللفائدة https://www.officena.net/ib/topic/64142-تغيير-صيغة-الترقيم-التلقائي-ليبدأ-بـ-mr000001-بدلا-من-1/#comment-416775 تحياتي

هذي اول طريقة تعلمتها في البحث Private Sub Text1_AfterUpdate() namebook.SetFocus DoCmd.FindRecord Text1, acAnywhere End Sub

قيد التنفيذ .. وساحاول في اقرب فرصة تحياتي

اخ محمد سلامة وبعد اطيب تحية الكود لايحتاج مرفق شغله في اي مكان ومثلا تحت زر امر . فقط غير مكان الحفظ باول سطر xf لمسار موجود لديك . وكذلك xid اسم الملف xt الوقت بالثواني بالتوفيق

جرب هذا استاذ ابا خليل xf = "C:\abcd\" xid = 2 xt = 10 x = Shell("SoundRecorder.exe /file " & xf & xid & ".wav /Duration 00:00:" & xt, 4) طبعا لابد من وجود المسار ويسمح بالكتابة عليه تحياتي

الاخ حلبي هذا سيناريو الحل وحسب رغبتك عن طريق النموذج وحسب فهمي - عند تشغيل الكميوتر يتم فتح البرنامج ( هذا حسب ما ذكرت ) - بكون بالنموذج عداد يحسب الوقت ( هنا النموذج لايغلق الابصلاحية .. وسيبنا من الصلاحية الان نفترض ان النموذج لا يغلق ) - حضر الموظف وقام بالتحضير ( هنا سيتم تسجيل وقت النموذج ووقت الجهاز ) - بعد التحضير يتم اعادة وقت الجهاز حسب وقت العداد بالنموذج وهو الوقت الصحيح تمام لنواصل ؟ وموضوع وقت الشبكة راح اخليه في اخر مشاركة للموضوع تحياتي

اعزائي وجهة نظر : بما نه تم المطلوب من قبل الاستاذ جعفر وعن طريق جدول والاخت تريده باستعلام !! مالمشكلة ان يكون الجدول مصدر للاستعلام حتى ويمكن اخفاء الجدول . بل ان هناك حاجة للجدول ولربطه مع جدول القاموس لنظهر باستعلام به بيانات من الجدولين . فكرة حل : لدي فكرة ولكن يستعصي علي تنفيذها في الوقت الراهن لانه يبي لها قعدة وانا مشغول جدا ولكن يمكن يسعفني الاستاذ جعفر او احد الاخوة بتفنفيذها وهي كالتالي : استبدال الفراغ بجملة استعلام توحيد بحيث ان كل فراغ سيحل محله جملة التوحيد لكل كلمة وهنا سيتم انشاء جمل توحيد حسب الفراغات وطبعا بمساعدة الدالة replace اتوقع يمكن من خلال الكود انشاء نص الاستعلام التوحيد لكل كلمة ولكن هنا سيكون حروف الاستعلام كثيرة وحتما سيتعدى الحد المسموح به في الاكسس . ففكرة استبدال الفراغات بجمل توحيد مناسبة ولكن كيف ثم كيف التنفيذ تحياتي

جرب استخدام الباراميترز للامر file و duration x = Shell("SoundRecorder.exe /file C:\1.wav /Duration 00:00:10 ", 4) المدة عشر ثواني والمكان c واسم الملف 1 بالتوفيق

تمام .. الان اتفقنا ان يتم تسجيل تاريخين: 1. تاريخ الجهاز 2. تاريخ خارج عن التلاعب وهنا : - تاريخ يؤخذ من النت ( يتطلب وجود نت ) - تاريخ من السيرفر المحلي - عداد في نموذج البرنامج ( هنا وقت محسوب من لحظة بدء النموذج .. لن بتم النظر لتاريخ الجهاز منذ فتح النموذج .. وهنا سيمنع اغلاق النموذج الا بصلاحية محددة ) الان اخ حلبي اختر المناسب من الفقرة 2 للتطبيق ! ومسألة كشف التلاعب اصبحت عملية سهلة ومن خلال استعلام وبمعادلة بسيطة بين الحقلين بالتوفيق

اخي حلبي هنا خلينا زي مافي العنوان وهو كيفية ارجاع جهاز الكمبيوتر للوقت الصحيح اما موضوع التحضير والتلاعب فسيكون في موضوعك وهنا وفي الموضوع هنا نختم بافكار الحل وكالتالي : 1. بمشاركة الاستاذ ابو خليل وبالملف db7 حيث استخدام time وبقيمة دالة تجلب الوقت من النت 2. وضع خيار الويندوز في اعدادات الوقت على التزامن من النت بالتوفيق

ما هوه انا انتبهت لها اخي الاستاذ جعفر قبلك ومعادلتك لن تعمل لو اختلف تنسيق التاريخ او لو حصل ان الايام بدأت بحرف أ بدل ا . او لو كانت الايام بالانجليش فقلت استخدم البحث عن المسافة ومالي شغل باي شي ثاني . فالتاريخ لن يحوي مسافة وكذلك الاسم لن يحوي مسافة . المسافة تكون حتما بين التاريخ واليوم . وماتجيش اخوي جعفر وتعقدها وتقول لي ممكن ينشبك الاسم مع التاريخ !! تحياتي ياغالي وهذا لاستخراج التاريخ Expr2: Replace([اليوم والتاريخ],Left([اليوم والتاريخ],InStrRev([اليوم والتاريخ],Chr(10))),"")

اخي حلبي انا لم استوعب الى حد الان اعطاء فرصة للمتلاعب ان يلعب ! ولكن اختصار للموضوع : مارايك ان يتم تسجيل حضور تاريخين واحد من الجهاز وواحد من النت وانت تتحكم فيما بعد بهذا المدخلين زي ماتحب ؟ تحياتي

شكرا اخ حلبي على تقبل الملاحظة المشكلة لدي الان لا استطيع التطبيق على جهازي وفيما يخص الاعدادات الان لارجاع ساعة الجهاز اعتقد شارك الاستاذ ابو خليل باستخدام time وفي الملف db7 ! هل تم الاختبار ونجحت في ارجاع تاريخ الجهاز ؟ وجهة نظري : الويندوز به خيار الوقت تلقائي من النت ومن خيارات اعدادات التاريخ والوقت ! وهنا سيتم الضبط تلقائي وحسب دولتك ! هل المستخدم سياتي ويعدل الخيارات يدوي ثم يغير التاريخ والوقت ! مارايك ان نلعب على خيار اعداد الوقت والتاريخ يكون تلقائي وطبعا يتم ضبطه من خلال الكود ؟ بالتوفيق

مشاركة مع الاستاذ جعفر ضع هذا التعبير في استعلام Expr1: Left([اليوم والتاريخ],InStrRev([اليوم والتاريخ],Chr(10))) بالتوفيق

هذا اول مرفق منك اخ علي وذكرت "هذا مثال اوضح" وبه يظهر المفتاح اساسي في جدول الشقق ! الان اعتقد وضحت المشكلة ما عليك الا حذف خاصية المفتاح الاساسي بالتوفيق