ابوآمنة

أقدم لكم هدية متواضعة عبارة عن برنامج لتحويل الصور إلى pdf بطريقة سهلة وبدون برامج خارجية مع الشكر لكل من استفدت من أكوادهم . PDF.zip

لا تنس اختيار الإجابة

رائع جداً 😘

ويضاً قناة حسونة أكاديمي على الرابط https://www.youtube.com/user/HassounaAcademy/playlists

وهذا أفضل تقرير مع إجمالي الوارد وإجمالي الصادر وصافي الرصيد المخزون.zip

تفضل ملف مضغوط لتقليل الحجم القائمة والمربع (2).zip

موضوع شيق و يفتح الشهية ويبقى أكسيس هو العشق لكن في الأونة الأخيرة طلب العملاء يتجه إلى البرامج التي تتصل بالانترنت كما أكد ذلك زملائي ، لكن تكلفتها عالية من استضافة ، ودومين ، وتجديد سنوي . مع ذلك من لديه الرغبة بتعليم شيء جديد اقرب شيء في وجهة نظري لمبرمجي اكسيس لغة vb.net أو #C من مايكروسوفت مع تقنية asp.net ونستطيع ربط موقع كامل بقاعدة بيانات أكسيس أو sql server أو .... داخل الشبكة وخارجها ولتشغيل الموقع داخل الشبكة يلزم تثبيت iis وهو استضافة مواقع الويب على سيرفرات ويندوز . أيضاً لتعلم لغات الويب لا بد من تعلم html ، css ، javascript . مشوار طويل وأنا مبتدئ في هذا المجال الجميل . لذا ابحث عن شخص ملم بإطار الويب asp.net ومستعد لتعليم الناس لمقترح فتح قسم باسم asp.net في منتدانا الحبيب . وهذا موجه للإدارة إن رأت من يتوفر فيه هذه السمات .

تفضل تم استخدام الكود التالي :- On Error Resume Next Me.txt1 = Null Dim i As Integer Dim RC As Integer Dim rst As Variant Set rst = CurrentDb.OpenRecordset("SELECT * From [البيانات] WHERE [نوع السكون] =" & Me.المهارات & "") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Me.txt1 = Me.txt1 & " " & rst![النص] rst.MoveNext Next i Set rst = Nothing القائمة والمربع.accdb

ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة

صحيح هناك خطأ مطبعي في استعلام القائمة [Formulaires]![show]![maharat] الصحيح [Forms]![show]![maharat]

وهذا مثال في النموذج لتحديث عمليات العد والجمع DSUM&DCOUNT.accdb

تفضل إن شاء الله يكون هذا المطلوب . وهذه الدالة المستخدمة المجموع: IIf([CHK]=True;DSum("[NUMBER]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) العدد: IIf([CHK]=True;DCount("[CHK]";"[Q1]";"[ID] <= " & [ID] & " and CHK=True");0) DSUM&DCOUNT.accdb للمعلومية : العمل داخل الاستعلام يلزم التحديث كل مرة لترى النتائج .

تفضل فقط قمت بتغيير مصدر سجلات القائمة إلى الحقل نوع السكون. إن شاء الله يكون هذا ما تريد . القائمة والمربع.rar

Public Const regpath As String = "HKEY_CURRENT_USER\software" ضيعني هذا السطر شكراً لك على التنبيه لكن هل هو متغيير أم ثابت Const

عن إذن أستاذي ومعلمي صالح تفضل 3333.accdb طبعاً الشفرة تسجل في الريجستري regedit

تفضل يا أخي بلال القائمة.zip

الحمدلله

الكود بعد وضع كود تجاوز الخطأ جرب الآن Sub AuditChanges(IDField As String, UserAction As String, UsedForm As Form) 'كود تجاز الخطاء ' On Error Resume Next Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim ctl As Control Dim datTimeCheck As Date Dim strUserID As String Set cnn = CurrentProject.Connection Set rst = New ADODB.Recordset rst.Open "SELECT * FROM revision", cnn, adOpenDynamic, adLockOptimistic datTimeCheck = Now() strUserID = Environ("USERNAME") Select Case UserAction Case "EDIT" For Each ctl In UsedForm.Controls If ctl.Tag = "Audit" Then If Nz(ctl.Value) <> Nz(ctl.OldValue) Then With rst .AddNew ![DateTime] = datTimeCheck ![UserName] = strUserID ![FormName] = UsedForm.name ![Action] = UserAction ![RecordID] = UsedForm.Controls(IDField).Value ![FieldName] = ctl.ControlSource ![OldValue] = ctl.OldValue ![NewValue] = ctl.Value .Update End With End If End If Next ctl Case "DELETE" For Each ctl In UsedForm.Controls If ctl.Tag = "Audit" Then With rst .AddNew ![DateTime] = datTimeCheck ![UserName] = strUserID ![FormName] = UsedForm.name ![Action] = UserAction ![RecordID] = UsedForm.Controls(IDField).Value ![FieldName] = ctl.ControlSource ![OldValue] = ctl.Value .Update End With End If Next ctl Case Else For Each ctl In UsedForm.Controls If ctl.Tag = "Audit" Then If Nz(ctl.Value) <> Nz(ctl.OldValue) Then With rst .AddNew ![DateTime] = datTimeCheck ![UserName] = strUserID ![FormName] = UsedForm.name ![Action] = UserAction ![RecordID] = UsedForm.Controls(IDField).Value ![FieldName] = ctl.ControlSource ![NewValue] = ctl.Value .Update End With End If End If Next ctl End Select rst.Close cnn.Close Set rst = Nothing Set cnn = Nothing Exit Sub End Sub

انقل الكود فقط تم تعطيل رسالة الخطأ فقط

تفضل واخبرني بالنتائج copy.zip

حياك أخي اشرف كلنا تستفيد من بعض و يا ليتك وضعت مشاركتك ليختار الاخ الانسب له وأيضا هي إثراء للموضوع .

تفضل أضفنا أمر DELETE في الوحدة النمطية ووضعنا الأمر عند الحدث في النموذج . copy.accdb

تفضل إن شاء الله يكون هذا المطلوب المخزون.accdb

شاهد هذا الموضوع

ما شاء الله تبارك الله برنامج رائع ومتعوب عليه سلمت يمينك وفكرك الراقي .