ابوآمنة

أقول باختصار: أنت كنز عظيم للموقع اخي @jjafferr وبارك الله فيك وزادك الله من فضله

تم التجربة عمل رائع تشكر عليه جزاك الله من خيري الدنيا والآخرة

في خدمتك أخي لا أعلم كيف التعامل مع حقل من نوع OLE

لا شكر على واجب طريقة تحويل المؤشر إلى يد هي خصائص الحقل تذهب إلى تنسيق ثم تفعل اتباط تشعبي إلى نعم فقط يظهر المؤشر مع تفعيل الارتباط التشعبي

جرب المرفق الآنexa 6.rar

احب اشارك معكم ما ممرت به من تجربة اعتقد هي الأكواد المكتوبة بغير الإنجليزية اترك عنك الرسائل تتأثر بلغة جهاز الويندوز جرب تغيير اللغة إلى إنجليزية

إرسال بدون أوت لوك

جرب الآن . Option Explicit #If VBA7 Then Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #Else Public Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 2) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 9) End Sub هذه الوحدة النمطية موافقة لإصدار 32 و 64 الاختبار تعديل ياسر.accdb

جرب الآن برنامج.accdb

Dim myDb As DAO.Database Dim MyRs As DAO.Recordset Dim myfld As DAO.Field Dim i As Variant Set myDb = CurrentDb() Set MyRs = myDb.OpenRecordset("Table1") MyRs.MoveFirst Do While Not MyRs.EOF MyRs.Edit For Each myfld In MyRs.Fields If myfld.Name = "Girlid" Then If MyRs(myfld.Name).Value <> "" Then i = MyRs(myfld.Name).Value Else MyRs(myfld.Name).Value = i MyRs.Update End If End If Next myfld MyRs.MoveNext Loop kanory أخي الكريم : هل بالإمكان شرح الكود المستخدم حتى نتعلم منه

تم إجراء بعض التعديلات برنامج_2.rar

Dim RSB As DAO.Recordset Dim RSD As DAO.Recordset Set RSB = CurrentDb.OpenRecordset("Temp4", 2) Set RSD = CurrentDb.OpenRecordset("tbl_Classes", 2) Dim I As Integer, ClassDay As String, BM Do Until RSB.EOF '-- fine logic for retrive record If RSB!f2 Like "*/*" Then BM = RSB.Bookmark If Not IsNull(RSB!f1) Then ClassDay = RSB!f1 For I = 2 To RSB.Fields.Count - 2 If Not IsNull(RSB(I).Value) Then RSD.AddNew '-- day name RSD!Week_Day = ClassDay '-- class # RSD!Class = I - 1 '-- row 1 RSD!Branch = Split(RSB(I).Value, "/")(0) RSD!subject = Split(RSB(I).Value, "/")(1) '-- row 2 RSB.MoveNext RSD!Teacher = RSB(I).Value '-- row 3 RSB.MoveNext RSD!Hall = RSB(I).Value RSD.Update RSB.Bookmark = BM End If Next End If RSB.MoveNext Loop أبو إبراهيم الغامدي ما شاء الله تبارك الله كود صغير الحجم كبير النفع تشكر على هذه الجهود الرائعة ، ممكن طلب : إذا تيسر لك الوقت أن تتفضل علينا بشرح الكود حتى نتعلم منه . بالذات هذه العبارة RSB.MoveNext

جرب الآن ... ask (1).rar

ask.rar تم التعديل نستخدم الفاصلة ( , )ف ي محرر الفيجوال بيسك : =DateAdd("y",365*[org_election_period],[org_election_date]) أما في داخل النموذج والاستعلام نستخدم الفاضلة المنقوطة ( ; ) : =DateAdd("y";365*[org_election_period];[org_election_date])

أفكار رائعة باستخدام لغة HTML وربطها بالأكسس نريد أن تكون هناك مواضيع كثيرة باستخدام هذه اللغة وأنا معجب في اعمالك وآخر عمل رأيته عندما صممت نظام الشقق بنفس اللغة بارك الله فيك واننظر جديدك

اسال الله العظيم رب العرش العظيم ان يشفيك شفاءا لا يغادر سقما وان يتمم عمليتك الجراحية على خير وان يردك الى اهلك سالما معافا باذن الله وان يبلغك رمضان اعواما عديدة وان يجعل كل مساعدتك لاخوانك بالمنتدى فى ميزان حسناتك والله ولى ذلك والقادر عليه

شكرا أخي وائل على الشرح الرائعة والمختصر

ما هي الإعدادات الخاصة بتقليص الفراغ الموجود بأعلى وأسفل الفاتورة ؟ لدي نفس المشكلة عندما أرسل البرنامج لأحد العملاء تختلف المقاسات وتزيد بعض الفراغات من الأعلى والأسفل .

Set rs = CurrentDb.OpenRecordset("tbl_names"): rs.MoveFirst DoCmd.SetWarnings False For i = t1 To t2 If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday,xname) values('" & i & "','" & Format(i, "dddd") & "'," & rs(0) & ")" If DLast("id", "tbl_names") = rs(0) Then rs.MoveFirst Else rs.MoveNext End If Next i DoCmd.SetWarnings True ما شاء الله تبارك الله الأمور زي الحلاوة

شكرا جزيلا من الأعماق سأجرب إذا عدت للمنزل بمشيئة الله تعالى

تابع موضوعه الجديد

أضفت في القاعدة المطلوب وباقي تتفضل علينا بلمساتك الرمهانية saleh2.accdb

كودك سيفتح لي آفاق كثيرة وسأتعلم منه بمشيئة الله تعالى.

DoCmd.SetWarnings False For i = t1 To t2 If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday) values('" & i & "','" & Format(i, "dddd") & "')" Next i DoCmd.SetWarnings True ما شاء الله تبارك الله قمة في الإبداع والاحتراف شكراً هو المطلوب لقد نفست كربة عن أخيك هل بالإمكان إضافة حقل لأشخاص يتكررون كل خمسة مرات : مثل : رمهان= الخميس ، صالح = الجمعة ، مشعل = الخميس ، فهد = الجمعة ، سالم = الخميس ويعيد من جديد على نفس هذه الأشخاص حتى انتهاء الفترة المحددة

شكرا لردك أستاذي الفاضل بين فترتين حتى يكون هناك حرية في الوقت