كل الانشطه
- Today
-
ابوخليل started following البحث في نموذج ادخال الدرجات
-
تفضل 3تعديل بالنشاط.rar
-
حوار ✨ إستفسار بخصوص وميض وفلاش عند تحريك صورة في نموذج ✨
Foksh replied to Foksh's topic in قسم الأكسيس Access
تمت التجربه مسبقاً وكانت نفس النتيجة للأسف 😬 -
العضو @elmozy525 هو الشيخ صلاح الموزي حفظه الله عندكم في مصر وقد اكملت البرنامج مع الشيخ وطورناه سويا خارج المنتدى وأعتقد انهم يعملون عليه الآن لا يحضرني عنوان الشيخ ولعل يصل اليه هذا الاشعار .. فيتواصل معك
-
((( folks ))) started following مساعدة فى كود vba
-
السلام عليكم ورحمة الله وبركاته عند فتح الفورم بالأوفيس 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
-
اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند الفتح يظهر نموذج به زر ادخال الدرجات عند الضغط عليه يفتح نموذج به قوائم منسدلة عند اختيار الفصل الدراسي والسنة الدراسية والصف ( مثلا الصف الخامس )والمجموعة والمادة تظهر درجات الطلاب . محتاج اضيف قائمة منسدلة بالاسم ورقم الجلوس والرقم السري بحيث عندما أريد تعديل درجة معينة لطالب ممكن ابحث بالاسم أو رقم الجلوس أو الرقم السري ولكم جزيل الشكر ووافر الاحترام2تعديل بالنشاط.accdb
-
السلام عليكم ورحمة الله وبركاتة رجاء مساعدتى فى 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
-
اضف زر فى نموذج 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
-
UserUser2 started following تكرار فتح نموذج تلقائى
-
هذا الموضوع لاستاذنا الفاضل @ابوخليل محتاج انفذه على الاكواد دى كيفيه عمل ذلك 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
-
احتاج الى بعض التعديلات فى البرنامج هل ممكن
-
ارفع ملف للعمل عليه مع توضيح اين تريد ان يظهر القيمه
-
التعديل على دالة DLookup او استبدالها بدالة اخرى
عمر ضاحى replied to كريمو2's topic in قسم الأكسيس Access
وهنا اعطيك حل للما سبق ذكره 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]));" ده بس انتبه ان لا يستخدم المتغير فى شئ اخر غير التاريخ ولازم تعلن عنه وغير كده انا شايف ان المتغيرات هنا ما لها لزمه معاك -
التعديل على دالة DLookup او استبدالها بدالة اخرى
كريمو2 replied to كريمو2's topic in قسم الأكسيس Access
اتعبتك معي استاذي العزيز الم تلاحظ ان البحث كان ينفذ عادي قبل الكود الاخير لجملة الـ strSQL 'FormatDate d1 = Format(Me.Date_First, "MM/dd/yyyy") d2 = Format(Me.Date_End, "MM/dd/yyyy") -
التعديل على دالة DLookup او استبدالها بدالة اخرى
عمر ضاحى replied to كريمو2's topic in قسم الأكسيس Access
اخي الحبيب كريم يبدو ان هناك شئ فهم او تقصير مني الاكسيس برنامج يقوم زيه زي اى برنامج له اجراءات يقوم بتنفيذها حسب ما انت وضعتها انت توريني صور للجدول لكن الاكسيس كيف هيعرف ان الثالث الاول هو التاريخ من الى لازم تعرف ده باى وسيه والاسهل ليك ان تقوم بوضع حقلين لهذه الفتره وانت بالفعل عامل كده لكن المشكلة ان انت بالفعل معلن عن المتغير D1 وهو بيستخدم فى اجراءات اخري وبيحمل قيمة نصيه الحل اما تلغي موضوع المتغيرات وتضع مسار حقل التاريخ مباشرة او انك تعلن عن متغيرين جديد وانا افضل الحل الاخر وايضا افضل استخدام دالة Format علشان توحد صيغة التاريخ وميحشلش مشكلة -
ممكن توضح اكتر اعملها ازاي بالتفصيل
-
التعديل على دالة DLookup او استبدالها بدالة اخرى
كريمو2 replied to كريمو2's topic in قسم الأكسيس Access
انظر الصورة فلربما يتضح لك شيء والمعلومات الي عليها مربع احمر من جدول 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 -
جبر نتيجة القسمة في الكسور بان يكون رقم صحيح
عبدالله بشير عبدالله replied to awad1111's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته =CEILING(G14*E14; 1) بالتوفيق -
ممكن تستخدم متغير tempvars مثل tempvars!username = اسم المستخدم وده ضعهدداخل الاجراء لما يكون اسم المستخدم وكلمة المرور صحيحه وبعدها حط tempvars! username فى اى ماكن تريد يظهر قيمته فيها
-
التعديل على دالة DLookup او استبدالها بدالة اخرى
عمر ضاحى replied to كريمو2's topic in قسم الأكسيس Access
طيب هو بياخد التواريخ من اين؟ انت شايف النتيجه؟ راجع المعطيات هتحل المشكله ان شاء الله -
السلام عليكم عندي هذه المعادلة وهي = =G14*E14 وطبعا الناتج احيانا لا يكون رقم صحيح .. كيف اضيف عليه حتى يصبح رقم صحيح بالزيادة وليس النقص كمثال اذا كان الناتج : 1.50 مثلا اريده ان يكون 2
-
التعديل على دالة DLookup او استبدالها بدالة اخرى
كريمو2 replied to كريمو2's topic in قسم الأكسيس Access
المتغيرين d1وd2 هما عبارة عن تاريخين والكود يبحث التواريخ بينهما -
mohamed_ashour started following بيانات
-
السلام عليكم أساتذتنا الكرام احتاج مشورتكم الكريمة يوجد قاعدة بيانات المطلوب عند ادخال اسم المستخدم وكلمة السر يقوم بأخذ اسم المستخدم واصافته في خانة مقيد الدعوي بحيث اعرف من هو الذي قام بالقيد بس مش عارف ارفع الملف لان حجمة 4 ميجا فرفعته صور خانة مقيد الدعوي عايز يظهر فيها اسم المستخدم اللي قام بالدخول شكرا جدا لكم
-
السلام عليكم مساعدة عند بحث بالسنة ورقم العقد والوضعية في tabl1 يفتح لي على سجل في نموذج tabl وشكرا مثال.accdb
-
حفظك الله استاذ محمد ورحم الله والديك اسف انا ماقدرت اوصل طلبي بشكل صحيح .. انا اريد لكل شهر واخر العام للسنه كامله يعني ادخل التاريخ يدوي من والى بالاضافه الى حقل الاجراء ما يكون فاضي واسف مرة اخرى تقبل اجمل تحية
-
التعديل على دالة DLookup او استبدالها بدالة اخرى
عمر ضاحى replied to كريمو2's topic in قسم الأكسيس Access
الاستاذ كريم حضرتك لم تنتبه لهذه النقطه شوف بعد ما جربت اشغل الكود وحبيت اعرف الاكسيس شايف ايه جو المتغيرات طلعت لى النتيجه صدمه المفترض ان المتغيرات تحمل تاريخ لكن واحد يحمل قيمة نصية والاخر لا يحمل قيمه يبقي الكود هيشتغل ازاي -
محمد احمد لطفى started following طلب استعلام بشروط ثلاثه
-
تفضل هل هذا ما تريد الاستعلام Qza2 مثال.rar