د.كاف يار

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

تفضل التعديل اخي الكريم Database1.accdb

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

اخي حاولت افهم الدالة ما عرفت للأسف لكن ما يمنع اننا نحاول و بمشاركة الجميع اننا نوصل للمشكلة و حلها جرب هذا التعديل Mytest.accdb

ما يحتاج تحذف البيانات امورك طيبة اذا حبيت اني اساعدك في انشاء ازرار الاضافة انا في الخدمة

تفضل التعديل لكن فيه ملاحظة ما اقدر اقول انها بسيطة موضوع انك تحمل الصور داخل قاعدة البيانات يجعلها في خطر نصيحتي لك انشئ مجلد خاص بالصور و استدعي الصور حسب المسمى لها في قاعدة البيانات HLA_HLA.accdb

تفضل اخي الكريم Database11.zip

عند شغال مافيه اي مشكلة و يتكرر الصوت بطريقة ممتازة لكن جرب هذا التعديل المرفق مثال_للرسائل_عند_عداد_الوقت.zip

تفضل اخي الكريم متاخرات (2).rar

تفضل التعديل اخي الكريم مثال للرسائل عند عداد الوقت.zip

وهذا ما تم اخيرا بالفعل بالكود في الحدث بعد التحديث جرب متاخرات (1).rar

تفضل التعديل اخي الكريم Da (3).rar

تفضل التعديل اخي الكريم متاخرات (1).rar

اخي الكريم المعادلة هي عدد الاقساط + تاريخ بداية القسط = تاريخ نهاية القسط

اعتذر عن الخطأ اخي الكريم يجب الحفظ بعد العملية تفضل التعديل متاخرات (1).rar

تفضل اخي الكريم ستظهر الرسالة المنبثقة عند الثانية 59 من كل دقيقة تستطيع تغيير التوقيت اما بالساعات او الدقائق أو كماهي عليه الأن بالثواني مثال_للرسائل_عند_عداد_الوقت.zip

تفضل هذا المثال وضعت لك مثالين لسحب الصورة من الماسح الضوئي و جلب صورة من الكمبيوتر Database12222.mdb

اخي الكريم تفضل هذا الكود البسيط لجلب الصورة من الماسح الضوئي Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) filepath = CurrentProject.Path & "\" & "SCAN" & "-" & Format(Now, "dd-mm-yyyy" & "-" & "hh:mm") & ".jpg" Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath [اسم مربع عنصر التحكم لوضع لتخزين المسار] = filepath errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

تفضل التعديل اخي الكريم متاخرات.rar

تفضل هذا التعديل اخي الكريم الامان1.accdb

تفضل التعديل اخي الكريم ‏‏حصر الاجهزة 1معدل9.accdb

تفضل التعديل اخي الكريم Minescreen (1).rar

تفضل التعديل اخي الكريم Minescreen.rar

تفضل اخي الكريم Database12222.mdb

تفضل التعديل اخي الكريم بعد الحفظ تظهر الصفحة و عليك تنفيذ نفس الكود Da.accdb