بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 04 يون, 2021 in all areas
-
شكرا لكم اساتذتي الكرام الاستاذ جعفر والاستاذخالد والاستاذ محمدالحلواني انا اعتمدت طريقة الاستاذ جعفر والتي اشرت اليها بأفضل اجابة واستثنيت حقل المشتريات من الجمع ، ولكني اظهرته بجانب حقل المبلغ وكما ذكرت سابقا ان هذا التقرير لعرض ما تم ادخاله خلال يوم .. حتى يتأكد صاحب العمل ان الفواتير اليومية تم ادخالها جميعا .3 points
-
مساهمة بسيطة 104.accdb
3 points -
وعليكم السلام 🙂 اذا كان سؤالك: ما هي طرق الدخول الى محرر الاكواد VBE ، غير عن طريق اعدادات الكائنات في النموذج ؟ فهناك: Alt + F11 Ctrl + G ومن الشاشة الرئيسية : . وبجميع هذه الطرق يمكنك كتابة او تحديث او تغيير كود ، اذا كان البرنامج بصيغة mdb او accdb ، اما اذا كان البرنامج بصيغة mde او accde ، فلا يمكنهم رؤية الكود حتى وان دخلوا على VBE 🙂 جعفر
3 points -
اخي الكريم تستطيع تصدير التقرير بصيغة PDF تستطيع ربط البريد الإلكتروني مع الأكسس *** هذه الإجراءات كلها تستطيع تنفيذها بأزرار واحد فقط *** مع ملاحظة بأنه يجب عليك تفعيل وصول التطبيقات الأقل أمانا في بريد Gmail On Error GoTo errorhandle '=============== انشاء مجلد لحفظ التصدير ====================== Dim fso As Object Dim fldrname, fldrpath, FolderName As String FolderName = "MyBill" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & FolderName If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If '=============== تصدير التقرير ====================== Dim FilePath, ReportName, BillNumber As String BillNumber = "Bill - " & BillNumber ' هنا اسم القرير الجديد FilePath = CurrentProject.Path & "\" & FolderName & "\" & BillNumber & ".pdf" ReportName = "Report1" ' اسم التقرير المطلوب تصديره DoCmd.OutputTo acOutputReport, "Report1", "PDFFormat(*.pdf)", FilePath, False, "" '=============== ارسال التقرير بالإيميل ====================== Dim imsg As Object Dim iconf As Object Dim flds As Object Dim schema, settingsUsername, settingsPassword As String settingsUsername = "ادخل بريد الجيميل" settingsPassword = "كلمة المرر" Set imsg = CreateObject("CDO.Message") Set iconf = CreateObject("CDO.Configuration") Set flds = iconf.Fields schema = "http://schemas.microsoft.com/cdo/configuration/" flds.Item(schema & "smtpusessl") = True flds.Item(schema & "smtpauthenticate") = 1 flds.Item(schema & "sendusername") = settingsUsername flds.Item(schema & "sendpassword") = settingsPassword flds.Item(schema & "smtpserver") = "smtp.gmail.com" flds.Item(schema & "sendusing") = 2 flds.Item(schema & "smtpserverport") = 465 flds.Update Dim Mymsg, MsgToSend As String MsgToSend = "نص الرسالة" Mymsg = "<html><head><meta http-equiv='Content-Type' content='text/html;charset=UTF-8'><title></title></head><body style='direction: rtl; font-weight: 700; text-align: right; font-size: medium'> <p> " & "" & "<br />" & MsgToSend & "<br />" & "" & "</p></body></html>" With imsg .BodyPart.Charset = "UTF-8" .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = BillNumber .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With Set iconf = Nothing Set imsg = Nothing Set flds = Nothing errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit3 points
-
تفضل ترحيل (2).xlsm2 points
-
جزاك الله خيرا يا ابا جودي وباذن الله هذا العمل الجميل في ميزان اعمالك اذا تسمح لي بمداخله بسيطة متعلقة بتمرير قيمة في امر فتح نموذج عن طريق OpenArgs في المثال الذي ارفقته اخي محمد 👇 DoCmd.OpenForm strFormName$, acNormal, , , , OpenArgs:=Time() وطالما صرحنا بـ OpenArgs فلا داعي لـ ,,,, ويمكن كتابة الكود هكذا 👇 DoCmd.OpenForm strFormName$, acNormal, OpenArgs:=Time() ولا يقتصر الامر على هذه الحالة فعند التصريح دائما يمكن تجاوز البارامترات مثال اخر لاستخدام معيار نصي في امر فتح نموذج DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'" يمكن التصريح بالشرط ليكون DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'" اضافة الى العديد من الاختصار في الاوامر حيث ان لكل امر قيمة رقمية تغني عن كتابة الامر بشكل كامل مثال لبعض الاوامر DoCmd.RunCommand acCmdDatabaseSplitter = DoCmd.RunCommand 520 ----------------- DoCmd.RunCommand acCmdDeleteRecord = DoCmd.RunCommand 223 ------------------ DoCmd.RunCommand acCmdExportExcel = DoCmd.RunCommand 556 وكذلك لانواع الكائنات فيمكن التصريح بنوع الكائن ويمكن الاختصار بوضع القيمة الرقمية له مثال 👇 If ctli.ControlType = aclabel Then يمكن كتابته هكذا 👇 If ctli.ControlType = 100 Then وغيرها الكثير من الاختصارات مما لايتسع الوقت لذكره تحياتي وتقديري لاخي واستاذي محمد عصام2 points
-
مفتاح المنتج هو نفسه رقم السريال الذي تضعه في البداية1 point
-
السلام عليكم أخي أبو الحسن أنا سوف أشرح لك الفكرة و أعطيك مثال و أنت تحكم بها كما تشاء أولا : تطبيق الأكسل يحتوي على مصنف و كل مصنف يحتوي على عدة أوراق -شيت- و كل شيت به الكثير من الخلايا الهدف هو كيفية الوصول إلى بيانات خلية في ملف أكسل. و إذا تحقق هذا الأمر البقية سهلة تقوم بتعميمها على جميع الخلايا. الكود التالي يمكننا من استخراخ بيانات الخلية A3 في ملف أكسل اسمه 2021 موجود بجنب القاعدة: On Error Resume Next Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Dim curPath As String curPath = CurrentProject.Path & "\2021.xlsx" 'ãÓÇÑ ãáÝ ÇáÃßÓá 'open excel template Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False 'True Set xlWB = xlApp.Workbooks.Open(curPath) Set xlWs = xlWB.Worksheets(1) ' 1 åæ ÑÞã ÇáæÑÞÉ Ýí ãáÝ ÇáÃßÓá MsgBox xlWs.Cells(3, 2).Value ' 3 ÑÞã ÇáÓØÑ æ 1 åí ÑÞã ÇáÚãæÏ xlWB.Save xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "ÇäÊåÊ ÇáãåãÉ ÈäÌÇÍ" ثانيا : لتسهيل العملية أكثر نحتاج كود يستخرج أسماء الشيت الموجودة الكود التالي يفتح لك مربع حوار لتقوم بتحديد ملف الأكسل و من ثم يستخرج أسماء الأوراق الموجودة به و يحفظها في قائمة منسدلة اسمها list On Error Resume Next Dim xlApp1 As Object 'Excel.Application Dim xlWB1 As Object 'Excel.Workbook Dim txtpath As String With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls,*.xlsx" '.Filters.Add "Excel Files", "*.csv" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then txtpath = .SelectedItems(1) ''-------------------- End If End With Set xlApp1 = CreateObject("Excel.Application") xlApp1.Visible = False 'True Set xlWB1 = xlApp1.Workbooks.Open(txtpath) Me.list1.RowSource = "" For i = 1 To xlWB1.sheets.Count Me.list1.AddItem xlWB1.sheets(i).Name ''-------------------------------- Next i xlApp1.Quit Set xlWB1 = Nothing Set xlApp1 = Nothing1 point
-
السلام عليكم هذه من بين المواضيع الموجودة بالمنتدى و هذا آخر1 point
-
استاذنا القدير اشكركم جدا وادامكم الرحمن لنا مرجعا1 point
-
يا هلا ومرحبا 🙂 جعفر1 point
-
السلام عليكم.. في درس اليوم سنقوم بحساب نسبة الربح من سعر الشراء وسعر البيع وسنقوم بحساب سعر البيع من خلال نسبة الربح -------------------------------------------------------------------------------------- المثال الأول: إذا تم شراء سلعة بسعر 450 دولار، وبيعها بسعر 500 دولار، فما هي نسبة الربح؟ الحل: القانون الرئيسي لنسبة الربح: (الربح/سعر الشراء)×100% أولاً: نحسب قيمة الربح لكي نعوضها في القانون في الأعلى الربح = سعر البيع - سعر الشراء 500-450 = 50 دولار. وبالتعويض في القانون الرئيسي: نسبة الربح = (50/450) × 100% = 11.11% -------------------------------------------------------------------------------------- أما لو اردنا حساب سعر البيع من خلال نسبة الربح: المثال الثاني: إذا تم شراء سلعة بسعر 10 دولار وكانت نسبة الربح 25%، فما هو سعر البيع؟ الحل: القانون الرئيسي لحساب سعر البيع من خلال نسبة الربح: (سعر الشراء * نسبة الربح) / 100 + سعر الشراء وبالتعويض في القانون الرئيسي: النتيجة = (10 * 25) / 100 + 10 = 12.5 تحياتي لكم..1 point
-
قاعدة بيانات لمرضى السكر ارجو مراجعتها وفي حالت كانت تحتاج الي تعديل فارجو المساعدة الرقم السري 2010 ليس لديا اي خلفية عن البرمج كل العمل تعلمته من الانترنت 😁😁 بصراحة واجهة البرنامج مش احترافية ياريت لو حد عنده افكار للواجهه 104.accdb1 point
-
جرب المرفق xxxxxxxx.xlsm1 point
-
جزاك الله خيرا وجعله الله بميزان حسناتك بعد التجربة عمل البرنامج علي أكمل وجه وان سمح الوقت لي عودة ان شاء الله بملاحظة ما ولكن يمنعني الارهاق من مواصلة الكتابة الأن وأسأل الله ان يزيدكم فضلا وعلما محبكم في الله1 point
-
وعليكم السلام 🙂 عنك طريقتين: 1. تجعل الاستعلام مصدر بيانات النموذج الثاني ، في الحقل "رمز" المعيار التالي: Forms![child14]![رمز] 2. او نستعمل ربط النموذج الفرعي بالنموذج الرئيسي ، بالحقل "رمز" ، هكذا : . وفي الحدث عند "الحالي" OnCurrent في النموذج الاول ، نكتب: Me.Parent!forma1.Requery جعفر 1384.aaالمستخدمين.accdb.zip
1 point -
بارك الله فيك وعلى المعلومات القيمة اخى @SEMO.Pa3x ولدى سؤال عن كيفية حساب ارباح العام .1 point
-
الحمدلله تم التوصل الى المطلوب من قبل الاستاذ ابو عيد مشكوره جهوده المعادله في الخلية A3 الله يجعلها في ميزان حسناته مقارنة نتيجة الخلية مع خلية العمر والجنس.xlsm1 point
-
السلام عليكم ورحمة الله عمل طيب جعله الله فى ميزان حسناتك1 point
-
السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام حياكم الله و تقبل الله منا و منكم الصيامكم و القيام أضع بين أيديكم طريقة إنشاء نسخة تجريبية و حمايتها و قابلية تفعيلها و كل هذا بتوظيف الرجستري. خصائص البرنامج: 1- يكتشف إرجاع التاريخ 2- حتى لونزلت نسخة ثانية بعد إنتهاء التفعيل أو إنتهاء النسخة التجريبية فلن تعمل لأن الحماية مخزنة بالرجستري 3- رقم التفعيل يتغير من يوم إلى آخر حسب التاريخ 4- تستطيع تفعيل البرنامج بعد إنتهاء التفعيل بنفس النسخة 5- يحذف البرنامج الجدول الذي به رقم النسخة و كود الحماية مباشرة بعد أول تشغيل 6- يعطيك في أول تشغيل فترة تجريبية تحددها انت كما تشاء 7- رقم التفعيل مخبأة في مكان بالرجستري لا يمكن الحصول عليه هذا هو المرفق و أتمنى من الأعضاء أن يقوموا بتجربة المرفق و إعطائنا النتائج و من بعدها نقوم بشرح أكواد البرنامج: فترة تجريبية1.rar1 point
-
Ali Mohamed Ali أستاذنا الفاضل كلمات حضرتك وسام لى وسوف أقوم بالتعديل الذى لفت نظرى إليه بارك الله فى حضرتك وشكرا لملاحظتك المهمة1 point
-
أحسنت استاذ محمد بارك الله فيك عمل رائع جعله الله فى ميزان حسناتك ولكن من الأفضل طبعاً جعل البرنامج يعمل على النواتين سواء 32 أو 64 بت معاً فالبرنامج يعمل فقط على النواة 32 بت ... ولكم جزيل الشكر1 point
-
بارك الله فيك مقصرين هذا مجهودك وبالتوفيق ان شاء الله واي خدمة مستقبلا تحت امرك كل عام وانتم بخير1 point
-
مرحبا بكم جميعًا أيها الأحبة الكرام ولله الحمد والمنة تم الانتهاء من عمل كل اللازم في الملف وأشكر أخي نزار على وقفته معي فقد فتح الله تعالى علي بعد محاولات عديدة استغرقت ساعات كثيرة. وهذا الملف بين أيديكم نسأل الله أن ينفع بنا. كشف الغياب - النهائي.xlsm1 point
-
ماشاء الله تبارك الله عمل جميل ومتميز وشاهدت فيديو العرض كاملا وبكل صدق اعجبني العمل ربما تكون ملاحظتي على استخدام الالون لبعض الحقول وهي لا تعيب العمل وانما رأي شخصي مع تمنياتي لك بالتوفيق بخصوص تسعير العمل الاخوان @محمد أبوعبدالله و @alaa aboul-ela ماقصروا وكتبوا كل ماكنت اود قوله1 point
-
السلام عليكم ورحمة الله التقييم تقييم البرنامج يتم عن طريق جزئين الجزء البرمجي هل فيه اخطاء برمجية وهل يستطيع المبرمج فيما بعد لو تم استدراك او اكتشاف الخطأ هل يمكن معالجته لان ممكن خطأ واحد يفقد جميع العملاء الثقة في البرنامج وباقي البرامج الخاصة بالشركة خاصة لو كان برنامج متخصص بدرجة كبيرة فبالتالي يتم انتشاره بسرعة البرق ومزاياه وعيوبه يتم تناقلها بين ابناء المجال الواحد زي مثلا انتشار برنامج بعينه في مجال الادوية هل البرنامج وتصميمه يتم بناءا على تحليل نظم معلومات ومحلل النظم لازم يكون فاهم طبيعة العمل وقدرة المصمم على انجاز العمل في اجمل وابهى صورة عدد الشاشات وسهولة الاستخدام وطريقة الوصول والارتياح النفسي للمستخدم واستحدام الوان جذابة وبسيطة بذات الوقت غير مجهدة للعين او مرهقة او مثيرة للاعصاب الجزء الفني في الغالب ييكون حسابي او هندسي او قانوني والتقييم بيكون بناءاً على دقة النتايج والوصول لها باقل وقت ووجود تقارير كافية تفيد المستخدم في اتخاذ القرار التسعيير يتم تحديد السعر بناءا على اكتر من معيار البيئة التنافسية ودي بيحددها مناخ العمل البرمجي ودولة المستخدم وطبيعة الصناعة نفسها وعدد المبرمجين والمنافسة الشرسة قد تدفع بعض المبرمجين للتناحر او تقديم عروض اقل ما توصف به انها زهيدة وممكن يكون اللي وصل الحال لكده هو انتشار التطبيقات وسهولة استخدامها وكثرة البرامج التدريبية للتصصميم المجاني وده شيء كويس في حد ذاته رغم اضراره باصحاب المهنة الاصليين من مبرمجين وخبراء التكلفة الفعلية للبرنامج ودي بتحدد بناءا على ساعات العمل الفعلية لتصميم البرنامج وده بتم تحديده على اساس رواتب طاقم العمل او اجر الساعة وده بيطبق في دول تقدر قيمة العمل البرمجي والمجهود الذهني وتكاليف التعليم والتدريب اللي بيتلقاها المبرمج حتى يصبح محترفاً ججم المنشأة وذكرها الزملاء ودي بتكون حسب حجم الاعمال ورقم المبيعات و طبيعة النشاط فمثلا برنامج العيادة مش هيكون بحجم او امكانيات برنامج مستوصف طبي مش هيكون بحجم او عدد الشاشات والمستخدمين لبرنامج مستشفى حكومي اوتخصصي اودولي طبيعة النشاط وما هو متداول بالعرف فمثلا في نشاط البنوك والصرافة والمقاولات ومقدار المخاطرة والسرقات والاختلاسات لا تترد شركات المقاولات الكبرى في دفع اي مبلغ حتى لو كان مبالغ فيه للحصول على حل مالي او برنامج ذات حماية عالية يحمي اموالها بيتراوح تمن البرامج من مليون لاتنين مليون ونصف وفي الغالب مش بيكون اكسيس سمعة المبرمج بيأثر كتير اسم المبرمج او سمعة شركة البرمجة ايجابا وسلبا على سعر البرنامج فمثلا شركات كبيرة زي اوركل وساب سبب ارتفاع اسعارها المبالغ فيه هو انها برامج خبيرة بمعنى الكلمة التحديث والتطوير والموائمة ولازم يكون التحديث حقيقي علشان ده فيما بعد بيأثر على مبيعات البرنامج في السنوات التالية ميكونش مجرد تغيير للون او ايقونات البرنامج لازم يكون التحديث في الشكل والمضمون واللي بيأثر بالتأكيد على تسهيل الاعمال وسرعة الاداء ودقة النتايج امكانية الربط والدمج والاقتران والتخزين السحابي ا و الكلاودينج ودي بتبقى قدرة المبرمج على ربط البرنامج بالموبايل والانترنت ورفع البيانات على الانترنت والتخزين السحابي وربط البرنامج بالاجهزة الاخرة مثل درج الخزنة وميزان بسكول واجهزة التحليل في المعامل خدمة ما بعد البيع وعقود الصيانة رغم ان البرنامج السليم والحقيقي طبقا لمعايير الجودة مش هيبقى بحاجة لعقود الصيانة لانه بالتاكيد سيكون باقل عيوب برمجية ولكن حاجة العميل لمثل تلك العقود تكون مصلحة للطرفين ضمان الاصلاح ان وجد سواء تلف هارد او بروسيسور او جهاز العميل تلف في بعض مكونات الحاسب وملحقاته مشكلات فنية وقد يكون ذلك فرصة لاخبار العميل بوجود نسخة حديثة افضل وعروض جديدة على البرامج الاخرى مقلا العرض على العميل برنامج حسابات وبعد بيعه يعرض برنامج شئون عاملين او نظام زي مقيم او التأمين السعودي او مراقبة السيارات1 point
-
جرب هذا الماكرو يوجد صفحة مساعدة مخفية باسم salim Option Explicit Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With With Sheets("data2").Range("a7:D5000") .ClearContents .Interior.ColorIndex = 0 End With Dim S_sh As Worksheet: Set S_sh = Sheets("data") Dim T_sh As Worksheet: Set T_sh = Sheets("salim") Dim My_Table As Range: Set My_Table = S_sh.Range("A11").CurrentRegion.Columns("A:F") Dim r1%, m%: m = 7 T_sh.Cells.Clear T_sh.Range("L1") = "الجنس": T_sh.Range("L2") = "H" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("L1:L2"), _ CopyToRange:=T_sh.Range("A1") T_sh.Range("L1:l2").ClearContents T_sh.Range("C:C,F:F").Delete r1 = T_sh.Range("a1").CurrentRegion.Rows.Count Sheets("Data2").Range("a" & m).Resize(r1 - 1, 4).Value = _ T_sh.Range("a2").Resize(r1 - 1, 4).Value Sheets("Data2").Range("a" & m).Resize(r1 - 1, 4).Interior.ColorIndex = 33 m = m + r1 '==================================== T_sh.Cells.Clear T_sh.Range("L1") = "الجنس": T_sh.Range("L2") = "F" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("L1:L2"), _ CopyToRange:=T_sh.Range("A1") T_sh.Range("L1:l2").ClearContents T_sh.Range("C:c,F:F").Delete r1 = T_sh.Range("a1").CurrentRegion.Rows.Count Sheets("Data2").Range("a" & m).Resize(r1 - 1, 4).Value = _ T_sh.Range("a2").Resize(r1 - 1, 4).Value Sheets("Data2").Range("a" & m).Resize(r1 - 1, 4).Interior.ColorIndex = 40 T_sh.Cells.Clear '=============================== With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق salim_Book.xlsm1 point
-
السلام عليكم جميعا ورحمة الله وبركاته هل يوجد بالاكسس خاصية للنطق النصوص او الارقام لاستخدامه مع التلفون اذا لم توجد هذه الخاصية هل يوجد برنامج معين يتلائم مع الاكسس لنفس الهدف1 point
-
السلام عليكم ورحمة الله وبركاته الدالة GETPIVOTDATA تتعامل مع الجداول المحورية شاهد المرفق sales analysis.zip1 point
-
السلام عليكم و رحمة الله لقد قمت بتعديل الملف و كانت التنيجة جيدة على ما أعتقد و لك الملف و أنا في إنتظار الرد و شكرا بطاقة التلميذ2.rar1 point
-
السلام عليكم ورحمة الله وبركاته لإثراء الموضوع في حالة عدم الرغبة في إزالة الهمزة من الاسماء يمكن إنشاء عمود اخر تزال به الهمزة من الاسماء باستخدام معادلات ثم الفرز بحسب العمود الجديد الخالي من الهمزة . ويمكن استخدام لدالة SUBSTITUTE لازالة الهمزة . تحياتي الخالدي1 point
-
استبدل ا بــ إ و ا بــ أ استبدال الكل ثم أعد الفرز1 point
-
قم بتوحيد الهمزة في كل الأسماء باستخدام استبدال من القائمة الثانية1 point
-
سوف أقوم بشرح كتابة الشعر ( القصائد ) بشرح مختصر وإذا كانت الطريقة غير واضحة ومفهومه اعد شرحها بالصورة لاحقاً . أولا : إدراج الجدول . 1. قم بإدراج جدول مكون من ثلاثة أعمده وثلاثة صفوف 2. صغر العمود الذي في الوسط إلى أقصى حد ممكن 3. اكتب الشطر الأول من ألقصيده في العمود الأول واترك العمود الثاني فارغ ثم انتقل إلى العمود الثالث اكتب الشطر الثاني من ألقصيده وهكذا حتى تنتهي من كتابة ألقصيده في الجدول مع ملاحظة إن جميع العمود الذي في الوسط اتركها جميعها فارغة ولا تستخدم المد في كتابة ألقصيده ( انتهى الشرح الأول ) وكل شطر من ألقصيده يكون في عمود منفصل . أفضل من ان تكون كل شطر من ألقصيده فوق بعض . ثانياً : ضبط ( الشعر ) ألقصيده . 1. ظلل الجدول كاملاً . 2. اضغط على ضبط السطور من شريط التنسيق 3. اختر من القائمة ( جدول ) خصائص الدول يظهر مربع حوار 4. اختر التبويب ( صف ) 5. نشط المربع الذي أمام تحديد الارتفاع . 6. اكتب الرقم (0.8 ) لتحديد الارتفاع ( تام ) تحديد الصف بدلا من تقريبي ثم موافق . ثالثاً : اذهب إلى نهاية كل شطر من ( الشعر ) ألقصيده واضغط على شفت ثم انتر تلاحظ إن ألقصيده أخذت بملأ العمود من الطرفين رابعاً : ظلل الجدول ثم اختر من القائمة تنسيق ( حدود وتظليل ) ثم اختر من الاعداد ( بلا ) أتمنى ان يكون الشرح واضح ومختصر تمنياتي للجميع بالتوفيق1 point
-
العمود a اسم الطالب والعمود d الدرجة والعمود c الترتيب الملف يحتوي على 25 طالب واريد معادلة في العمود c تعطي ترتيب الدرجة لمعرفة ترتيب الطلاب من الاول الى الاخير ( الاول الثاني الثالث ...... حتى 25 ) واريد الترتيب دون تحريك اي طالب من مسلسله حيث الطلاب مرتبين حسب الابجدية ولسيادتكم جزيل الشكر1 point
-
السلام عليكم ورحمة الله وبركاته أحبتي في المنتدى الرائع ، تحية طيبة وأسأل العلي القدير أن يجعل ما تقدمونه من علم في موازين حسناتكم يوم تلقونه ، أما سؤالي فهو : لدي جدول فيه الحقل الأول للأيام والثاني للتاريخ ، واريد في النموذج أن يقوم المستخدم بتسجيل اليوم الأول ( السبت ) والتاريخ المقابل له ( 1/11/1424هـ ) كمثال ، ثم زر أمر ليكمل بقية الأيام والتواريخ معتمداً على تقويم أم القرى....... فهل من الممكن ذلك آمل تزويدي بنسخة ، علماً أن يومي الخميس والجمعة( إجازة ) مع وافر الشكر والتحية مقدماً لجميع المبدعين في هذا المنتدى .1 point
-
السلام عليكم إخواني أخواتي هذا برنامج يقوم بتكسير كلمات المرور لقواعد البيانات فلتجربوه أنتظر ردودكم والسلام حملوه من هنا1 point
-
أرجو الإيضاح حول الخطأ بهذا الكود حيث أنه لا يعمل معي بالطريقة التي أريدها كما وضعتها بالمثال . Private Sub AccNo_Click() If Reference = True Then If MsgBox("This is Not a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub Else Me.Bor_date = date Me.due_date = DateAdd("d", 2, (date)) End If If Reference = False Then If MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub Else Me.Bor_date = date Me.due_date = DateAdd("d", 21, (date)) End If End Sub لكم بالغ شكري وتحياتي الوارث1 point
-
السلام عليكم إخواني أخواتي أثناء تصفحي لأحد المواقع صادفت هذا البرنامج ذو الواجهة الجميلة الغنية بالمؤثرات البصرية لذلك أردت أي نتفع منه الجميع حتى تتمكنوا من تجميل واجهاتكم. أرجو ألا أكون قد أخطأت في وصفي له. أنا في انتظار ردودكم والسلام من هنا التحميل1 point
-
السلام عليكم إخواني أخواتي وهذا مثال آخر يوضح كيف يمكنك أن تجعل في نموذجك تدرجاً في الألوان مثلا من الأسود إلى الأصفر وهكذا دواليك أتمنى أن يروقكم المثال حملوه من هنا1 point
-
أريد أن أدخل رقم مرجع رسالة في حقل نصي بالشكل التالي : 17/8/9/2/ب ولكن يظهر لي المرجع في الحقل بالشكل التالي : 2/9/8/17/ب كيف يظهر لي المرجع بالشكل الذي أدخلته دون أن يتغير ترتيب الأرقام والأحرف ؟ ولكم جزيل الشكر والتقدير ..1 point
-
السلام عليكم ورحمة الله وبركاته هل يشتغل برنامج معمول بإصدار 200 في اكسس 97 وبالعكس ولكم جزيل الشكر والتقدير1 point
-
السلام عليكم أبحث عن كود يقوم بالبحث عن ملف معين من نوع .txt فإذا تم العثور عليه في المسار الصحيح تعمل القاعدة أو سوف تغلق القاعدة . جربت البحث بدون جدوى .. فهل أجده لدى أحد الأخوة الكرام . والسلام عليكم1 point
.thumb.png.18fad3f319e01ea79d43b4b6a9d731a2.png)
