نجوم المشاركات

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

كفو و بيض الله و جهك و كلنا انشاء الله مكملين لبعض و نستفيد و نفيد

ما دام ان الطريق يؤدي إلى روما بركب أنا وياك بسيارة خاصة يا د / كاف هههههههههههههههههه

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

هذا الأمر سوف ينقلك دائما لأول سجل ، جرب أن تتخلص منه.

Dim rA As Range For Each rA In Columns("d").SpecialCells(xlConstants, xlNumbers).Areas rA.Cells(rA.Cells.Count + 1).Formula = "=SUM(" & rA.Address & ")" Next rA يقوم بوضع نتيجة جمع مدى معين في اخر خلية فارغة اسفل المدى بعد تشغيل الموديول ومن ثم المدى التالي في نفس العمود وهكذا ارجو ان يكون مفيد للجميع ..اسف للتاخر بالرد

الجواب موجود في نفس الموضوع Select Case KeyAscii Case 48 To 57 KeyAscii = 0 Exit Sub End Select

الغي كود التحديث الموجود في حدث عن الفتح في التقرير لأني وضعت الكود لك ضمن كود تصدير البيانات اتفضل التعديل 111School_It_0001.zip

السلام عليكم Int([a1a]/[b1b]+0.5)

السلام عليكم .. جرب التعديل معلومات - Copie.rar

وعليكم السلام انا معلم ويهمني هذا الموضوع لذلك قمت بتصميم برنامج يوزع المعلمين علي قاعات الامتحان وسميته برنامج الملاحظة علي الامتحانات مع مراعاة ان كل معلم يدخل كل قاعة مرة واحدة بقدر الامكان تستطيع وضع مشرف لكل مادة بحيث يتم استيعادة من الملاحظة تستطيع وضع الاحتياط تستطيع وضع لجنة لجمع وترتيب الاوراق تستطيع وضع لجنة نظام تستطيع اعفاء بعض المعلمين من الملاحظة... الخ الخ ثم في النهاية طباعة الجداول المختلفة لا اطيل عليك فهناك ميزات اخري في اليرنامج تفضل جربه لعله يناسبك 1076052452_5.5.xlsm

تفضل هذا التعديل Database3.accdb

انت استبدلت مربع التسمية بالأزرار 😂 ممتاز فكل الطرق مؤدية للحلول الصحيحة

على هونك اخوي ايش فيك زعلان كلنا مكملين لبعض و بالاخص انا هنا لاجل إني اتعلم و آخذ شوي من خبرات الشباب تفيدني في الدراسة خل صدرك وسيع و الموضوع ما يستاهل انك تزعل نفسك

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

أخي لم ترد على سؤالي ، هل جربت المثال الذي رفعته لك؟ وأنا أوصي المتابعين بتجربته وسأقبل بحكمهم.

إعادة رفع مع تعديل نقطة DATA14.rar

أخي أبو الحسن ، هل جربت مثالي؟!!!!!!!!!!!!!!. الموضوع حل/انتهى ولكن يبدو أنك لا تريد الحل إلى من الدكتور. وأنا الصراحة ألوم الدكتور كذلك ، الدكتور لما وضع الكود الأخير ما الجديد فيه؟!! بل بالغكس أرجع السطر الذي نصحت بحذفه ولكنه أتي به بعد أمر الحذف وهو في الأساس لا قيمة له!!. أمركم غريب والله ، الحل بين أيديكم ولا تودوا العمل به ، وهل وقتنا رخيص لهذه الدرجة؟!

وهذا يابو الحسن محاولة مني جرب لعل وعسى DATA14.rar

اتفضل التعديل يابو الحسن DATA14 (11111).accdb

Private Sub Form_Timer() ClockNow = Time If Format(Now(), "hh") <= 12 Then txt_DayNight = "لاتنس أذكار الصباح" Else txt_DayNight = "لا تنسى أذكار المساء" End If txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date) End Sub

في ازرار الترحيل ضع التالي [YEAR] = Null

جرب الآن ، منظر الحقل مو حلو كالسابق ، ولكن هذا اللي أقدر عليه. DATA14_Hawiii_1.mdb

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد ... كل عام وأنتم بخير وبصحة وسلامة إن شاء الله .. اتمنى ان يكون عام 2021 عام خير على أمة محمد أجمعين. بالنسبة لموضوعي الذي احببت مشاركتكم إياه فهو نادر مايستخدم ولكن قد يحتاجه احد ما كما احتجت له أنا وهو عملية إجبار المستخدم على ادخال كلمة في مربع نص على ان تكون الكلمة بالعربي وليس بالانجليزي وفي نفس الوقت عدم السماح له بإدخال ارقام في مربع النص وهو الامر عتبر غير شائع الاستعمال في الاكسس لكون ان المستخدم دائماً يكون هو المسؤول عن إدخالاته .. لكن في بعض الأحيان قد تحتاج الى فرض قيود صارمة على المستخدمين العابثين ومنعهم من حرية الاختيار عند ادخال بيانات معينة واجبارهم على ادخال ارقام او حروف انجليزي فقط او عربي .. الخ . إليكم الكود التالي الذي يجبر المستخدم على الكتابة بالعربي فقط في مربع النص .. يتم وضعه في حدث "عند الضغط على مفتاح" Select Case KeyAscii Case 48 To 57, 65 To 90, 97 To 122 ' Numbers and english letters KeyAscii = 0 Exit Sub End Select الارقام من 48 الى 57 هي للأرقام والباقي للحروف الانجليزية تحياتي

نعم ,, ينقل المؤشر لبداية السجلات عذرا لم انتبه لوجوده

Private Sub DELL_ROW_Click() On Error Resume Next If IsNull(Select3) Then a2.Visible = True MsgBox "íÌÈ Êãßíä ÇáÍÐÝ ", vbCritical + vbMsgBoxRight, "ÊäÈíå" Exit Sub End If If Not IsNull(Select3) Then a2.Visible = False End If If MsgBox("ÇäÊ Úáì æÔß ÍÐÝ ÓÌá ", vbYesNo, "ÑÓÇáÉ ÊÍÐíÑíÉ") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End Sub هذا عمل عندي بشكل صحيح

أعتقد الكود لا د أن يكون هكذا ، سطر الاختيار لابد من وجوده ويتم حذف السطر الذي أوصيتك بحذفه فقط.

ما فائدة ارفاق ملف محمي كيف سنضع لك الكود جرب هذا الكود على حسب ما فهمت Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("a1:b10")) Is Nothing Then Exit Sub MsgBox "this cell is protected,pleace unprotect it " & Target.Address End Sub

وعليكم السلام وحرحمة الله وبركاته جرب التعديل التالي Private Sub DELL_ROW_Click() On Error Resume Next If IsNull(Select3) Then a2.Visible = True MsgBox "يجب تمكين الحذف ", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If If Not IsNull(Select3) Then a2.Visible = False End If DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.Requery DoCmd.SetWarnings True End Sub تحياتي

لا يحتاج الوقوف على السطر يعمل لدي بدون الوقوف على السطر هل النموذج الذي تقصد الحذف منه نموذج فرعي ؟

جرب هذا If MsgBox("انت على وشك حذف سجل ", vbYesNo, "رسالة تحذيرية") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Else End If

هذا السطر هو سبب المشكلة DoCmd.RunCommand acCmdSelectRecord قم بحجبه او حذفه

طريقة ثانية : 1. اعمل استعلام تجميعي للحقل A ، 2. اعمل استعلام تجميعي للحقل B ، 3. اعمل استعلام Union يدمج الاستعلام الاول والاستعلام الثاني بالامر Union (وليس Union all) ، حيث الامر Union سيحذف المكرر ، 4. اعمل استعلام الحاقي يأخذ بيانات الاستعلام 3 الى الحقل C 🙂 جعفر

وعليكم السلام 🙂 اجعل الحقل C ، مفهرس وغير قابل للتكرار ، ثم اعمل استعلام الحاقي يضيف جميع ارقام الحقل A الى C ، واستعلام الحاقي يضيف جميع ارقام الحقل B الى الحقل C 🙂 العيب في هذه الطريقة ، اذا كان عندك حقل برقم تلقائي AutoNumber ، فإنه سيتم انتاج وحذف بعضها ، المتكررة من الحقل C ، ولكن هذا لا يهم ، فالحقل التلقائي لإستعمال الكمبيوتر ، وهذا عمله 🙂 جعفر

جرب هذه المعادلات خساب الاقدمية.xls

وهذا برنامج جديد يشبه السابق واسميته برنامج الحراسةبرنامج الحراسة1.4.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =Round([totol];0) كسر عشري.accdb تحياتي

بالخدمة استاذ

يعطيك الف الف عافيه ويسعدك ربي ..

الاكسس يستعمل وحدة قياس في الكود تختلف عنه في وضع التصميم ، في الكود يستعمل وحدة قياس تويب Twip 1سم = 567 تويب 1بوصة = 1440 تويب . اخوي الدكتور حسين ، الظاهر بعدك ما خلصت من حلاوة العيد جعفر

جرب هذا الكود Private Sub أمر1_Click() If Nz(DCount("*", "tblSolaf1", "Paid=No" & " And SolfaDate<=#" & Date & "#"), 0) > 0 Then MsgBox "هناك سلف لم يتم الانتهاء منها", vbInformation, "تنبيه" DoCmd.OpenForm "tblSolaf1" Else DoCmd.OpenForm "Salary" End If End Sub

السلام عليكم 🙂 الخطأ يقول ان الكائن tbl_dece لا يوجد في النموذج Data member not found) : . اذا تلاحظ اسم حاوية النموذج الفرعي في النموذج ، اسمها يطابق الاسم في الكود ، فلم تحصل على خطأ هنا : . ولكن اسم حاوية النموذج الفرعي في النموذج ، اسمها لا يطابق الاسم في الكود ، لذا فالاسم الموجود في الكود غير موجود في النموذج اصلا : . وهذه طريقة اخرى للتأكد بأن الكائن المذكور في الكود لا يوجد في النموذج : فعندك خيارين للحل: 2. يا انك تُبقي الكود كما هو ، وتغيّر اسم حاوية النموذج الفرعي الى : . 2. او انك تُبقي على اسم حاوية النموذج الفرعي كما هي ، وعليه يتغيّر الكود الى : . ولاحظت انه عندك نفس الكائن بعدة مسميات ، فانت تلخبط نفسك ، وستكون المشكلة اكبر في المستقبل لما تريد عمل اي تعديل !! اعطيه نفس اسم النموذج ، والسلام : . ونصيحة اخرى ، وهي تنسيق الكود ، فلما يكون الكود كله يبدأ من اول السطر ، فلا تعرف بداية ونهاية كل مجموعة ، بينما لما يكون منسّق هكذا ، فمن السهل معرفة البداية والنهاية بمجرد النظر في الكود ، ولا داعي لقراءة الكود لمعرفة بدايته ونهايته ، هكذا : Private Sub Form_Load() If DCount("*", "Tbl_bb", "م") < 1 Then Me![addnew].Enabled = True Me.Next.Enabled = False Me.previous.Enabled = False Me.dlet.Enabled = False Me![cmdcols].Enabled = True Me![Edit].Enabled = False Me![sav].Enabled = False Me![traghh].Enabled = False AllowAdditions = True AllowEdits = False AllowDeletions = False Me.tbl_promotion.Form.AllowEdits = False Me.tbl_promotion.Form.AllowDeletions = False Me.tbl_promotion.Form.AllowAdditions = False Me.tbl_Retr.Form.AllowEdits = False Me.tbl_Retr.Form.AllowDeletions = False Me.tbl_Retr.Form.AllowAdditions = False Me.tbl_dece.Form.AllowEdits = False Me.tbl_dece.Form.AllowDeletions = False Me.tbl_dece.Form.AllowAdditions = False End If End Sub جعفر

لإثراء الموضوع أكثر، هذا فنكشن فك التشفير وإرجاعه نص طبيعي.. Function DecodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String i = 2 Do While i < Len(s) Select Case Mid(s, i, 1) Case "0" To "7" r = r & Chr(CLng("&H" & Mid(s, i, 2))) Case "C", "D" p1 = CLng("&H" & Mid(s, i, 2)) - 192 i = i + 3 p2 = CLng("&H" & Mid(s, i, 2)) - 128 r = r & ChrW(64 * p1 + p2) Debug.Print Hex(64 * p1 + p2) Case Else ' Not handled End Select i = i + 3 Loop DecodeQP2 = r End Function

تفضل التعديل اخي الكريم و اغتذر عن التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0 cang _lang_ar_en.accdb

السلام عليكم مشاركه مع الاستاذ كريم جرب الكود بعد التعديل وهو باضافه PtrSafe Option Compare Database Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function

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

أخواني وأخواتي الأعزاء تحية طيبة وبعد ،،،،،،،، أقدم اليوم إليكم برنامج الرواتب والموارد البشرية حسب قانون الخدمة المدنية الفلسطيني قبل التعديل ، وأتمنى أن تستفيدوا من الأفكار والبرمجة الموجودة بداخله حيث أنه مفتوح المصدر. توجد به حركة الرواتب من 30/4/2004 وحتى 31/12/2005 حيث كان الاحتساب يبدأ بتاريخ نهاية كل شهر مثال ذلك 30/4/2004 أو 31/5/2004 أو 30/6/2004 أو 31/12/2005 وهكذا فإذا أردت طباعة أي استمارة راتب مثلاً كل ما عليك أن تدخل رقم الموظف في خانة من .. الى .. وتاريخ الاحتساب. أتمنى لكم التوفيق Salaries_2005.rar