osama_matafy قام بنشر مايو 18, 2015 قام بنشر مايو 18, 2015 الاخوة الاعزاء اقوم بعون الله تعالي بتصميم نظام محاسبي باستخدام اكسس 2010 وفي الجدول الخاص بقيود اليومية حقل رقم القيد اريد ان يتم ترقيم هذا الحقل تلقائياً بشرط أن يبدا كل اول شهر الترقيم من رقم 1
Elsayed Bn Gemy قام بنشر مايو 18, 2015 قام بنشر مايو 18, 2015 (معدل) تفضل يا اخى هذا هو مرفقك وشكر الله لك ترقيم حسب الشهر.rar تم تعديل مايو 18, 2015 بواسطه مارد
راعي الغنم قام بنشر مايو 18, 2015 قام بنشر مايو 18, 2015 Private Sub MyDate_AfterUpdate() Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Month(MyDate) > Month(f) Then ID = 1 Else j = "Month(MyDate) = " & Month(Me.MyDate) ID = DMax("id", "mytable", j) + 1 End If Else ID = 1 End If End Sub مرحبا استاذ مارد ولو اردنا ان يكون الترقيم لليوم الحالي فكيف يكون عمل ذلك؟؟؟؟؟؟؟؟؟؟؟؟
Elsayed Bn Gemy قام بنشر مايو 18, 2015 قام بنشر مايو 18, 2015 مرحبا استاذ مارد ولو اردنا ان يكون الترقيم لليوم الحالي فكيف يكون عمل ذلك؟؟؟؟؟؟؟؟؟؟؟؟ يكون هكذا اخى الكريم واعزرنى لتاخرى فلم ارى المشاركة ال الان Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Day(MyDate) > Day(f) Then ID = 1 Else j = "Day(MyDate) = " & Day(Me.MyDate) ID = DMax("id", "mytable", j) + 1 End If Else ID = 1 End If 1
osama_matafy قام بنشر مايو 19, 2015 الكاتب قام بنشر مايو 19, 2015 اشكركم جميعاً وجزاكم الله خير الجزاء اسامة محمود
Elsayed Bn Gemy قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 العفو يا اخى الكريم ولكن هل يمكن اختيار ان الموضوع مجاب
jjafferr قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 السلام عليكم أخي المارد اذا كان الحقل myDate بصيغة تاريخ ، فالمعادلة التالية هي لصيغة ارقام: j = "Day(MyDate) = " & Day(Me.MyDate) واذا اردنا ان نعملها بصيغة تاريخ ، فالمعادلة ستكون ، كما شرحتها انت في موضوع رابط دالة DLookup ، والتي تعتبر مثل Dsum و Dmax ووو: http://www.officena.net/ib/index.php?showtopic=61469 j = "Day(MyDate) = #" & Day(Me.MyDate) & "#" جعفر
Elsayed Bn Gemy قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 اخى ومعلمى جعفر هذا صحيح ولكن انا اتعامل مع فئة واحدة فى حقل التاريخ وهو رقم الشهر او رقم اليوم لذلك كان الكود بهذا الشكل
jjafferr قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 اخى ومعلمى جعفر هذا صحيح ولكن انا اتعامل مع فئة واحدة فى حقل التاريخ وهو رقم الشهر او رقم اليوم لذلك كان الكود بهذا الشكل 1
راعي الغنم قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 اخى ومعلمى جعفر هذا صحيح ولكن انا اتعامل مع فئة واحدة فى حقل التاريخ وهو رقم الشهر او رقم اليوم لذلك كان الكود بهذا الشكل عفوا الخطا عندي لاني قلت اليوم الحالي ولكني اقصد التاريخ الحالي.. واظن تعديلك يرجع لي رقم اليوم وهو "19" ع سبيل المثال لكن في اي شهر واي سنة ما اريده هو#19/05/2015# وهكذا..
Elsayed Bn Gemy قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 اخى راعى الغنم ؟؟ السنة Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Year(MyDate) > Year(f) Then ID = 1 Else j = "Year(MyDate) = " & Year(Me.MyDate) ID = DMax("id", "mytable", j) + 1 End If Else ID = 1 End If
راعي الغنم قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 ارجع لي ترقيم للسنة الحالية عموما... يا استاذي الكريم اريد ترقيم لكل يوم على حدة حسب تاريخ اليوم الحالي date() فاليوم #19/5/2015# له ترقيمه من 1 الى... وغدا #20/5/2015# سيبتدئ ترقيمه من 1 الى ... ايضا وهكذا دواليك هذا دفتر اليومية... وسع صدرك معي الله يخليك...
عبد الله قدور قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 السلام عليكم عندي سؤال صغير لصاحب السؤال هل أنت تريد الترقيم التلقائي بعد أدخال التاريخ أم عند فتح النموذج لاضافة بيانات جديدة يكون التاريخ فيها هو تاريخ اليوم افتراضيا يعني هل ستقوم بادخال بيانات بتواريخ سابقة أم فقط بتاريخ اليوم الذي وفي حال انتهاء الشهر وبدء شهر جديد يبدأ الترقيم من الرقم 1
رمهان قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 ارجع لي ترقيم للسنة الحالية عموما... يا استاذي الكريم اريد ترقيم لكل يوم على حدة حسب تاريخ اليوم الحالي date() فاليوم #19/5/2015# له ترقيمه من 1 الى... وغدا #20/5/2015# سيبتدئ ترقيمه من 1 الى ... ايضا وهكذا دواليك هذا دفتر اليومية... وسع صدرك معي الله يخليك... اهلا بك اخينا راعي الغنم !! وبعد اذن الاستاذ مارد ! اذا ممكن تضعه موضوع جديد ! تحياتي
رمهان قام بنشر مايو 19, 2015 قام بنشر مايو 19, 2015 ارجع لي ترقيم للسنة الحالية عموما... يا استاذي الكريم اريد ترقيم لكل يوم على حدة حسب تاريخ اليوم الحالي date() فاليوم #19/5/2015# له ترقيمه من 1 الى... وغدا #20/5/2015# سيبتدئ ترقيمه من 1 الى ... ايضا وهكذا دواليك هذا دفتر اليومية... وسع صدرك معي الله يخليك... اهلا بك اخينا راعي الغنم !! وبعد اذن الاستاذ مارد ! اذا ممكن تضعه موضوع جديد ! تحياتي
Elsayed Bn Gemy قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 ارجع لي ترقيم للسنة الحالية عموما... يا استاذي الكريم اريد ترقيم لكل يوم على حدة حسب تاريخ اليوم الحالي date() فاليوم #19/5/2015# له ترقيمه من 1 الى... وغدا #20/5/2015# سيبتدئ ترقيمه من 1 الى ... ايضا وهكذا دواليك هذا دفتر اليومية... وسع صدرك معي الله يخليك... اهلا بك اخينا راعي الغنم !! وبعد اذن الاستاذ مارد ! اذا ممكن تضعه موضوع جديد ! تحياتي اعتقد انه من الافضل كدا
Elsayed Bn Gemy قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 ارجع لي ترقيم للسنة الحالية عموما... يا استاذي الكريم اريد ترقيم لكل يوم على حدة حسب تاريخ اليوم الحالي date() فاليوم #19/5/2015# له ترقيمه من 1 الى... وغدا #20/5/2015# سيبتدئ ترقيمه من 1 الى ... ايضا وهكذا دواليك هذا دفتر اليومية... وسع صدرك معي الله يخليك... اعتزر منك يا اخى لتاخرى فى الرد وذلك لانشغالى بموضوع الاستضافة وربطها باكسس عموما جارى تحضير موضوع عن الترقيم وهذا هو الكود مؤقتا Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Day(MyDate) > Day(f) Then ID = 1 ElseIf Month(MyDate) > Month(f) Then ID = 1 ElseIf Year(MyDate) > Year(f) Then ID = 1 Else j = "Day(MyDate) = " & Day(Me.MyDate) ID = DLast("id", "mytable", j) + 1 End If Else ID = 1 End If
راعي الغنم قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 السلام عليكم عندي سؤال صغير لصاحب السؤال هل أنت تريد الترقيم التلقائي بعد أدخال التاريخ أم عند فتح النموذج لاضافة بيانات جديدة يكون التاريخ فيها هو تاريخ اليوم افتراضيا يعني هل ستقوم بادخال بيانات بتواريخ سابقة أم فقط بتاريخ اليوم الذي وفي حال انتهاء الشهر وبدء شهر جديد يبدأ الترقيم من الرقم 1 مرحبا قدور... هذا دفتر يومية وقيمة حقل التاريخ الافتراضية هي اليوم الحالي بل هذا النموذج لا يقبل اضافة او تعديل او حذف سجلات لا تحمل تاريخ اليوم الحالي لأنه يتم اغلاقه في نهاية اليوم وهذا ما اريده... حتى ادخال تاريخ اليوم لاعلاقة للمستخدم به وانما النظام هو من يقوم بذلك... والترقيم اريده ان يكون لكل يوم ترقيم جديد وعلى قول الشاعر: في كل يوم بيضة الطبيب قال بيضة فلفول ياكل بيضة هههههههههههههههههههههههههههههه...سلام ياشباب يا اكلين الكباب..
راعي الغنم قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 اعتزر منك يا اخى لتاخرى فى الرد وذلك لانشغالى بموضوع الاستضافة وربطها باكسس عموما جارى تحضير موضوع عن الترقيم وهذا هو الكود مؤقتا Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Day(MyDate) > Day(f) Then ID = 1 ElseIf Month(MyDate) > Month(f) Then ID = 1 ElseIf Year(MyDate) > Year(f) Then ID = 1 Else j = "Day(MyDate) = " & Day(Me.MyDate) ID = DLast("id", "mytable", j) + 1 End If Else ID = 1 End If بيني وبينك انا حصلت الاكسس لما تعمل تصفية لليوم الحالي كتب هذا الكود بس ماعرفت كيف اكوده! يحتاج انامل جراح زيك: (DateSerial(Year(SUBFORM.DATEE),Month(SUBFORM.DATEE),Day(SUBFORM.DATEE))=Date()) حيث اسم النموذج هو subform
ابوخليل قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 ارجع لي ترقيم للسنة الحالية عموما... يا استاذي الكريم اريد ترقيم لكل يوم على حدة حسب تاريخ اليوم الحالي date() فاليوم #19/5/2015# له ترقيمه من 1 الى... وغدا #20/5/2015# سيبتدئ ترقيمه من 1 الى ... ايضا وهكذا دواليك هذا دفتر اليومية... وسع صدرك معي الله يخليك... اهلا بك اخينا راعي الغنم !! وبعد اذن الاستاذ مارد ! اذا ممكن تضعه موضوع جديد ! تحياتي شكرا لك استاذ رمهان توجيه في محله والاولى الا تتم المداخلة ابتداءً لان الموضوع مختلف ويستحق عنوانا يخصه ولانه لا يحبذ توجيه السؤال لشخص بعينه فيحرم نفسه من مساعدة الآخرين اوقد يكون المسؤول غير متهيء او مشغول فيقع في الحرج
راعي الغنم قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 الاخوة رمهان وابوخليل: الموضوع بدأ عن ترقيم للشهر وطلبي كان ترقيم لليوم فما الغضاضة في ذلك بربكم؟ واين التشعيب والتشتيت؟؟؟؟؟؟؟؟؟؟؟؟ سؤالي كان ومايزال في صلب الموضوع, بل إثراء للفكرة ومايمكن اشتقاقه منها, وجمع لشتات الباحث والمطلع.. وكل ذلك حسبما اظن والله اعلم الاختلاف لا يفسد للود قضية وانتم احبابنا ولكن الحق احب الينا منكم...
ابوخليل قام بنشر مايو 21, 2015 قام بنشر مايو 21, 2015 مرحى بالعتاب با رد عليك ومطلوب منك انك تنتصر للحق الذي تحبه اولا اثراء العناوين افضل من اثراء الفكرة لان العنوان نجده بالبحث ولكن الفكرة تضيع بين الافكار ثانيا نفرض انك سويت مداخلة معي في موضوع ما وطلبت مني حل او تفسير جزئية لا اعرفها او لا تحضرني او تحتاج الى جهد حتى اخرجها بالصورة المناسبة فهنا انت سببت لي حرج ، وان ضربت صفح عن الاجابة فسيتضرر صاحب السؤال ثالثا ما المشكلة في فتح موضوع جديد ما دام يمكننا الاشارة او الاحالة على المواضيع المشابهة قوانين المنتدى انتقيت ووضعت للصالح العام مراعية مصلحة السائل وحق من يتصدى للاجابة 1
عبد الله قدور قام بنشر مايو 23, 2015 قام بنشر مايو 23, 2015 السلام عليكم اخي وضعت لك مرفق للترقيم التلقائي فيه نموذجين الاول شهري والثاني يومي وهو بدون أي كود برمجي اعتمدت على تعبير في القيمة الافتراضية للحقل فقط اختر جديد وستجد النتيجة التي تريدها بإذن الله Database2.rar
راعي الغنم قام بنشر مايو 24, 2015 قام بنشر مايو 24, 2015 جزيل لكل مشرف ومراقب وعضو وطالب بهذا الصرح العلمي الشامخ.. من علمني حرفا...كنت له عبداً
رمهان قام بنشر مايو 24, 2015 قام بنشر مايو 24, 2015 الاستاذ عبدالله قدور اعتقد ان يكون هناك تعارض حيث قد يصادف عدد التسلسل وعدد الايام في الايام والاشهر القادمه ! اتاكد ولي عوده! تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.