Shivan Kurdi - شڤان کوردی

اتفضل جرب الان الشقق.rar

اتفضل البحث بدون تشكيل-2.rar

هل قصدك بهذا السطر [Forms]![Trans_top10]![Transaction subform].[Form]![Text46] = [Forms]![Trans_top10]![Transaction subform].[Form]![Out] - 200 انك تريد عند الحاق النتيجة حقل Out الى جدول Transactions تريد ان ينقص 200 وبعدين يلحق الى الجدول ؟

اتفضل انا فقط غيرت مصدر التقرير ومصدر مربع نصي للايات و الحديث اليك المرفق بعد تعديل البحث بدون تشكيل-2.rar

الان وصلت الفكرة اليك حل افضل بكثير من طريقتك عملت لك هذه الاستعلا الالحاق INSERT INTO Transactions ( Doc, Code, Item, Out, Notes ) SELECT [Forms]![Trans_top10]![Transaction subform].[Form]![Invoice] AS Doc, Order_Sub.Code, Order_Sub.Item, [Forms]![Trans_top10]![Transaction subform].[Form]![Out] AS Out, Order_Sub.Notes FROM Order_Sub WHERE (((Order_Sub.ID)=[Forms]![Trans_top10]![Combo0])); وفي خلف زر استخدمت هذا الكود Private Sub Command95_Click() Me.Transaction_subform.SetFocus DoCmd.SetWarnings False DoCmd.OpenQuery "q1", acViewNormal DoCmd.SetWarnings True End Sub اليك ملفك بعد تعديل Pro.rar

انا نزلت المرفق لكن هناك سؤال لماذا تريد ان تنسخ السجلات النموذج الفرعي الى نموذج الاخر ما هو السبب ؟ ما الفائدة للنموذج الثاني ؟ تريد توصل على اي شيء ؟

هنا في المنتدى سنكون معاً ان شاء الله

ما رأيك بهذا mohamed13.rar لا اعلم بالضبط ماذا تريد لكن اليك هذا ايضا mohamed13.rar

تريد لأي نموذج هذه العملية اخي ؟ وتريد ان يشتغل اي كود لكل سجلات ؟

اتفضل اليك هذا الكود Private Sub Command0_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllForms If obj.IsLoaded = True And obj.Name <> Me.Name Then DoCmd.Close acForm, obj.Name, acSaveYes End If Next obj End Sub واليك ملفك بعد تعديل CloseForm.rar

ممكن تعطينا مثال على ذلك .. لكي نعمل التجربة عليه

احيانا ابتعادنا يكون سبب لكي تبحث عن ما تريد و تعمل التجارب عليه و توصلوا الى النتيجة المطلوبة ... وفي هذه الحالة ستعرف اكثر وستتعلم اكثر

اتفضل اخي اليك ملف بعد تعديل mohamed13.rar فقط اضغط على مربع num section

الیک ھذا الحل =IIf([id]>0;Nz(DSum("[المبلغ1]";"qry1";"[id]<=" & [id]);0);"") واليك قاعدتك بعد تعديل كشف حسابات العملاء.rar

If Me.mstagra = False Then IF MSGBOX("هل تريد ان تعمل عملية ترحيل لهذا السند" , VBYesNo , "تنبیه" ) = vbYes then Me.TERHEL = "منتھية" Else Me.TERHEL = "مستمرة" End If End If Me.Requery

حسب فهمي لسؤالك ... هذا هو الجواب فی خصائص النموذج غير خاصية Key Preview من no الى Yes او اكتب هذا الكود عند فتح النموذج Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub

ههههه كيف ممكمن تعطيني اللي تعمل عليها الان ... لكي اشوفه او ممكن تخبرنا ما تعمل عليه لكي لا يظهر عندك اي شي اللي انا عملته في مشاركتي السابقة هو في استعلام بيظهر كل السندات اللي مقابل في حقل نعم ولا يساوي ب ترو اي يساوي صح مع الحقل ترحيل يساوي مستمرة وفي استعلام الاخر بيظهر كل سجلات اللي في جدول السندات في حقل الترحيل يساوي منتهية

لا النتيجة الصحيحة هو 3.30 وليس 3.25 والعملية كالتالي 468.20 * 0.07 = 32.774 32774 ÷ 10 = 3.2774 27.74 اقرب من 30 وليس اقرب من 25 على الرغم كل شي اذا تريد ان يكون النتيجة 3.25 راح نعمللك المطلوب باذن الله

الان شوف ھذا ترحيل 55 (1).rar

اھلا بک فی منتداک اخونا زبیر ھل ترید ھذا کما فی الصورة اذا نعم الیک ھذا الاستعلام SELECT table1.[اسم العميل], Sum(table2.[المبلغ الفعلي]) AS [SumOfالمبلغ الفعلي] FROM table1 INNER JOIN table2 ON table1.code = table2.code GROUP BY table1.[اسم العميل]; والیک ملف بعد تعدیل New Microsoft Access قاعدة بيانات.rar

اسف نسیت ذلك تقدر تعمل فراغ في نهاية الكلام اللي بين " " في كلا اتجاهين اي سيكون "تم اعطاء للسيد" الى " تم اعطاء للسيد " او تستخدم اقواس اذا تريد مثل هذا MSGBOX (" تم اعطاء للسيد " & " ( " & ME.NAMEFORMIREBIA & " ) " & "اکتب صلاحیات" )

حسب فھمی لسؤالك اكتب هذا MSGBOX ("تم اعطاء للسيد" & ME.NAMEFORMIREBIA & "اکتب صلاحیات" ) وغير NAMEFORMIREBIA باسم مربع نصي خاص باسم المستخدم واذا ليس مطلبك هذا وضح اكثر مع القاعدة ... واذا تفتح موضوع جديد سيكون احسن لكي لا نغطي القوانين المنتدى تحياتي

اتفضل اليك هذا بطريقة اخرى ترحيل 55 (1).rar

نعم سيكون علامة صح امامه لكن اذا ضغطت على لا سيلغي علامة صح امامه

Dim pass As Integer Dim massage As Integer pass = InputBox("ادخل رقم سري خاص لانشاء مستخدم جديد", "ادخل رقم سري") If pass = 1212 Then DoCmd.OpenForm "اسم النموذج" Else massage = MsgBox("کتبت رقم سري خطأ") End If