ازهر عبد العزيز قام بنشر سبتمبر 16, 2020 مشاركة قام بنشر سبتمبر 16, 2020 (معدل) السلام عليكم في النموذج Ftime احتاج 1-عند ادخال السيريل ولم يكن للموظف سجل في الموظفيين اظهار رسالة تنبية والتراجع 2-عند ادخال السيريل للموظف ولم يكن موجود حاليا في المؤسسة يظيف بشكل تلقائي 1 الى الحقل num_in ثم ينتقل الى سجل جديد 3-عند خروج الموظف ودخولة مرة ثانية وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in في سجل دخولة السابق ثم ينتقل الى سجل جديد ملاحظة يتم ادخال السيريل بواسطة قارئ الباركود TIME.accdb تم تعديل سبتمبر 16, 2020 بواسطه ازهر عبد العزيز رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر سبتمبر 16, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 16, 2020 وعليكم السلام ورحمة الله وبركاته تفضل اخ الكريم 24 دقائق مضت, ازهر عبد العزيز said: 1-عند ادخال السيريل ولم يكن للموظف سجل اظهار رسالة تنبية والتراجع Private Sub id_clreck_NotInList(NewData As String, Response As Integer) MsgBox "غير مسجل", vbCritical, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End Sub 25 دقائق مضت, ازهر عبد العزيز said: 2-عند ادخال السيريل للموظف ولم يكن موجود حاليا في المؤسسة يظيف بشكل تلقائي 1 الى الحقل num_in ثم ينتقل الى سجل جديد 3-عند خروج الموظف ودخولة مرة ثانية وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in في سجل دخولة السابق ثم ينتقل الى سجل جديد Private Sub id_clreck_Click() Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 End Sub TIME.rar تحياتي 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 16, 2020 الكاتب مشاركة قام بنشر سبتمبر 16, 2020 الاستاذ محمد أبوعبدالله كالعادة مبدع لكن هناك مشكلة اتمنى ان تجد لها حل وهو عند خروج الموظف ودخولة مرة ثانية وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in في سجل دخولة السابق ثم ينتقل الى سجل جديد اي الموظف صاحب السيريل 6957659008934 يكون عدد دخولة 4 في الحقل num_in في السجل الاول دون الحاجة الى تكرار السجلات البقية كما في الصورة وشكرا لك رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 16, 2020 مشاركة قام بنشر سبتمبر 16, 2020 استبدال السطر Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 بالتالي Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 TIME.rar تخياتي 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 16, 2020 الكاتب مشاركة قام بنشر سبتمبر 16, 2020 استاذي محمد أبوعبدالله اتعبتك معي والله اني خجل منك لم اوصل الفكرة بعد باختصار لا اريد سجل دخول الموظف يتكرر فقط يزداد عدد دخولة في سجل دخولة الاول رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 16, 2020 مشاركة قام بنشر سبتمبر 16, 2020 مرحبا اخي الكريم فضلا تجربة الحل المرفق TIME.rar تحياتي 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 17, 2020 الكاتب مشاركة قام بنشر سبتمبر 17, 2020 الاستاذ محمد مازالت السجلات تتكرر لكنك تستحق افضل اجابة لانك اجبت عن استفسارين شكرا لك يا وحش الاكواد 😈 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 17, 2020 مشاركة قام بنشر سبتمبر 17, 2020 منذ ساعه, ازهر عبد العزيز said: مازالت السجلات تتكرر دعنا نجرب طريقة اخرى On Error GoTo err: Dim mySQL As String Dim rst As Recordset Dim i As Double mySQL = "Select * From TBtime" mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 1 rst.Edit rst!num_in = rst!num_in + 1 rst.Update Next Me.num_clreck = 1 err: If err.Number = 3021 Then mySQL = "Select * From TBtime" mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 1 rst.AddNew rst!num_in = rst!num_in + 1 rst.Update Next Me.num_clreck = 1 End If TIME.rar من فضلك اعلمني بالنتيجة تحياتي 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 18, 2020 الكاتب مشاركة قام بنشر سبتمبر 18, 2020 الاستاذ الطيب محمد الحقول المحددة لا احتاجهن رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 18, 2020 مشاركة قام بنشر سبتمبر 18, 2020 4 ساعات مضت, ازهر عبد العزيز said: الحقول المحددة لا احتاجهن هل تقصد عدم تكرار الحقل id_clreck والزيادة تكون في num_in في نفس السجل اذا كان الامر كذلك فما مشكلة الكود الاول Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 برحاء توضيح اكثر ولك الشكر تحياتي رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 19, 2020 الكاتب مشاركة قام بنشر سبتمبر 19, 2020 من العجيب ان يفهم السؤال المجيب اكثر من السائل فانت يا استاذ نظرت الى قاعدة البيانات نظرة احترافية فعلا لابد يتكرر السجل لان وقت الدخول ووقت الخروج في الجدول tbtime لا بد ان يذكر شكرا يا استاذ نم الحل معك رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 19, 2020 مشاركة قام بنشر سبتمبر 19, 2020 18 دقائق مضت, ازهر عبد العزيز said: نم الحل معك بالتوفيق اخي الكريم تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.