-
Posts
2,189 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
133
kanory last won the day on فبراير 3
kanory had the most liked content!
السمعه بالموقع
4,136 Excellentعن العضو kanory
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
معلم
اخر الزوار
7,247 زياره للملف الشخصي
-
طيب ممكن نستخدم هذه الطريقة .... ولكن يبقى ايضا نقطة مربعات التسمية وعددها في النموذج ؟؟؟؟؟ Dim db As Object Dim rst As DAO.Recordset Dim mySQL As String Dim i, m As Integer mySQL = "SELECT DISTINCT جدول1.[اسم العامل], DSum(""راتب"",""جدول1"",""[اسم العامل] ='"" & [اسم العامل] & ""'"") AS Expr1 FROM جدول1;" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst If Not rst.BOF Then rst.MoveFirst Dim ctl As Control For i = 1 To rst.RecordCount Me.Controls("a" & i).Caption = "مجموع" & " " & rst.Fields(0) Me.Controls("b" & i).Caption = rst.Fields(1) rst.MoveNext Next i rst.Close Set rst = Nothing مثال (5).accdb
-
جرب المرفق ..................... New Microsoft Access Database (9).accdb
-
معيار داخل استعلام يرجع بالتواريخ 5 إيام للوراء
kanory replied to Abdelaziz Osman's topic in قسم الأكسيس Access
انا اعتذر منك على المواصلة ..... -
معيار داخل استعلام يرجع بالتواريخ 5 إيام للوراء
kanory replied to Abdelaziz Osman's topic in قسم الأكسيس Access
جرب هذا ........ Private Sub Order_No_AfterUpdate() D_R = DateAdd("d", -3, Date) On Error GoTo Errw DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.supplier = "مرفوض" And Me.mark = 0 And Format(Me.inday, "dd/mm/yyyy") <= Format(D_R, "dd/mm/yyyy") And IsNull(Me.P_Odate) Then DoCmd.GoToRecord , , acLast DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Me.Order_No.SetFocus MsgBox "لايمكن اضافة جديد" Exit Sub Else Me.Order_No.SetFocus End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: End Sub -
اختيار حقول مختلفه تظهر في التقرير برمجيا
kanory replied to تامر خليفه's topic in قسم الأكسيس Access
تغضل طبق على مثالك -
واياك اخي الكريم
-
معيار داخل استعلام يرجع بالتواريخ 5 إيام للوراء
kanory replied to Abdelaziz Osman's topic in قسم الأكسيس Access
عشان كده انا سئلتك هنا هذا السؤال وحصلت منك على اجابه مختصرة وبخيلا فيها لا تفيد سؤالي قلت اضع لك اجابة وعندما تجرب تضطر الى استخراج اجابات مطولة . كما حصل الان .. طيب ممكن طبعا ... جاري التعديل ولكن عندما اعود الى المكتب ... بارك الله فيك -
-
معيار داخل استعلام يرجع بالتواريخ 5 إيام للوراء
kanory replied to Abdelaziz Osman's topic in قسم الأكسيس Access
راجع المرفق وتأكد فقط الان من الشروط الاربعة هل تحققت .......... Datab (officena).accdb -
فقط المحدد ..... جرب
-
تفضل .... Private Sub Command6_Click() If CheckA.Value = True Then DoCmd.OpenReport "Report1", acViewPreview End If If CheckE.Value = True Then DoCmd.OpenReport "Report4", acViewPreview End If If CheckC.Value = True Then DoCmd.OpenReport "Report2", acViewPreview End If If CheckD.Value = True Then DoCmd.OpenReport "Report3", acViewPreview End If End Sub
-
معيار داخل استعلام يرجع بالتواريخ 5 إيام للوراء
kanory replied to Abdelaziz Osman's topic in قسم الأكسيس Access
هل تسلسل السجل الظاهر لدينا في الصورة دائما اول سجل ام هناك اختلاف في تسلسله ( اقصد الان ظاهر كاول سجل ... هل ممكن ان يكون في مرات اخرى ثان او ثالث سجل مثلا ) -
طيب شوف كدة ..... بداية ... kan_1.accdb