محمد أبوعبدالله

وعليكم السلاك ورحمة الله وبركاته استخدم الكود التالي في حدث في الحالي Private Sub Form_Current() If Me.lable.Value > 80 Then pic.Visible = True Else pic.Visible = False End If End Sub

اين ؟

بالتوفيق اخي الكريم تحياتي

السلام عليكم تفضل اخي الكريم تحياتي Allijan0016_2.rar

تقوم بعد الحروف فى مربع نص

بالتوفيق اخي الكريم تحياتي

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

طبيعي ان تكون الارقام غير مسلسلة لانك تعتمد على حقل نص والافضل عموما لقواعد البيانات بغض النظر عن الترقيم التليقائي ان يكون في الجدول حقل مفتاح اساسي تفضل اخي الكري المرفق بعد التعديل UP_قاعدة البيانات - نسخة.rar تحياتي

السلام عليكم ورحمة الله وبركته مرحبا اخي الكريم بداية الافضل لقاعدة البيانات ان تكون المرفقات بجوار البرنامج وليس مدمجة في قاعدة البيانات لعدم تكبير القاعدة البيانات بدون فائدة كبيرة لذا اضفت حقل باسم Attachments في الجدول وقمت باضافة الكود الخاص باضافة مرفقات من الكمبيوتر والكود الخاص استعراض مجلد المرفقات فيرجاء التجربة واعلامي بالنتيجة Private Sub cmd_Open_desktob_Click() On Error Resume Next Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "AttachmentX" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation, "Acoade 2019" End If End If If Len(المجال & "") = 0 Then MsgBox "حفل اسم المرفق فارغ", vbExclamation, "Acoade 2019" Else Dim Fpath As Variant Dim Fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "Add Files", "*.png, *.jpg, *.jpeg, *.pdf, *.doc, *.docx" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Fpathz = .SelectedItems(1) Dim varFile As Variant For Each varFile In .SelectedItems Me.Attachments = Application.CurrentProject.Path & "\" & "AttachmentX" & "\" & [الرقم] & "_" & [الجهة] & "_" & [المجال] & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.Attachments Next End If End With End If End Sub Private Sub cmd_browse_folder_Click() On Error Resume Next Dim sFolder As String With Application.FileDialog(3) .InitialFileName = Application.CurrentProject.Path & "\" & "AttachmentX" If .Show = -1 Then sFolder = .SelectedItems(1) End If End With End Sub محفوظات1.rar تحياتي

ستحتاج الى عرض رساله تختار منها ما تريد Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox(" هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then Me.Undo End If End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته مثال لو تكرمتم حتى يتم التعديل بما يناسب بياناتك تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم البيانات.rar تحياتي

استخدم الكود التاالي Private Sub Form_BeforeUpdate(Cancel As Integer) Me.Undo End Sub xy11.rar

وعليكم السلام ورحمة الله وبركاته مثال لو تكرمتم حتى يتم التعديل بما يناسب بياناتك تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل هذين الحقلين = غير منضم = بدون مصدر بيانات تحياتي

وعليكم السلام ورحمة الله وبركاته ما شاء الله كود ولا اجمل ولا اسرع اسرع من هذا الكود !!! انظر المرفق اضفت 51412 سجل ولم اجد بطء نهائياً XX7.rar تحياتي

في الاستعلام م : DCount("[الاسم]";"كشف بالاسماء";"[الاسم] <='" & [الاسم] & "'") في النموذج م = DCount("[الاسم]","كشف بالاسماء","[الاسم] <='" & me.الاسم & "'") وهذا sql الاستعلام SELECT [كشف بالاسماء].الاسم, DCount("[الاسم]","كشف بالاسماء","[الاسم] <='" & [الاسم] & "'") AS م FROM [كشف بالاسماء]; تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي ([A].[B]=me.C) تحياتي

السلام عليكم تفضل اخي الكريم If MsgBox("سيتم حذف الغير مسدد عل تريد الاستمرار", vbYesNo, "تأكيد العملية") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tab2.*, tab2.مبلغ_الدفع FROM tab2 WHERE (((tab2.مبلغ_الدفع) Is Null));" DoCmd.SetWarnings True End If del.rar تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم جرب الكود التالي م = DCount("[الاسم]"; "[كشف يالاسماء]"; "[الاسم] >='" & me.الاسم & "'") تحياتي

قم بتعديل الكود للزر الجديد كالتالي If IsNull(Me.XX1) Or IsNull(Me.XX) Then DoCmd.GoToControl "XX1" MsgBox "XX1C IS EMPTY" Else myCriteria = "[B]= " & Me.XX myCriteria = myCriteria & " AND " myCriteria = myCriteria & "(" myCriteria = myCriteria & "[C]= " & Me.XX1 myCriteria = myCriteria & ")" Me.Filter = myCriteria Me.FilterOn = True End If XX1.rar تحياتي

بالتوفيق اخي الكريم تحياتي

انا اسف جدا كنت اقصد العكس تحتاج فقط الى استخدام Sum بدلا من Group By كما بالصور تحياتي

اذا كنت تقصد هذا تفضل هذا التعديل عشوائى.rar تحياتي

هل تقصد ان يتم عمل ترتيب عشوائي في كل مرة يفتح النموذج ؟