-
Posts
2,256 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
136
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kanory
-
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
طيب جربي الان المرفق ....<><><><><><><><> LABBB (2).accdb -
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
ولكن كيف لي ان اعرف ملهو الكود المستخدم لذلك النقل ........ نظام اقساط .... يجب وضع كل ما يخص العمل حتى نستطيع الحل !!!!!! ليس في المرفق الكود الخاص بالنقل .... لا استطيع التنبؤ بالية النقل المستخدمة في برنامجك .... -
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
في حدث الزر P استخدمي هذا <><><><> Me.main_title.Caption = "panle" Me.S1 = Null Me.S1.Enabled = False Me.testlist.ColumnCount = 2 Me.testlist.ColumnWidths = "5;0" Me.testlist.RowSource = " SELECT DISTINCT test_tbl.sub FROM test_tbl GROUP BY test_tbl.sub, test_tbl.add_group, test_tbl.test, test_tbl.tcode HAVING (((test_tbl.sub) Like ""*"" & [Forms]![reservation_frm]![S1]) AND ((test_tbl.add_group)=True)) ORDER BY test_tbl.sub;" Me.testlist.Requery Me.testlist.OnDblClick = "=panle_Function()" -
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
-
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
-
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
-
ممكن طريقة منع تكرار اسم المجموعه اللى بيقع تحتها عناصر كتيره
kanory replied to safaa salem5's topic in قسم الأكسيس Access
-
Private Sub com1_Click() Call YMD(Me.Text1.Value) End Sub Function YMD(No As Integer) As Variant Dim Y As Long Dim M As Long Dim D As Long Y = Int(No / 365.25) M = Int((No - (Int(No / 365.25) * 365.25)) / 30.4375) D = No - ((Y * 365.25) + (M * 30.4375)) YMD = Y & " years " & M & " months " & D & " days" Me.DateD = D Me.DateM = M Me.DateY = Y End Function
-
تابع هذه المشاركة لطرق وامثلة لحلقات التكرار
-
طيب اعمل مثلا زر امر وضع فيه هذه الشيفرة <<<<<<<<<>>>>>>>> Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Set db = CurrentDb Dim mov_st As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT TAB3.HNO, TAB3.SUB_ID, DCount(""ID"",""TAB3"",""[HNO] ="" & [HNO] & "" and [SUB_ID] ="" & [SUB_ID] & """") AS Expr1, TAB3.CHEK, TAB3.ID, DCount(""ID"",""TAB3"",""[HNO] ="" & [HNO] & """") AS Expr2 " & _ " FROM TAB3;") rst.MoveFirst mov_st = rst!ID Do While Not rst.EOF If rst!Expr2 > rst!Expr1 And rst!Expr1 = 1 And rst!Expr2 > 2 Then rst.Edit rst!CHEK = True rst.Update ElseIf rst!Expr2 > rst!Expr1 And rst!Expr1 = 1 And rst!ID > mov_st Then rst.Edit rst!CHEK = True rst.Update Else End If mov_st = rst!ID rst.MoveNext Loop rst.Close Me.Refresh strSQL = "SELECT TAB3.ID, TAB3.MNO, TAB3.TNO, TAB3.HNO, TAB3.SUB_ID, TAB3.CHEK FROM TAB3 WHERE (((TAB3.CHEK)=True)) " 'db.QueryDefs.Delete "kanory" Set qdf = db.CreateQueryDef("kanory", strSQL) MsgBox "يتم الان فتح استعلام الاخطاء ", vbInformation + vbMsgBoxRight + vbOKOnly, "ملاحظة" DoCmd.OpenQuery "kanory", acNormal, acEdit
-
ممكن اخي مجموعة من تلك الاخطاء التي تتوقع حدوثها في جدول ... اضف امثلة اخرى وكثر منها لفهم الالية لعمل استعلام مناسب للحالة
-
وعليكم السلام ورحمة الله وبركاته ليس لدي 2010 لكن شغال على 2016 بدون مشاكل مع اخفاء شاشة الاكسس تظهر الصورة المختارة .
-
محتاج عمل مربع نص لجمع المواد الدراسية الى تم رصدها
kanory replied to osn's topic in قسم الأكسيس Access
ليس هذا ما اريده .. أرسلت لك مرفقا به مواد درجاتها مرصودة وأخرى غير مرصودة للتمييز مشاركة مع الاساتذة ..... ضع هذا الفانك في النموذج Function CountFields() Set db = CurrentDb() Set RS = db.OpenRecordset("SELECT tb_1.[لغة عربية], tb_1.رياضيات, tb_1.علوم, tb_1.[تربية إسلامية], tb_1.[دراسات اجتماعية] FROM tb_1;") RS.MoveFirst Do While Not RS.EOF Countt = 0 For Each Item In RS.Fields If RS.Fields(Item.Name).Value <> "" Then Countt = Countt + 1 Next Item RS.MoveNext Loop [نص35] = Countt End Function واستدعيه من حدث الحالي للنموذج بهذا الشكل CountFields جرب واعلمنا هل هذا هو المطلوب <<<<<<<<<<<<<<<<<< -
تصدير البيانات من الاكسس الى ملف ورد معد مسبقا وحفظه
kanory replied to MSI's topic in قسم الأكسيس Access
حاول استخدام هذا وعدل حسب الشيفرة لديك ... Wdoc.SaveAs2 CurrentProject.Path & "\" & Me.RintNO & "-MyDoc" & ".docx" -
-
اخي الكريم @Foksh يبدو اننا نجاوب في نفس الوقت . ههههه
-
-
هل تريدها لجميع اوراق الاكسل ام ورقة محددة ؟؟؟؟
-
اسف جدا أخي ابا محمد اقصد هذه المكتبة قد اشرت لها سابقا خطأ .. هذه المكتبة المطلوبة اخي الكريم ..... ارجو المعذرة
-
ابو محمد >>>>>> افتح القاعدة الثانية ( التي لاتعمل ) وتأكد من وجود المكتبة المذكورة وليس القاعدة الاولى ....
-
-
مشكلة في datediff عند حساب الفرق بين تاريخين بالسنوات فقط
kanory replied to moho58's topic in قسم الأكسيس Access
مشاركة مع اساتذتي الكرام ........ استبدلها بهذا فقط =Int(DateDiff("d";[date_naissance];Date())/365.25) -
وعليكم السلام ورحمة الله ..... اولا : تحتاج ثلاث مخازن طبعا اقصد برمجيا ( مخزن للمواد الخام - مخزن للإنتاج - مخزن مستودع للتوزيع ) ... وكل مخزن من هذه المخازن يعتبر مخزن مستقل اي تكون لها كل الجداول والنماذج والتقارير الخاصة بها ... ( موردين _ اصناف _ مشتريات _ إلخ ) ثانيا : تدخل المواد الخام في مخزن المواد الخام .... وكذلك المنتجات فمثلا ( منتج مربى توت ) >>>> تقدر لها بالتفصيل ما يحتاجه هذا المنتج على مستوى ( العلبة - الكرتون - الطبلية مثلا ) من مواد خام ( مثلا سكر 250 جرام - توت 250 جرام - برطمان أو قارورة واحدة .... وهكذا ) هذا بالنسبة للعلبة واذا كانت الوحدة كرتون نفس الطريقة ........... ثالثا : يتم استيراد المواد الخام من خلال مخزن المواد الخام >>>>> ثم تصديرها الى مخزن الإنتاج بالاليه المذكورة سابقا يعني ( كم عدد الطبليات المطلوب انتاجاها مثلا 100 طبلية ) اذن كم من المواد الخام المطلوبة للإنتاج حسب ما هو مسجل مسبقا في جدول برنامج مخازن المواد الخام >>>>> بعد ان يتم تسلمها وقيدها في برنامج مخزن الإنتاج >>> تم التصنيع >>> يتم نقلها الى برنامج مخزن التخزين ( المستودع ) ليتم التوزيع ايضا بآلية التوزيع في المستودعات ( هذا بشكل سريع للآليات ان لم انس شيئا منها .... والله أعلم ) بالتوفيق ..
-
ماهي المشكلة هل هي نفس المشكلة السابقة ام مشكلة اخرى وضح
-
بهذا الشكل سوف تفقد العلاقات وعمليات الربط بينها والجداول الاخرى ؟؟؟؟؟ استخدم حذف البيانات وتصدير بيانات الجدول اليها افضل ..... ابحث في المنتدى تجد طرق كثيرة لذلك