kanory

بالعكس استاذي حسام .. انت استطعت فهم مايريد باي طريقة ... تستحقها بارك الله فيك ..

لعل الموضوع هذا يفيدك -------->>>>>

هذه طريقة اخرى -------->>>>> والطرق كثيرة كما خطرة فكة ممكن عملها ... test-5.accdb

هل هذا هو المطلوب -------->>>> kan_3987.accdb

تفضل -------->>> test-5.accdb

امين واياك .... جزاك الله خيرا على الدعوات الطيبة منك يا طيب ..... هذا ما نحتاجه

تفضل --------->>>>>>> تجربة_(0).accdb

جرب ...... Select Case Me.المجموع1 Case Is < 31 Me.نص45 = 1 Case Is < 61 Me.نص45 = 2 Case Is < 91 Me.نص45 = 3 End Select

ممكن كفكرة : تعمل تقريرين فرعيين ( للاستعلام بحث - والاستعلام بحث_وارد ) ثم تضيفهم في التقرير واحد ... بحيث يمكنك تنسيق التقريرين كما تريد ملاحظة البيانات الموجودة في التقرير كثيرة .... لذلك يمكن جعل التقرير غير منضبط أي غير جدولي

مشاركة مع اخي @ابو البشر مشكلة الجمع.accdb

ممكن مثال مصغر ...

ما شاء الله تبارك الله اهلا @ابا جودى نورت المنتدى

حياك الله اخي @الشربيني 123 واياك

نعم بحسب التسلسل المنطقي لتنفيذ الاوامر ترتب تحت بعضها البعض

شكرا لك اخ فتح .....

نعم عادي مافيها شيئ DoCmd.Close acForm, "AT" DoCmd.Maximize

استخدم هذا ..... Dim q As Integer q = z If Me.v = q Then MsgBox "error1" Else MsgBox "error2" End If

واياك .... حياك الله

حياك تشرفنا ......🌺

منور استاذ احمد فينك لك وحشة .... عساك بصحة وعافية

طيب ضع الفانك هذا في وحدة نمطية Function Seperate_Digits(T As String) As String Dim i As Integer Dim C As String Dim Which_Letter As String If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) C = Asc(Mid(T, i, 1)) Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function ثم ضع الكود التاليى تحت حدث الزر On Error Resume Next Dim s As String, x As Integer s = "GRN" x = Seperate_Digits(Me!FATORA_NO) Me!FATORA_NO = Format(s & Str(x) + 1, "000") وافينا بالنتيجة

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

انظر الاستعلام النهائي .... 3733 (1).accdb

انشئ قاعدة جديدة وصمم نموذج وبه زر وضع تحت حدث عندالنقر على الزر هذا الكود ..... Dim objAcc As Access.Application Set objAcc = GetObject("C:\Users\ACER\Desktop\data1.accdb") objAcc.DoCmd.OpenQuery "Qre1" objAcc.Application.Quit Set objAcc = Nothing

تحت حدث عند الضغط على الزر لديك ضع هذا الكود 'Me.[FATORA_NO] = [FATORA_NO] + 1 On Error Resume Next DoCmd.RunCommand acCmdRecordsGoToNew Dim s As String, x As Integer s = "GRN" x = DCount("*", "101") + 1 Me!FATORA_NO = Format(s & Str(x), "000")