jjafferr

وعليكم السلام أخي الرجاء فتح موضوع خاص بسؤالك ، لأنه لا علاقة بين سؤالك وموضوعي هذا واهلا وسهلا بك في المنتدى جعفر

وعليكم السلام هذه طريقتي: http://www.officena.net/ib/topic/64750-طباعة-بطاقة-طالب-على-وجهين/?do=findComment&comment=421415 جعفر

وعليكم السلام ممكن تخبرنا عن استعمال البرنامج ، فالطريقة اول مرة اسمع بيها جعفر

وعليكم السلام بالنسبة لموضوع تحويل اللغة ، انظر هذا الرابط للأستاذ علي المصري: http://www.officena.net/ib/topic/64622-كتابة-اللغة-في-مربع-نص-على-حسب-اختيار-المستخدم-من-القائمة-المنسدلة/?do=findComment&comment=420711 اعمل زر لكل لغة تريدها ، ولما يشتغل البرنامج ، ارفق البرنامج ، ونحن ان شاء الله نساعدك على الازرار جعفر

وعليكم السلام وبعد إذن أخي ابوخليل هنا اجمع جميع الطرق اللي تخطر على بالي ، وهي 4 طرق 1. طريقة أخي ابوخليل: Private Sub Text0_Click() Me.Text0 = Me.Text0.Name End Sub . الطرق الثلاث الباقية تعتمد على الوحدة النمطية: Option Compare Database Function Who_Am_I() Dim frm As Access.Form Dim ctl As Access.Control Set frm = Screen.ActiveForm 'get the active Form Name Set ctl = Screen.ActiveControl 'get the active Control (in our case it was a field) name 'The way we address a Field in another Form, 'like this: Forms!FormName!FieldName 'so we have to do it here similarly, 'this will send the field name to the active Field in the active Form Forms(frm.Name)(ctl.Name) = ctl.Name 'this will return the Funtion Who_Am_I value to the variable that called it Who_Am_I = ctl.Name End Function 2. ننادي الوحدة النمطية مباشرة (لاحظ علامة = ) ، ولا يوجد كود محلي في VBA : . 3. نعمل كود محلي ، والذي ينادي الوحدة النمطية: Private Sub Text4_Click() 'this way will get the field name from the Function Who_Am_I 'and it will place the value in the Field in the Form Call Who_Am_I 'this way will get the field name from the Function Who_Am_I 'and it will place the value in the Field in the Form 'and it WILL place the Field name in the variable A, so that we can use it A = Who_Am_I MsgBox A End Sub . وبما اننا نادينا الوحدة النمطية Who_Am_I عن طريق المتغير A ، فاصبح المتغير A لديه نتيجة/قيمة الوحدة النمطية ، وعليه نستطيع ان نستخدم هذه القيمة كيف نشاء في الكود ، فمثلا استخدمناها لإعطاءنا رسالة بإسم الحقل ، والنتيجة: . 4. نعمل ماكرو ، ونجعل الماكرو ينادي الوحدة النمطية: . (لاحظ مافي علامة = ) ، ولا يوجد كود محلي في VBA: . جعفر 280.db2016.accdb.zip

السلام عليكم أخي الشمال قبل ان اضع الحل اعلاه ، فكرت وبحثت كثيرا ، لكن الحلول لم اقتنع بها ، وعلى العموم اليك حلول اثنين: 1. ان تعمل زرين في النموذج ، واحد لمعاينة التقرير (ولا يستطيع المستخدم من خلالها طباعة التقرير لأنه لن يكون فيه رقم وصل) ، وواحد للطباعة مباشرة (وتضع كود رقم الوصل في النموذج ، بحيث يأخذ التقرير رقم الوصل من النموذج) أ- ان لا تسمح للمستخدم ان يطبع التقرير اثناء المعاينة (واليك الصعوبات وخطوات الحل): عند معاينة التقرير ، يستطيع المستخدم ان يطبع التقرير من شريط الادوات عن طريق ايقونة الطباعة ، حتى ولو اخفيت شريط الادوات ولا تُظهر ايقونة الطباعة ، فالمستخدم يستطيع بالنقر على الفأرة باليمين ومن القائمة ان يطبع ، وحتى لو لم اخفيت قائمة النقر بيمين الفأرة ، فالمستتخدم يستطيع ان يضغط على Ctrl + P ويطبع ، فالحل هنا يكون ان: ان تُخفي شريط الادوات ، وان تُخفي قائمة النقر باليمين ، وان تعمل كود يصطاد الضغط على الزر Ctrl فيُلغيه ب- ان تضع صورة مائية على التقرير المعاينة ، تقول فيها مثلا: ان التقرير غير رسمي بغير رقم الوصل ، وهذا الرابط يشرح عمل الصورة المائية: http://www.officena.net/ib/topic/59776-اسئله-عن-التقارير/?do=findComment&comment=387356 2. ان تضع كود خاص بالوندوز (وليس للأكسس) ، بحيث عند اعطاء امر الطباعة ، فنتدخّل ونعطي رقم الوصل ، ثم نسمح للوندوز ان تطبع التقرير جعفر

السلام عليكم هذه طريقتي الجدول: . الاستعلام: معادلة Evalفي الاستعلام يجب ان تكون هكذا: 1. اسم الجدول ، 2. اسم الحقل ، 3. الامر IN ، 4. المسمى الذي يظهر لنا في النافذة ، حتى نُدخل في البيانات المطلوبة للمعيار (لاحظ الصورة التي بعد هذه الصورة) . وهذا هو الكود: Eval([tbl_Orders]![Order_No] & " In(" & [Please enter Order Number] & ")") هكذا يجب ان تُدخل المعيار ، وبإستخدام الفاصلة بين الارقام: . والنتيجة: . جعفر 279.More_Than_One_Condition.accdb.zip

يا رجال ، مب الكل يفهمها وهي طايرة ، ترى احنا على قدنا لو من البداية شرحت شوي زيادة ، وبالخصوص مع هالصورة ، لكان السؤال واضح جدا الطريقة الاسهل اللي تيجي على بالي هي انك لا تسمح بمعاينة التقرير ، وانما تطبعه مباشرة (وفي الواقع المعاينة مهمة لأغراض معينة ، ولكن لمعظم التقارير ، فيجب طبعها مباشرة) ، عن طريق هذا الكود: DoCmd.OpenReport "Name_All", , , "[Num]=" & Forms!Name_all!Num . جعفر

ما شاء الله ، هذا الموضوع مبارك ، فقد شاركنا فيه الاستاذ رمهان ايضا بعد غياب طويل يا رجال وينك من زمان جعفر

وعليكم السلام يا ريت لو تعمل بحث قبل ان تضع سؤالك ، فالمنتدى غني بمثل هذه المواضيع تفضل هذا الرابط مثلا: http://www.officena.net/ib/topic/66974-البحث-في-الانترنت-من-نموذج-الاكسس-عنوان-معدل/?do=findComment&comment=435559 جعفر

وعليكم السلام لأن Num حقل رقمي ، الكود الصحيح هو (لاحظ ، لا توجد مسافة فاضية في نهاية السطر من اليمين): DoCmd.OpenReport "Name_All", acViewPreview, , "[Num]=" & Forms!Name_all!Num او DoCmd.OpenReport "Name_All", acViewPreview, , "[Num]=" & Me.Num جعفر 277.ترقيم.mdb.zip

حياك الله ، وشكرا على هالكلمات الجميلة

وعليكم السلام ورحمة الله وبركاته انا اقول اليوم من الصبح فرح وسرور ، اثاريه مقدمة لقدوم الغالية الدكتورة أم عهود والله لك وحشة ، ولازالنا نسميك الغائبة الحاضرة ، فلمساتك في كل مكان ، وهي صدقة جارية لك بإذن الله تعالى اسعدتيني بوجودك معانا بعد هالغيبة الطويلة جعفر

رجاء ارفاق قاعدة بياناتك

السلام عليكم اختي انتي لديك هذه الاسطر: Dim appword as word.application Dim doc as word.document فهذا معناه انك يجب ان تختارين: VBA > Tools > Reference > Microsoft Word xx.x object Library فهل تم اختيار المرجع اعلاه؟ الطريقة الاخرى التي تستطيعين استعمالها ، وبدون الرجوع لمرجع ، هي تغيير هذه الاسطر بالتالي (ولكن بعض الاوقات بعض الاوامر في الكود لن تعمل بهذه الطريقة): Dim appword as object 'word.application Dim doc as object 'word.document جعفر

السلام عليكم وتأييدأ لأخي أبوخليل ، وإيضاحا بالصور: http://www.officena.net/ib/topic/66616-لصق-ارتباط/?do=findComment&comment=433253 جعفر

السلام عليكم المعادلة على كون Num رقم او نص: رقم DoCmd.OpenReport "Name_All", acViewPreview, , "[Num]=" & forms!Name_All!Num نص DoCmd.OpenReport "Name_All", acViewPreview, , "[Num]='" & forms!Name_All!Num & "'" جعفر

آسف أخوي أبو وليد ، بس هذا الكود لا علاقة له بالموضوع هذا وانا بعيد عن كمبيوتري الاصل ، فما اعرف وين الكود الاصل علشان اقارن بينهم اقترح عليك ان تفتح سؤال جديد ، وتعرض الكود الاصل ، ثم تعرض الكود الجديد ، فمنه نستطيع ان نعمل المقارنة ، كذلك يُحبذ ان ترفق بيانات قليلة في برنامجك ، وترفعه كذلك والاهم انك تذكر رابط الموضوع الاصل ، حتى يكون سهل على المتتبع هذا الموضوع يُغلق

وعليكم السلام أخي عمرو ماشاء الله عليك ، وللامام ان شاء الله بس للأسف في بطئ / تأخير في الكود انت كلما قلت if ثم endif ، فالكود يقوم بفحص كل if (لا يقرأ اي كود بين الجملتين ، اذا لم يتحقق الشرط) ، مما يعني ان البرنامج سيتحقق في 4 if في الكود الذي عملته انت ، بينما لو عملت if ثم elseif ثم elseif ثم .... ثم else ثم endif ، فإن البرنامج سيفحصه كله مرة واحدة فقط ، حيث ان if و elseif و else تُعتبر شرط واحد اليك طريقتين بدل الكود الذي استعملته انت: Function Con(x) If Mid(x, 1, 1) = "0" Then Con = Mid(x, 2, 15) ElseIf Mid(x, 1, 2) = "00" Then Con = Mid(x, 3, 15) ElseIf Mid(x, 1, 3) = "000" Then Con = Mid(x, 4, 15) ElseIf Mid(x, 1, 4) = "0000" Then Con = Mid(x, 5, 15) Else Con = Replace(x, " ", "") End If End Function او Function Con(x) If IsNumeric(x) = True Then For i = 1 To 4 If Mid(x, i, 1) = 0 Then Con = Mid(x, i + 1, 15) Else Exit For End If Next i Else Con = Replace(x, " ", "") End If End Function جعفر

السلام عليكم وجدت هذا المثال ، البحث في عدة حقول ، وبين تاريخين ، فاحببت مشاركتم فيه: http://allenbrowne.com/ser-62.html والمرفق من هنا http://allenbrowne.com/binary/Search2000.zip جعفر

وعليكم السلام بما انك تستخدم الاستعلام مباشرة ، فاليك طريقتين: 1. بإستخدام الوحدة النمطية Con: . وهذه هي الوحدة النمطية: Function Con(x) If IsNumeric(x) = True Then 'رقم Con = Val(x) Else 'نص Con = Replace(x, " ", "") End If End Function . والطريقة الاخرى ، هي وضع الكود كله في الاستعلام ، هكذا: . طبعا التغيير على الكود هنا سيكون اكثر صعوبة من التغيرر في الوحدة النمطية ، والنتائج في كِلا الاستعلامين: . جعفر 276.Test.accdb.zip

حياك الله ويُغلق هذا الموضوع

أختي الفاضلة قوانين المنتدى لا تسمح بأكثر من سؤال في موضوع واحد ، فالرجاء فتح موضوع جديد بهذا السؤال يُغلق هذا الموضوع

حياك الله ويُغلق هذا الموضوع

وعليكم السلام الاكسس لما يفتح الاستعلام ، فانه لا يعطيك بيانات كل السجلات دفعة واحدة ، وانما لتسريع العمل ، فانه يحسب قيم البيانات التي تظهر على الشاشة ، ولما تنزل للاسفل لترى اي سجل ، فيقوم الاكسس بحساب السجلات الجديدة التي على الشاشة مرة اخرى ، طيب والسجلات اللي شفناها سابقا ، ورجعنا نشوفها مرة ثانية ، فكذلك يقوم الاكسس بحساب قيمها ، لأن الاستعلام لا يملك طريقة لحفظ البيانات المحسوبة ، ولأن الاستعلام يستخدم وحدة نمطية تتغير فيها القيم ، فالارقام ستتغير كذلك بس للعلم ، نحن نواجه هذه المشكلة مع الوحدة النمطية ، وذلك بسبب طبيعة عمل الاستعلام في تغيير البيانات على اساس كل سجل ، وإلا ، فلا مشكلة باستخدام الوحدات النمطية للإستعلام لهذا السبب عندك طريقتين لحل هذا الموضوع: 1. عمل جدول مؤقت ، وارسال بيانات الاستعلام مباشرة الى الجدول ، ثم قراءة البيانات من الجدول ، وعمل الخطوة التالية ، 2. ارسال البيانات مباشرة الى التقرير ، جعفر