ابوآمنة

والعكس تحويل القيم السالبة إلى موجبة ؟
 
حصلت 
دالة تحويل القيم السالبة إلى موجبة 
ABS([القيمة])  

تابع هذا الموضوع
 

تفضل يا دكتور حلبي إن شاء الله يكون المطلوب 
ممكن التحكم في السرعة من مربع النص 
Call him(Me, Speed) الوحدة النمطية 
Public Function him(FRM As Form, x As Integer) On Error Resume Next FRM.BRBar.Visible = True Dim z As Integer DoCmd.SetWarnings False FRM.BRBar.Max = x For z = z To x FRM.BRBar.Value = z Next z FRM.BRBar.Visible = False End Function  
تول بار.accdb

تفضل أخي فايز
بعد التعديل
لعله يكون استكمالاً لما تريده
Posters4.zip

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

تفضل أخي بلال 
شاهد هذا الموضوع :
 

إضافة قائمة فرعية.zip
تفضل هذه محاولة مني لعلها تنفعك .
وبالتوفيق

يصبح الكود هكذا 

بناء على مقترح الأخ الكريم محمد البرناوي 
بإمكان المستخدم  الآن تحديد عدة صور وتحويلها إلى pdf مع نقل جميع الصور إلى مجلد البرنامج آلياً .
 
PDFv20.2.zip

تفضل 
إن شاء الله يكون هذا المطلوب .
وهذه الدالة المستخدمة
المجموع: 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
للمعلومية : العمل داخل الاستعلام يلزم التحديث كل مرة لترى النتائج  .

تفضل يا أخي بلال 
القائمة.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  

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

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

أخي بلال 
تفضل الآن بإمكانك تصدير واستيراد بيانات الموظف من القائمة والتعديل على ملف  الاكسيل واستيراد  التعديلات على ملف الموظف .
كما ذكرت لي في الرسالة الخاصة لك . 
وبالتوفيق 
آمل التجربة وإخباري بالنتائج 
استراد وتصدير.accdb

ستجد بإذن الله تعالى حلك في هذه المشاركة 
 

جرب 
Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label1.Caption = Me.Text0.Name Me.Text0 = Me.Text0.Name End Sub  

تفضل
أخي عبداللطيف 
تجربة متعددة.accdb

تفضل
غيرنا هذا السطر فقط 
varFilter = "[barcode] = " & Me.xx & "" الكود السابق
varFilter = "[barcode] LIKE '*" & Me.xx & "*'" وأيضا تم الاكتفاء بكود واحد
search.accdb
علماً أن قاعدتك أنشأتها في إصدار حديث يقبل الرقم الكبير في الجدول ولن يستطيع من لديه إصدار أقل مشاهدة البرنامج .

وعليكم السلام
ألقي نظره على هذا الموقع الأجنبي  ( سورس كود مجاني ) وحفظ فلوسك 😅
https://www.sourcecodester.com/microsoft-access

من خصائص الحقل كما في الصورة :
 

ومشاركة مع الزملاء
الكود
Private Sub znumbers_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("wared") Rs.MoveFirst Do Until Rs.EOF If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation Me.Undo Cancel = True End If Rs.MoveNext Loop Set Rs = Nothing End Sub  
نظام وارد.saleh101.accdb

تفضل
Library.rar

وعليكم السلام 
إذا كان الزبون يستخدم نسخة 2019 أو 365 
يحتاج تحديث فقط 

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

استمر أخي وحبيبي
عبداللطيف
صاحب القلب الطيب  
أنت مبدع