أبوبسمله

جزاك الله خيرا اخى @kanory 💐

وما اعجبنى بدون حفظ الرقم لان فى تجربه سابقه لموضعات بالمنتدى كان لابد من حفظ الرقم وغيرت الوقت الى 50 فعمل بشكل طبيعى وكان فيه مشكله اللغه العربيه

سوف اجرب المرفق

جزاكم الله خيرا اخوانى وفقكم الله لما يحبه ويرضاه

مشاركه مع اخى واستاذى @محمد أبوعبدالله

جرب التعديل كالتالى بتغيير Or الى And

ووافنا بالنتيجه

If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then
    Me.sDate = Date - 1
Else
    Me.sDate = Date
End If

بالتوفيق

1 ساعه مضت, husamwahab said:

دائما يسعدني مرورك استاذي العزيز وتقيييمك شهادة اعتز بها مهما كان 

ربنا يسعدك ويوفقك اخى حسام وجميع اخواننا واساتذتنا

اعزك الله غدا ان شاء الله سوف اجربه وتقيميى لك هو دعائى لك ولك اخواننا واساتذتنا بان يوفقكم الله لما يحبه ويرضاه ويجازيكم عنا كل خير وان يجعل اعمالكم فى موازين حسناتكم  💐

وعليكم السلام اخى @husamwahab

جزاك الله خيرا وبارك الله فيك

ان شاء الله ساقوم بتجربته وموافاتك بنتائج التجربه وان شاء الله ننتفع به ونحتسبه لك فى ميزان حسناتك عند الله وهو الكريم

تقبل تحياتى اخى حسام وفقكم الله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

وفيك بارك الله بالتوفيق اخى

السلام عليكم اخى الفاضل @طاهر الوليدي

اتفضل تم التعديل

كل ما قمت به تعديل حقل رقم المستند بالداله dmax واسم الجدول

اسم الحقل كنت قد كتبت اسم الحق بالنموذج بدل الجدول

كتابه اسم الجدول بين علامتى التنصيص ولكن لوجود مسافه فى اسم الجدول يجب وضعهم داخل الاقواس المربعه

يفضل الابتعاد عن كتابه اسماء الحقول والجداول باللغه العربيه ووضعها بالتسميه فالخصائص

يفضل وضع العلامه _ الشرطه السفليه وليس مسافه فى حالة فاصل بين الاسماء او الفصل باول حرف كابتل

    dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0)
    rd = Int(Right([dl], 4)) + 1
    Me.رقم_المستند = Format(Me.التاريخ, "yymd") & Format(rd, "0000")

بالتوفيق

ترقيم باليوم والشهر والسنة ممتاز.accdb

15 دقائق مضت, ازهر عبد العزيز said:

الاساتذة  الفلاحجى و  husamwahab ماذا لو اردت الاستغناء عن الحقل M والاعتماذ فقط على الحقل XY   فكيف سيكون شكل الكود

Private Sub idserum_AfterUpdate()
Me.z = Me.x * Me.y
Forms!Fexperience.Refresh
Forms!Fexperience!xy = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0)
End Sub

7 دقائق مضت, husamwahab said:

حبيبي استاذ احمد

دائما متواضع 

احبك الله الذى احببتنى فيه 💐

ولا يهمك اخى ازهر

والافضل اجابه اخى العزيز حسام

بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

بالتوفيق اخى

الان, husamwahab said:

السلام عليكم

مشاركة مع اخي واستاذي الفلاحجي

Private Sub idserum_AfterUpdate()
Me.z = Me.x * Me.y
Forms!Fexperience.Refresh
Forms!Fexperience!xy = Forms!Fexperience!m
End Sub

 

وعليكم السلام اخى حسام منور تنور اكيد ونستزيد من علمكم بارك الله فيك

بالنسبه للخطا اخى @ازهر عبد العزيز تقريبا لانك اخترت سجل جديد ولم تختر بيانات من الكمبوكس فالنموذج الرئيسى وضح لنا بارك الله فيك

بالتوفيق

وعليكم السلام

اخى الفاضل لدمج حقول مع بعضها نستخدم هذه الطريقه ولوضع اى شىء بينهم يكون بعد & وبين علامات التنصيص

[text1] & "/" & [text2] & "/" & [text3]

بالتوفيق

السلام عليكم اخى @ازهر عبد العزيز

اتفضل اخى ازهر

بعد محاولات الردود وجزاه الله خيرا مهندسنا الغالى @محمد طاهر وجميع القائمين على الموقع وتطويره

كان هناك مشكله وان شاء الله تكون قد انحلت لدى الجميع ان صادفتهم

جرب ووافنى بالنتيجه بعد الاختيار من النموذج الفرعى من الكمبو idserum

Private Sub idserum_AfterUpdate()
    Me.z = Me.x * Me.y
    DoCmd.RunCommand acCmdSaveRecord
    Forms!Fexperience.SetFocus
    Forms!Fexperience!m = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0)
    Forms!Fexperience!xy = Forms!Fexperience!m
End Sub

بالتوفيق اخى

test(4).accdb

الحمد والشكر لله الذى بنعمته تتم الصالحات وجزاهم الله خيرا اخواننا واساتذتنا

اخى @طاهر الوليدي سوف ننتظر رد الاخ طارق صاحب السؤال بعد رد اخى كانورى وردك

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

ولكن يمكن انشاء حقل ترقيم بالتنسيق الذى نريده ويكون نوع الحقل رقم او نص ويفضل نص اذا كان هناك حروف او رموز

والله اعلى واعلم

في ١٨‏/٩‏/٢٠٢٠ at 00:23, kanory said:

تفضل ......

 

ترقيم تلقائي جديد كل سنة مضاف الى الترقيم السنة.mdb 272 kB · 6 downloads

بالتوفيق

2 دقائق مضت, طاهر الوليدي said:

طيب هل تستطيع اصلاح الكود والجمع بين النماذج الثلاثه في نموذج واحد بشكل صحيح  

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐

جرب المرفق التالى لعله ما تريد على نفس فكرتك

بالتوفيق

New_autoNum-DCount - 2.accdb

واياكم وفيك بارك الله

كلنا نتعلم من بعضنا ومن اخواننا واساتذتنا جزاهم الله خيرا

عندما تقف فى اى شئ قم بالبحث اولا فالمنتدى وخارجه فسوف يفدك البحث كثيرا وان لم تصل الى شىء افتح موضوع بالمنتدى واشرح به ما تريد مع مثال للتوضيح وان شاء الله تجد العون باذن الله

اما شرح الكود سوف اشرحه ببساطه 

lastNum متغير واسندت له قيمه آخر سجل بالداله -Dlast- من الاستعلام qryFilter بعد فرزه بناء على 2 الكمبوكس

Nz(DLast("ItemCode", "qryFilter"), 0)

ثم اضفت متغير بالسطر الذى بعده strNum

واسندت  الرقم الخاص بالترقيم بعد اقتصاصه بهذا الجزء وبه 3 دوال   Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-"))

ثم اضافه + 1

ثم السطر الذى بعده متغير strLeft

اسندت له الجزء المقصوص قبل الرقم بالجزء وبه 2 داله  Left(lastNum, InStrRev(lastNum, "-"))

ثم قمنا باستخدام if الشرطيه اذا كان المتغير lastNum =0 يضع القيمه الناتجه من السطر التالى

 Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1

والا ضع القيمه بالزياده

ارجو ان اكون وفقت بالشرح والتوضيح

بالتوفيق اخى

السلام عليكم

مشاركه مع اخى واستاذى @kanory اتفضل مثال من مكتبتى وجزاهم الله خيرا اخواننا واساتذتنا 💐

ده الكود وغير فيه ومرفق المثال للاطلاع

Private Sub ReNum_Click()
    Me.RecordSource = ""
    DoCmd.SetWarnings False
    ' حذف الفهرسة من حقل الرقم
    DoCmd.RunSQL "DROP INDEX الرقم ON جدول1;"
    ' حذف حقل الرقم
    DoCmd.RunSQL "alter table جدول1 drop  الرقم;"
    ' إضافة حقل الرقم
    DoCmd.RunSQL "alter table جدول1 Add column الرقم autoincrement;"
    ' إضافة الفهرسة إلى حقل الرقم
    DoCmd.RunSQL "CREATE UNIQUE INDEX الرقم on جدول1(الرقم) ;"
    DoCmd.SetWarnings True
    Me.RecordSource = "جدول1"
End Sub

بالتوفيق

اعادة الترقيم.rar

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

جزاك الله خيرا على كلماتك الطيبه وما انا الا طالب علم اتعلم معكم اخى @ازهر عبد العزيز وفقكم الله اخى 💐

وعليكم السلام اخى @ازهر عبد العزيز

اتفضل محاوله بسيطه ان شاء الله تكون ما تريد

Private Sub idserum_AfterUpdate()
 Dim myCriteria As String
    
    myCriteria = "[idexperience]=" & Me.idexperience
    myCriteria = myCriteria & " And [idserum]=" & Me.idserum
    
     Me.used_quantity = 1
     
 If DCount("*", "TBtest", myCriteria) > 0 Then
     Dim stry As Integer
       stry = Me.idserum
       Me.Undo
      
     Dim rs As Object
       
       myCriteria = "[idserum]=" & stry
     Set rs = Me.Recordset.Clone
       rs.FindFirst myCriteria
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
     
      Me.used_quantity = Me.used_quantity + 1
    End If
    DoCmd.GoToRecord , , acNewRec
End Sub

بالتوفيق

عذرا نسيت ارفاق الملف

test(3).accdb

السلام عليكم

حاجه على قد الحال ان شاء الله تلبى طلبك تم عمل استعلام qryFilter لتصفيه البيانات بناء على 2 كومبوكس للتصفيه وجلب اخر سجل

ثم فى حدث بعد التحديث لـ GradName تم وضع الكود التالى لجلب اخر سجل واضافه 1 عليه

جرب ووافنا بالنتيجه

Private Sub GradName_AfterUpdate()

lastNum = Nz(DLast("ItemCode", "qryFilter"), 0)
strNum = Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) + 1
strLeft = Left(lastNum, InStrRev(lastNum, "-"))

If lastNum = 0 Then
    Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1
Else
    Me.ItemCode = strLeft & strNum
End If
End Sub

بالتوفيق

New Microsoft Access Database (3) - Copy.accdb

السلام عليكم اخى @فايز..

برجاء الاطلاع على هذه المشاركه لاخى واستاذى العزيز @ابوخليل  واخى @kaser906 جزاهم الله خيرا واعتقد ان فى  مشاركات اخر للاستاذ رمهان بالاضافه للوحده النمطيه لاستاذنا ابوهادى حول هذا الموضوع ان شاء الله تجد الحل الامثل لعملك

بالتوفيق ابوعبدالرحمن

وعليكم السلام اخى الفاضل

استخدم استعلام تحديث ثم شغل الاستعلام بالماكرو وبعدها ريكويرى

UPDATE tblYesNo SET tblYesNo.[YesNo] = -1;

بالتوفيق

وعليكم السلام اخى الفاضل

يفضل وضع مثال مع السؤال لايضاح ما تريد بشكل افضل واسرع للحصول على الاجابه باذن الله

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

بالتوفيق

الف مبروك اخى @Khalf واعانك الله عليها وتمنياتى لك وللجميع بالتوفيق 💐

وعليكم السلام

اتفضل اخى وحاول ان تبحث بالموقع قبل السؤال ستجد ما يسرك باذن الله وجزاهم الله خيرا اخواننا واساتذتنا

بالتوفيق