نجوم المشاركات
Popular Content
Showing content with the highest reputation on 05 سبت, 2021 in all areas
-
4 points
-
3 points
-
ضع هذا الكود في حدث النقر على الزر <<<<<<<>>>>>>> DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iBillStatus = ""مرحل"" WHERE (((tbl_Items.iDate) Between [Forms]![frmTarhell]![Text0] And [Forms]![frmTarhell]![Text2]));" DoCmd.SetWarnings True3 points
-
3 points
-
استخدم هذا الكود في مربع النص الخاص بالتاريخ في حدث بعد التحديث ...... If Not IsNull(DLookup("A", "ABCD", "C=form!C and D=form!D And A=form!A And A=form!A")) Then If MsgBox("سبق إدخال " & C & " و " & D & " هل تريد الاستمرار؟", vbYesNo, "تنبيه") = vbNo Then 'لتفريغ الحقول فقط A = Null B = Null C = Null D = Null End If End If للأسف لم استطع استخدام الكود في مثالك ......... نظرا لاستخدامك اللغة العربية في التسميات ............3 points
-
لان الكود ينظر لاول تريقيم في الجدول وليس الترقيم الذي انت تريده ( بداية الترقيم قي السنه ) انظر هذا الكود وتفحصة لتعرف ما الذي يجب عليك تعديلة ليفهم الكود بداية الترقيم Em.21001 DoCmd.GoToRecord , "", acNewRec Rc.MoveFirst ChequesFound = Rc.GetRows(Rc.RecordCount) ChequeNoStart = ChequesFound(0, 0) ChequeNoEnd = ChequesFound(0, UBound(ChequesFound, 2)) اما الكود الذي وجدته فلا يعيد الارقام المفقودة !!!!!3 points
-
المنتدى للتعلم بارك الله فيك ..... حاول في الكود .... غير ... بدل ... ضيف .... احذف .... حتى تصل ... ما تخسر شيئ بل تكتسب خبرة3 points
-
3 points
-
لكن لو فكرت منطقيا ... انت اعتمدت على السنه في الترقيم .. صحيح اذن ... سوف تواجه مشكلة العام القادم ... ليش منطقيا ان كل عام له ترقيمه الخاص ... يعني كل سنه يبدأ ترقيم من جديد .... السؤال ... لك .... للتعلم .... كيف يمكن تعديل الكود السابق حتى نتلافى تلك المشكلة ؟؟؟ اريد انت تفكر بطرق حل تلك المشكلة برمجيا !!3 points
-
استبدل الكود الموجود لديك بهذا الكود ..... On Error Resume Next Dim Db As DAO.Database Dim Rc As DAO.Recordset Dim ChequesFound Dim ChequeNoStart As Long Dim ChequeNoEnd As Long Dim i As Long Set Db = CurrentDb Set Rc = Db.OpenRecordset("SELECT SamoBrojevitxt([dbo_ID]) AS Brojevtxti FROM dbo_Tbl_Emp ORDER BY SamoBrojevitxt([dbo_ID]);") Do While Not Rc.EOF Rc.MoveNext Loop If Rc.RecordCount = 0 Then dbo_ID = "Em." & Right(Year(Date), 2) & "001" 'MsgBox "No Records Found" GoTo cmdDisplay_Exit End If DoCmd.GoToRecord , "", acNewRec Rc.MoveFirst ChequesFound = Rc.GetRows(Rc.RecordCount) ChequeNoStart = ChequesFound(0, 0) ChequeNoEnd = ChequesFound(0, UBound(ChequesFound, 2)) For i = ChequeNoStart To ChequeNoEnd If BinarySearch(ChequesFound, i) = False Then dbo_ID = "Em." & i GoTo cmdDisplay_Exit Else dbo_ID = "Em." & Replace(Nz(DMax("dbo_ID", "dbo_Tbl_Emp", "dbo_ID like 'Em." & Right(Year(Date), 2) & "*'"), "Em." & Right(Year(Date), 2) & "000"), "Em.", "") + 1 End If Next i cmdDisplay_Exit: Set Rc = Nothing Set Db = Nothing3 points
-
هذا الملف السابق في المشاركة السابقة بعد اضافة التواريخ الجديدة ..... انظر المرفق ..... Microsoft Access Database جديد (1).accdb2 points
-
2 points
-
يمكنك استعمال هذا الكود Private Sub CommandButton1_Click() TextBox1.Value = Format(DateAdd("d", -1, CDate(TextBox1.Value)), "YYYY/MM/DD") End Sub Private Sub CommandButton2_Click() TextBox1.Value = Format(DateAdd("d", 1, CDate(TextBox1.Value)), "YYYY/MM/DD") End Sub بالتوفيق2 points
-
2 points
-
متسرع في ردك كالعادة المرفق يعمل بصورة جدا ممتازة و لا توجد عليه أي شوائب لكن قد يكون الفرز في عمود غير العمود الذي تريده في المعادلة فقط قم بتغيير اسم العمود الى العمود الذي تريده اخي @Barna مجهودك اكثر من ممتاز و اخونا @bumb هذه عادته دائما متسرع في الاجابة و اتوقع انه يطلع على النتائج و لا يطلع على الكيفية ارجوا ان تتفهموا وجهة نظري فهي للتقريب و ليست للتفريق شكرا لكم ,,, ,2 points
-
حياك الله ابا الحسن... واياك ... واشكرك على الدعوات الطيبة ...2 points
-
امسح هذا .... C = Null D = Null A = Null B = Null واستبدلها بهذا .... Me.Undo2 points
-
2 points
-
2 points
-
تفضل هذه بعض الأكود تحتاجها في عملية الاضافة و التعديل و الحذف الإضافة Sub Add_New_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("INSERT INTO Table_Name " & _ "([column_name1], [column_name2], [column_name3]) " & _ " VALUES(" & _ "[some_value1]," & _ "[some_value2]," & _ "[some_value3]," & _ ")") rs.Close Set rs = Nothing End Sub التعديل Sub Edit_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("UPDATE Table_Name SET " & _ "[column_name1] = new_value," & _ "[column_name2] = new_value," & _ "[column_name3] = new_value," & _ "WHERE column_name = some_value") rs.Close Set rs = Nothing End Sub الحذف Sub DELETE_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("DELETE FROM Table_Name " & _ "WHERE column_name = some_value") rs.Close Set rs = Nothing End Sub2 points
-
2 points
-
2 points
-
1 point
-
والله تستاهل بوسة من الشوارب دكتور .. اني ليلة البارحة اشتغلت عليه واشتغل معاي منيح.. قبل رفعه قلت خلي اجربه مرة ثانية البرنامج قال لي لو تطلع نخلة في راسك ما اشتغل .. قلت بنفسي يمكن هذا الاكسس في جني هههه تحية لك دكتور ولا ستاذنا القدير @Barna1 point
-
هذه اشهر التسديد استاذ عمر .. لان نموذج التسديد يكون وحده يخص كل زبون ويذكر فيه التاريخ اهم شي في البرنامج هو سهولة تحرك المستخدم بين النماذج1 point
-
تفضل ملفك تم وضع معادلة منفصلة لكل يوم وأنصح بعدم دمج الخلايا إلا في أضيق الحدود لأن دمج الخلايا يزيد من المعادلات بدلا من سحبها مباشرة بالتوفيق عدد الطلاب في كل يوم لكل منطقة صباحي ومسائي.xlsx1 point
-
تفضل هذا التعديل على نفس مربح التحرير و السرد الي موجود من قبل السبب ان من كبر النموذج ما انتبهت انك اضفت مربع تحرير و سرد فيه الشهور كذلك نصيحة لك حاول مثل هذي النماذج انك ما تجعلها بحجم كبير لجل انها تناسب جميع الشاشات لو لاحظت اني صغرت حجم النموذج لكن عند الفتح ياخذ حجم الشاشة Microsoft Access Database جديد (3).zip1 point
-
الموضوع بسيط مربع التحرير و السرد عشان يكون الشهر مطابق للشهر الي في نفس الجهاز فأستخدمت حلقة تكرارية مع تاريخ افتراضي عشان نطلع الأشهر و جعلت الكود في حدث عند الفتح Dim i As Integer MonthList = "اختيار ..." For i = 0 To 11 MonthList.AddItem i + 1 & "-" & Format(DateAdd("m", i, #1/1/2000#), "mmmm") Next في حدث عند التغيير في مربع التحرير و السر اضفت الفتر التالي On Error Resume Next Dim varFilter As Variant varFilter = Null If Not IsNull(MonthList) Then varFilter = (varFilter) & "format([txtMovementDateStart],'mmmm') LIKE '" & Right(MonthList, Len(MonthList) - 2) & "'" ' الفلتر t1.Caption = "التقرير الشهري للحركة لشهر" & " ( " & Right(MonthList, Len(MonthList) - 2) & " )" ' تعديل رأس الصفحة لإضافة اسم الشهر لعنوان الصفحة End If With Me.frmMovementMonthlyReport.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With و اذا رغبت بالتواصل معي تفضل على الخاص او الايميل حاليا لا استطيع استقبال المكالمات من السعودية لأني في ماليزيا1 point
-
1 point
-
نصيحه ليك قم تقسيم البيانات على اكثر من جدول واعمل بينهم علاقه هيسهل معاك التجميع والفرز والعرض وكل ما تريد وايضا ما الغرض من الاشهر هذه وهل يمكنك توضيح ما تريد تنفيذه تحديدا حتى يسهل علينا ان نساعدك1 point
-
1 point
-
شكرا لمرورك الكريم أستاذ @abouelhassan1 point
-
1 point
-
بارك الله فيك استاذ محمد شكر وتقدير وكل الاحترام من اخيك1 point
-
استاذنا العزيز @ابوخليل هل ممكن تعرض الوحدة النمطية الخاصة بتغيير النموذج مع دقة الشاشة او مثال على ذلك تحياتي لكل الاساتذة الكرام1 point
-
للتعلم ... اعمل استعلام تحديث للجدول وقم بعمل معيار bitween ....1 point
-
1 point
-
1 point
-
احسن الله اليك ..... القصد في المشاركة حتى تتعدد الافكار والطرق وتصبح معلومة لمن يريدها وقت البحث ..... اشكر لك صعت صدرك من امثالكم نتعلم . بارك الله فيك اخي الكريم1 point
-
1 point
-
وعليكم السلام 🙂 استعمل الكود مرتين: Private Sub CRN_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If File_Path = Application.CurrentProject.Path & "\NEW FOLDER\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If End Sub جعفر1 point
-
اشكر استاذ محمد صالح جدا وجزاه الله خير الاستاذ جيلاني ضع كلمة PtrSafe بين كلمتي ديكلر وفانكشن1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
أخي قطان بعد التأكد منك أن لها حلا تفضل هذا هو هو نفس فكرة سبيكة الذهب التي طولها 7 سم وتريد إعطاء كل يوم سم بقطع السبيكة مرتين فقط ففي فزورة السبيكة نقطع عند نهاية 1 سم وعند نهاية 3 سم فسيتكون معنا ثلاث قطع الأولى طولها 1 سم والثانية طولها 2 سم والثالثة طولها 4 سم ففي اليوم الأول يتم إعطاؤه 1 سم وفي اليوم الثاني يتم أخذ 1سم وإعطاؤه 2 سم وفي اليوم الثالث يتم إعطاؤه 1 سم بالإضافة إلى 2 سم وفي اليوم الرابع يتم أخذ 1سم و2 سم وإعطاؤه 4 سم وفي اليوم الخامس يتم إعطاؤه 1 سم بالإضافة إلى 4 سم وفي اليوم السادس يتم أخذ 1سم وإعطاؤه 2 سم بالإضافة إلى 4 سم وفي اليوم السابع يتم إعطاؤه 1 سم بإضافة إلى 2 سم و 4 سم وبالنسبة لفزورتنا سبع سلاسل مرتبطة يتم قطع السلسلة عند الحلقة الثالثة ونستخلص الأربعة حلقات الموجودة على يسار الحلقة المقطوعة ثم نستخلص الحلقتين الموجودتين على يمين الحلقة المقطوعة وبهذا لدينا حلقة منفصلة وحلقتان متصلتان وأربع حلقات متصلة ويكون الحل هكذا ففي اليوم الأول يتم إعطاؤه 1 وفي اليوم الثاني يتم أخذ 1 وإعطاؤه 2 وفي اليوم الثالث يتم إعطاؤه 1 بالإضافة إلى 2 وفي اليوم الرابع يتم أخذ 1 و2 وإعطاؤه 4 وفي اليوم الخامس يتم إعطاؤه 1 بالإضافة إلى 4 وفي اليوم السادس يتم أخذ 1 وإعطاؤه 2 بالإضافة إلى 4 وفي اليوم السابع يتم إعطاؤه 1 بإضافة إلى 2 و 4 تحياتي للجميع وبانتظار ألعاب إكسل أخرى من الإخوة والأخوات1 point
-
أخي قطان أنا حليت مثل هذه الفزورة ولكن كانت سبيكة ذهب طولها سبعة سم والمسموح القطع مرتين ولكن سبعة بقطع مرة واحدة!!!! جديدة بس نحاول معاها المهم يكون ليها حل1 point
-
حل موفق أخي سالم سلمك الله من كل سوء وبالنسبة لإضافة ملف فلاش في ملف إكسل يمكنك اختيار macromedia flash object من مجموعة الأكتيفيكس الموجودة ضمن صندوق الأدوات1 point