اذهب الي المحتوي
أوفيسنا

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. Today
  2. العضو @elmozy525 هو الشيخ صلاح الموزي حفظه الله عندكم في مصر وقد اكملت البرنامج مع الشيخ وطورناه سويا خارج المنتدى وأعتقد انهم يعملون عليه الآن لا يحضرني عنوان الشيخ ولعل يصل اليه هذا الاشعار .. فيتواصل معك
  3. السلام عليكم ورحمة الله وبركاته عند فتح الفورم بالأوفيس 2003 لا تظهر المشكلة ولكن عنده فتحه بإصدار أعلى تظهر المشكلة Private Sub FrstChnge(combo1, combo2) Dim val As String Dim ARY As Variant val = combo1.Value combo2.Clear If val = "" Then Exit Sub val = ThisWorkbook.Path & "\" & val & "\Ser" With Application.FileSearch .NewSearch .LookIn = val .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Namey = .FoundFiles(i) For nn = Len(Namey) To 1 Step -1 If Mid(Namey, nn, 1) = "\" Then Namey = Right(Namey, Len(Namey) - nn) Namey = Left(Namey, Len(Namey) - 4) End If Next nn combo2.AddItem Namey Next i End If End With End Sub
  4. اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند الفتح يظهر نموذج به زر ادخال الدرجات عند الضغط عليه يفتح نموذج به قوائم منسدلة عند اختيار الفصل الدراسي والسنة الدراسية والصف ( مثلا الصف الخامس )والمجموعة والمادة تظهر درجات الطلاب . محتاج اضيف قائمة منسدلة بالاسم ورقم الجلوس والرقم السري بحيث عندما أريد تعديل درجة معينة لطالب ممكن ابحث بالاسم أو رقم الجلوس أو الرقم السري ولكم جزيل الشكر ووافر الاحترام2تعديل بالنشاط.accdb
  5. السلام عليكم ورحمة الله وبركاتة رجاء مساعدتى فى comobobx1 يوجد خيارين "كود "و "اسم العميل" كود مرتبط بالعمود الاول واسم العميل مرتبط بالعمود الثانى فى listbox1 ملحوظة عندما اختار كلمة كود فى combobox يقوم بالترتيب تنازلى او تصاعدى من خلال Checkbox انه يعمل جيدا ولاكن عند اقوم باختار كلمة اسم عميل فى combobox لا يقوم بالترتيب تنازلى او تصاعدى من بواسطة Checkbox عندما اضغط على امر Private Sub CommandButton8_Click() Private Sub CommandButton8_Click() Dim arr() As Variant Dim i As Long, j As Long, temp As Variant Dim sortColumn As Integer Dim sortOrder As Boolean ' التأكد من وجود بيانات في ListBox If ListBox1.ListCount = 0 Then MsgBox "لا توجد بيانات لفرزها", vbExclamation Exit Sub End If ' تحديد عمود الفرز بناءً على ComboBox sortColumn = ComboBox1.ListIndex + 1 ' نفترض أن الفهرس يبدأ من 0 ' تحديد اتجاه الفرز بناءً على CheckBox sortOrder = CheckBox1.Value ' نسخ البيانات من ListBox إلى المصفوفة ReDim arr(ListBox1.ListCount - 1, ListBox1.ColumnCount - 1) For i = 0 To ListBox1.ListCount - 1 For j = 0 To ListBox1.ColumnCount - 1 arr(i, j) = ListBox1.List(i, j) Next j Next i ' الفرز باستخدام Bubble Sort For i = LBound(arr) To UBound(arr) - 1 For j = i + 1 To UBound(arr) If sortOrder And arr(i, sortColumn) > arr(j, sortColumn) Then ' ترتيب تنازلي ' تبادل السجلين بالكامل For k = LBound(arr, 2) To UBound(arr, 2) temp = arr(i, k) arr(i, k) = arr(j, k) arr(j, k) = temp Next k ElseIf Not sortOrder And arr(i, sortColumn) < arr(j, sortColumn) Then ' ترتيب تصاعدي ' تبادل السجلين بالكامل For k = LBound(arr, 2) To UBound(arr, 2) temp = arr(i, k) arr(i, k) = arr(j, k) arr(j, k) = temp Next k End If Next j Next i ' مسح البيانات القديمة وإضافة البيانات الجديدة ListBox1.Clear For i = LBound(arr) To UBound(arr) ListBox1.AddItem For j = LBound(arr, 2) To UBound(arr, 2) ' ListBox1.List(i, j - 1) = arr(i, j) ' نبدأ من الصفر في ListBox ListBox1.List(i, j) = arr(i, j) Next j Next i With ListBox1 .Font.Size = 12 ' تغيير حجم الخط إلى 12 .ColumnCount = 2 .ColumnWidths = "80;120" ' .Font.Color = vbBlue ' تغيير لون الخط إلى الأزرق .BackColor = RGB(255, 255, 204) ' تغيير لون الخلفية إلى أصفر فاتح End With End Sub شاشة عميل بحث.xlsm
  6. اضف زر فى نموذج tabl1 واضف هذا الكود له Dim filter As String filter = "" If Not IsNull(Me.sana) Then filter = filter & "sana = '" & Me.sana & "' AND " End If If Not IsNull(Me.rakm) Then filter = filter & "rakm = '" & Me.rakm & "' AND " End If If Not IsNull(Me.wadia) Then filter = filter & "wadia = '" & Me.wadia & "' AND " End If If filter <> "" Then filter = Left(filter, Len(filter) - 5) End If DoCmd.OpenForm "tabl", , , filter
  7. هذا الموضوع لاستاذنا الفاضل @ابوخليل محتاج انفذه على الاكواد دى كيفيه عمل ذلك Private Sub Command3_Click() DoCmd.GoToRecord , , acFirst DoCmd.OpenForm "form2" ifrm = 1 j = 1 هذا الكود خاص بحضرتك ------------------------------------------------- محتاج انفذه هنا [Forms]![Orders_frm]![testcode] = Me.testcode [Forms]![Orders_frm]![testname] = Me.testname If Me.testcode = 346 Then DoCmd.OpenForm "Postcoital_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] ElseIf Me.testcode = 5 Then DoCmd.OpenForm "Znstain_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] ElseIf Me.testcode = 440 Then DoCmd.OpenForm "Tuberculin_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] Else DoCmd.OpenForm "Resultenter_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] End If
  8. احتاج الى بعض التعديلات فى البرنامج هل ممكن
  9. ارفع ملف للعمل عليه مع توضيح اين تريد ان يظهر القيمه
  10. وهنا اعطيك حل للما سبق ذكره strSQL = "INSERT INTO kanory ( a, b, c, d ) " & vbCrLf & _ "SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _ "WHERE (((Format([PDG_Date],""dd-mm-yyyy"")) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));" ده بس انتبه ان لا يستخدم المتغير فى شئ اخر غير التاريخ ولازم تعلن عنه وغير كده انا شايف ان المتغيرات هنا ما لها لزمه معاك
  11. اتعبتك معي استاذي العزيز الم تلاحظ ان البحث كان ينفذ عادي قبل الكود الاخير لجملة الـ strSQL 'FormatDate d1 = Format(Me.Date_First, "MM/dd/yyyy") d2 = Format(Me.Date_End, "MM/dd/yyyy")
  12. اخي الحبيب كريم يبدو ان هناك شئ فهم او تقصير مني الاكسيس برنامج يقوم زيه زي اى برنامج له اجراءات يقوم بتنفيذها حسب ما انت وضعتها انت توريني صور للجدول لكن الاكسيس كيف هيعرف ان الثالث الاول هو التاريخ من الى لازم تعرف ده باى وسيه والاسهل ليك ان تقوم بوضع حقلين لهذه الفتره وانت بالفعل عامل كده لكن المشكلة ان انت بالفعل معلن عن المتغير D1 وهو بيستخدم فى اجراءات اخري وبيحمل قيمة نصيه الحل اما تلغي موضوع المتغيرات وتضع مسار حقل التاريخ مباشرة او انك تعلن عن متغيرين جديد وانا افضل الحل الاخر وايضا افضل استخدام دالة Format علشان توحد صيغة التاريخ وميحشلش مشكلة
  13. ممكن توضح اكتر اعملها ازاي بالتفصيل
  14. انظر الصورة فلربما يتضح لك شيء والمعلومات الي عليها مربع احمر من جدول Bdgi هنا عادي ولكن يقوم بالتصفية حسب السنة strSQL = "INSERT INTO kanory ( a, b, c, d) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi WHERE (((Bdgi.année)= sn));" اما هنا وقع المشكل في التصفية بالتاريخ strSQL = "INSERT INTO kanory ( a, b, c, d) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi WHERE Bdgi.PDG_Date Between #" & d1 & "# And #" & d2 & "#;" DoCmd.SetWarnings (0) DoCmd.RunSQL strSQL DoCmd.SetWarnings (0) 20241030.mdb
  15. ممكن تستخدم متغير tempvars مثل tempvars!username = اسم المستخدم وده ضعهدداخل الاجراء لما يكون اسم المستخدم وكلمة المرور صحيحه وبعدها حط tempvars! username فى اى ماكن تريد يظهر قيمته فيها
  16. طيب هو بياخد التواريخ من اين؟ انت شايف النتيجه؟ راجع المعطيات هتحل المشكله ان شاء الله
  17. السلام عليكم عندي هذه المعادلة وهي = =G14*E14 وطبعا الناتج احيانا لا يكون رقم صحيح .. كيف اضيف عليه حتى يصبح رقم صحيح بالزيادة وليس النقص كمثال اذا كان الناتج : 1.50 مثلا اريده ان يكون 2
  18. المتغيرين d1وd2 هما عبارة عن تاريخين والكود يبحث التواريخ بينهما
  19. السلام عليكم أساتذتنا الكرام احتاج مشورتكم الكريمة يوجد قاعدة بيانات المطلوب عند ادخال اسم المستخدم وكلمة السر يقوم بأخذ اسم المستخدم واصافته في خانة مقيد الدعوي بحيث اعرف من هو الذي قام بالقيد بس مش عارف ارفع الملف لان حجمة 4 ميجا فرفعته صور خانة مقيد الدعوي عايز يظهر فيها اسم المستخدم اللي قام بالدخول شكرا جدا لكم
  20. السلام عليكم مساعدة عند بحث بالسنة ورقم العقد والوضعية في tabl1 يفتح لي على سجل في نموذج tabl وشكرا مثال.accdb
  21. حفظك الله استاذ محمد ورحم الله والديك اسف انا ماقدرت اوصل طلبي بشكل صحيح .. انا اريد لكل شهر واخر العام للسنه كامله يعني ادخل التاريخ يدوي من والى بالاضافه الى حقل الاجراء ما يكون فاضي واسف مرة اخرى تقبل اجمل تحية
  22. الاستاذ كريم حضرتك لم تنتبه لهذه النقطه شوف بعد ما جربت اشغل الكود وحبيت اعرف الاكسيس شايف ايه جو المتغيرات طلعت لى النتيجه صدمه المفترض ان المتغيرات تحمل تاريخ لكن واحد يحمل قيمة نصية والاخر لا يحمل قيمه يبقي الكود هيشتغل ازاي
  23. تفضل هل هذا ما تريد الاستعلام Qza2 مثال.rar
  1. أظهر المزيد
×
×
  • اضف...

Important Information