jjafferr

اخي الفاضل انا هنا اجمع مشاركاتي السابقة في مكان واحد ، لمعاينة التقرير حسب قيمة الحقل EMID ، اذا كان الزر في النموذج الفرعي: في حال كان EMID نص doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]='" & [Forms]!ETSALATSIMCARDFORMTEST![ETSALATFORM]![EMID] & "'" في حال كان EMID رقم doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]=" & [Forms]!ETSALATSIMCARDFORMTEST![ETSALATFORM]![EMID] . واذا كان الزر في النموذج الرئيسي: EMID نص doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]='" & [Forms]!ETSALATSIMCARDFORMTEST![EMID] & "'" في حال كان EMID رقم doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]=" & [Forms]!ETSALATSIMCARDFORMTEST![EMID]

وعليكم السلام 🙂 حيا الله اخوي محمد 🙂 للتقارير التي تطبع على طابعات خاصة ، مثل طابعة الهويات البلاستيكية ، يجب تخصيص الطابعة ، ولا نجعلها الطابعة الافتراضية ، هكذا . . . ثم تجعل مسافات الحواف كلها صفر ، وسستم تغييرها تلقائيا حسب اعدادات الطابعة : . . ودائما استعمل "معاينة الطباعة" . . فيصبح تقريرك هكذا . جعفر

اختي الفاضلة ، انظري هذا الرابط ، فهو مفيد للحاسبات البطيئة ، يعني من مساعدات جميع الاعضاء ، الكود سيحذف السجلات ، ويطلب سجلا جديدة (Requey) ، ولكن النموذج سيظهر فيه كلمة DELETED# لجزء من الثانية ، فاذا اردنا ان لا نرى هذا ، يمكنك استخدام الامر Me.Painting ، كما هو موضح في الموضوع هنا : جعفر

ربنا يشفيه ويعافيه شفاء لا يغادر سقما

العفو انا اخطأت في كتابة اسم النموذج الرئيسي في المشاركة السابقة ، وقد تم التعديل عليها الآن ، اما اذا كان الحقل EMID في النموذج الرئيسي ، فيصبح الكود: EMID نص doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]='" & [Forms]!ETSALATSIMCARDFORMTEST![EMID] & "'" في حال كان EMID رقم doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]=" & [Forms]!ETSALATSIMCARDFORMTEST![EMID]

وعليكم السلام جرب في حال كان EMID نص doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]='" & [Forms]!ETSALATSIMCARDFORMTEST![ETSALATFORM]![EMID] & "'" في حال كان EMID رقم doCmd.OpenReport "ETSALATSIM_REPORT3", acPreview, , "[EMID]=" & [Forms]!ETSALATSIMCARDFORMTEST![ETSALATFORM]![EMID]

وعليكم السلام 🙂 في الجدول ، في اعدادات الحقل ، التاريخ: . الرقم . النص: 2. معناه انك تقبل يكون طول النص "صفر" ، معناه فارغ، او تكون كتبت شيء ثم حذفته

السلام عليكم 🙂 هذا الموقع يعطي ترتيب أكثر قواعد بيانات العالم استخداما: https://db-engines.com/en/ranking/relational+dbms والترتيب متغير شهريا ، ففي هذا الشهر: 6/2024 ، يكون ترتيب الاكسس رقم 8 عالميا : . واليكم طريقة تقييمهم للترتيب من: https://db-engines.com/en/ranking_definition وهنا تمت ترجمته آليا الى العربية: جعفر

. ثانيا: عمل جبار لمبتدئ، والشيء الاكثر اعجابا هو ربط الجداول بطريقة محترفة ، ثالثا: انا قلت: . ممكن تبدأ بالعمل بدون علاقات ، وخلال هذه الاثناء تصير الامور واضحة ، وتقدر تعمل العلاقات المتبقية

سؤال: شو اسم النموذج/الفرعي الذي فيه حدث الحذف؟ شو اسم النموذج/الفرعي الذي تظهر لك علامات DELETED# ؟ رجاء ارفاق حدث الحذف.

انا فهمي بطيء ، فياريت تشرح طلبك شوي اكثر 🙂

كتبت 4 ملاحظات ، هكذا: ** .1> <1. ***الجملة التالية خطيرة ، ولا يجب استعمالها إلا في حالات خاصة، اما في كود طويل مثل هذا ، فيجب ان لا تُستخدم** On Error Resume Next If MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÍÐÝ ÈíÇäÇÊ ÇáãÑíÖ¿", vbYesNo, "ÃäÊÈå ") = vbYes Then DoCmd.SetWarnings (0) ' DoCmd.OpenQuery "qrydeletedPatientTest" ' DoCmd.OpenQuery "QryDeleteTestOrderTbl" Dim strSQL1, strSQL2 As String strSQL1 = "DELETE test_order_tbl.*, test_order_tbl.ID " & _ "FROM test_order_tbl " & _ "WHERE (((test_order_tbl.ID)=" & Forms![reservation_frm]![ID] & "));" strSQL2 = "DELETE reservation_tbl.*, reservation_tbl.ID " & _ "FROM reservation_tbl " & _ "WHERE (((reservation_tbl.ID)=" & Forms![reservation_frm]![ID] & "));" ' strSQL2 = "DELETE test_order_tbl.test, test_order_tbl.sub, test_order_tbl.ID, test_order_tbl.tcode, test_order_tbl.torder, test_order_tbl.patient_price, test_order_tbl.num " & _ "FROM test_order_tbl " & _ "WHERE (((test_order_tbl.ID)=" & Forms!reservation_frm!ID & "));" DoCmd.RunSQL strSQL1 DoCmd.RunSQL strSQL2 'DoCmd.SetWarnings (1) <2. **تم ايقاف عمل هذا السطر DoCmd.RunCommand acCmdDeleteRecord selected_list.Requery me.Requery <3. **تم اضافة هذا السطر DoCmd.SetWarnings (1) <4. **وهذا السطر Else DoCmd.CancelEvent End If

وعليكم السلام 🙂 الاكسس يحتفظ ببياناته القديمة بطريقته الخاصة ، لذا كلما اردت تنشيط الاكسس (حتى انه يصبح اسرع كذلك) ، استعمل زر الضغط والاصلاح : . وبهذه الطريقة نزل حجم قاعدة بياناتك من 58 ميجا الى اقل من 3 ميجا ، وبهذه الطريقة يمكنك رفعه الى المنتدى باستخدام احد برامج الضغط مثل winrar او winzip وغيرهم. وشكرا للمبرمج الذي ساعدك في قاعدة البيانات ، فغير انه فكك الجدول الى عدة جداول ، فقد قام بعمل العلاقات بين الجداول كذلك (واقعا عمل محترف ، شكرا ايها المبرمج 🙂) ، وفي النظر الى علاقات الجداول ، وبعد اعادة مواقع الكائنات قليلا (موضوع شكلي) ، اليك العلاقات بين جداولك (طبعا هذا موجود في برنامجك) : . وقد قمت بوضع المرفق في موضوعك الاصل وبه جميع التغييرات اعلاه. جعفر

وعليكم السلام 🙂 يجب إعطاء الامر Me.Requery ومعناها اجلب البيانات الجديدة من مصدر بيانات النموذج (Me معناه انا الكائن الذي تتم العمليه من خلاله ، اي مكان الحدث الذي اتى منه امر الحذف مثلا) ، بعد كل عملية تغيير في الجداول ، سواء حذف بيانات (مثل ما عندك) ، او اضافة او تغيير. وممكن عمل تحديث بيانات نموذج آخر (غير النموذج الذي تم الامر من خلاله) ، فيصبح الامر Forms!frnName.requery جعفر

وعليكم السلام 🙂 اخي الفاضل سعد ، انت عامل جداولك بصيغة الاكسل ، وهناك مجموعة اقتراحات علشان تضبط جداولك: 1. بما ان جميع الحقول متشابهة في الجداول ، تستطيع جمعها في جدول واحد ، وخصوصا هناك حقل اسمه "رقم الصف" ، فلن تكون هناك مشكلة ، 2. يجب تقسيم الجدول اعلاه الى اكثر من جدول ، بحيث كل جدول يكون له حقوله التي لا تتكرر ، مثلا المدرسة وبقية بياناتها تكون في جدول آخر ، وبيانات الطالب الثابته (مثل الاسم والرقم القومي والديانه ووو) في جدول ، وبياناته المتغيرة في جدول آخر (مثل الصف والترم والسداد واستلام الكتب والعام الدراسي وووو). وطريقة ربط الجداول تكون عن طريق حقل واحد في الجدول الاخر ، مثلا جدول متغيرات الطالب يكون فيه حقل رقم المدرسة (ورقم المدرسة حقل في جدول المدرسة) ، بينما جدول الطالب وجدول متغيرات الطالب يكون فيهم "رقم الطالب" 3. بالطريقة اعلاه ، سيكون عدد الحقول في كل جدول اقل بكثير من الموجود حاليا، 4. ثم نربط الجداول مع بعض في استعلام ، ويكون الاستعلام مصدر لبيانات النماذج والتقارير. وبعدين ارجع اسال سؤالك عن "عرض الاسماء في النموذج" 🙂 جعفر

تفضلي ، نستعمل Parent للاشارة الى النموذج الرئيسي DoCmd.OpenForm "URINE", , , "[ID]=" & Me.Parent!ID Forms!urine!ID = Me.Parent!ID Forms!urine!code = Me.Parent!code Forms!urine!T.date = Me.Parent!T.date

وعليكم السلام 🙂 لفتح نموذج اسمه URINE ، ونقل بيانات الحقول ID,CODE, T.date اليه DoCmd.OpenForm "URINE", , , "[ID]=" & Me.ID Forms!urine!ID = Me.ID Forms!urine!code = Me.code Forms!urine!T.date = Me.T.date جعفر

اه نسيت هاي 🙂 انا شخصيا اُفضل ان اقسم سطر الكود الى عدة اسطر ، بحيث كل سطر يكون واضح ، اعرف وين بدايته ، وين نهايته (وبدون ما ادوخ راسي مع بقية الاسطر الاخرى ، فلو انك اتبعت طريقتي ، ما كنت تقع في الخطا هذا 🙂 خليني افكك سطرك الى عدة اسطر (على طريقتي) ، وبتشوف بنفسك : انت عملت qdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=" & Me.server_name & ";" & "UID=" & Me.user_name & ";" & Trusted_Connection = no & "DATABASE=" & Me.database_name & ";""" (شوف مشاركتي السابقة)بينما اذا فككت السطر اعلاه على طريقتي qdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=" & Me.server_name & ";" & _ "UID=" & Me.user_name & ";" & _ Trusted_Connection = no & _ "DATABASE=" & Me.database_name & ";""" المفروض يكون واضح لك مكان الخطأ

رجاء ، لما تضع كود في المنتدى ، وعلشان يظهر بالطريقة الصحيحة : في قائمة رسائل التحرير ، هناك ايقونة بهذا الشكل: <> ، رجاء انقر عليها ، وستفتح لك نافذة جديدة ، وهنا تضع الكود 🙂 مو كفاية نشوف السطر اللي عليه الخطأ ، ولكن نريد نعرف رسالة الخطأ كذلك 🙂 والآن الى حل الخطأ ، رجاء استعمل هذا السطر بدل سطرك qdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=" & Me.server_name & ";UID=" & Me.user_name & ";Trusted_Connection = no;DATABASE=" & Me.database_name & ";" . جعفر

تفضل: 'strConnectionString="ODBC;DSN=database_name;UID=username;PWD=password;DBQ=ADPR;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;" 'التحكم في جميع المتغيرات Dim strConnectionString As String strConnectionString="ODBC;DSN=" & Me.database_name & ";" & _ "UID=" & Me.username & ";" & _ "PWD=" & Me.password & ";" & _ "DBQ=" & Me.ADPR & ";" & _ "DBA=" & Me.W1 & ";" & _ "APA=" & Me.T1 & ";" & _ "EXC=" & Me.F1 & ";" & _ "FEN=" & Me.T2 & ";" & _ "QTO=" & Me.T3 & ";" & _ "FRC=" & Me.Ten1 & ";" & _ "FDL=" & Me.Ten2 & ";" & _ "LOB=" & Me.T4 & ";" & _ "RST=" & Me.T5 & ";" & _ "BTD=" & Me.F2 & ";" & _ "BNF=" & Me.F3 & ";" & _ "BAM=" & Me.IfAllSuccessful & ";" & _ "NUM=" & Me.NLS & ";" & _ "DPM=" & Me.F4 & ";" & _ "MTS=" & Me.T6 & ";" & _ "MDI=" & Me.F5 & ";" & _ "CSR=" & Me.F6 & ";" & _ "FWC=" & Me.F7 & ";" & _ "FBS=" & Me.64000 & ";" & _ "TLO=" & Me.O1 & ";" & _ "MLD=" & Me.Zero1 & ";" & _ "ODA=" & Me.F8 & ";" 'او التحكم في اسم السيرفر واليوزر وكلمة السر strConnectionString="ODBC;DSN=" & Me.database_name & ";" & _ "UID=" & Me.username & ";" & _ "PWD=" & Me.password & ";" & _ "DBQ=ADPR;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;"

وعليكم السلام 🙂 هل تريد تمرير قيمة اخرى بدلا عن "MyPassthroughQuery" جعفر

تفضل يا سيدي اعمل اغلق النموذج/التقرير اولا (لاحظ مافيه اسم النموذج) ، ثم افتح النموذج الآخر لاحقا . لماذا ؟ شوف المقطع التالي: . جعفر

جرب تقلب الكود ، كالتالي DoCmd.Close acForm, Me.Name DoCmd.OpenForm "main" وأريد اضافة الكود لإغلاق التقرير المفتوح DoCmd.Close report, Me.Name DoCmd.OpenForm "main" . او خلينا نشوف اللي عملته ، نشوف وين الخطأ

عندك الكود ، واعمل هذا التغيير : بدل Me.Results.BackColor = RGB(0, 255, 0) 'green اكتب Me.Results = "اخضر" . وهكذا مع بقية الشروط

وعليكم السلام 🙂 عمل جميل ، وعالي العال 🙂 كنت ناوي اشتغل عليه البارحة واخلي اللاعب يلعب بالماوس (مسك وافلات) ، ولكن ما شاء الله فعل ، وما صار عندي وقت 😞 جعفر