نجوم المشاركات

وعليكم السلام جرب هذا ...... =DCount("*";"Table1";"[add]like'*الاسلامية*'") ' يمكن استخدامها للجدول أو الاستعلام

اذا كان معنا نص معين و نريد ان نعرف الكلمة رقم 2 او 5 أو ....... فيه كيف تفعل ذلك لا تيأس اكسل يحل لك هذه المشكلة N_th word.xlsm

حسب فهمي لسؤالك .. لا يمكنك بتغيير الحجم العنوان النموذج في شريطه الاعلى ... لكن تقدر ان تلغي الشريط الاصلي وتعمل له شريط اخر وتتحكم به وهو حسب اصدار اوفيس تبعك

بعد اذن الاخوان اناما اطلعت على المرفق لاني استخدم الجوال ولكن اوضح نقطه لو حاب تضيف حقلبن بحدول الاصناف الاساسي لتصبح ثلاثه حقول 1- اخر سعر شراء 2- متوسط سعر الشراء 3_ اقل سعر للشراء طبعا كل هذي الحقول تتغير تلقائي عند كل عملية شراء للصنف عن طريق استعلام تحديث يعمل في شاشة شراء الاصناف مثلا اشتريت صنف بسعر 10 ريال الكميه 10 حبات ثم اشتريت بسعر 11 ريال الكميه 10 حبات ثم اشتريت بسعر 12 ريال الكميه 10 حبات هنا يعطيك اخر سعر للشراء 12 المتوسط 11 وانت هنا تقرر البرنامج يقوم بتنفيذ سعر البيع حسب الرغبه

بالنسبة للاستفسار اول تضيف مربع نص textbox وتكتب فيه هذه المعادلة =sum([column]) حيث column اسم العمود الذي تريد جمعه بالنسبة للاستفسار الثاني يومي ممكن تعمل استعلام وتضع في خانة المعايير تحت عمود التاريخ date أي تاريخ اليوم بين تاريخين سواء شهري أو سنوي ممكن تعمل استعلام وتضع في خانة المعايير تحت عمود التاريخ >=forms!form_name!txtbox_from_name وتحتها في خانة أو لعمل أكثر من شرط <=forms!form_name!txtbox_to_name طبعا مع تغيير اسم النموذج واسم مربع النص الذي به تاريخ البداية ومربع النص الذي به تاريخ النهاية وفقنا الله جميعا لكل خير وكل عام والجميع بخير وسعادة ورضا

اتفضل اتمنى يكون هو طلبك لم انتبه بان الاخ Shivan Rekany قد اجاب على السوال وزياده الخير خيرن 1 (4).accdb

1 (1).accdb

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

من الملفات القديمة التي تمت مشاركتي لها والتي تطلب غالباً كيف نحمي الخلايا غير الفارغة بواسطة باسوورد (الباسورد في الملف / الخلية H3/ يمكن حفظة و مسحه عن عيون الفضوليين) مع حرية الغاء الجماية كما تشاء protect non empty data with Pass word.xlsm

السلام عليكم ورحمه الله وبركاته عيدكم مبارك مقدما كل عام وانتم بخير سالين المولى عز وجل أن يعيده علينا وعليكم وانتم في أتم الصحه والعافيه استاتذتي الكرام اريد مثال يحفظ التقرير بالمستندات بصيغه الدفتر شاكرين ابو زاهر

أنشأت استعلام بإسم ( QTOTAL ) وجعلته تجميعي حسب نوع الحركة , ثم أنشأت التقرير ليظهر نوع الحركة اجمالي المبلغ , المدفوع , المديونية الجمعية .accdb

كل ده في تقرير واحد ؟؟

الله عليك شكد ذكي انت والله المفروض يسولك نصب بكوردستان واني افتخر بيك ودائما احجي باسمك مع نحياتي

بسم الله الرحمن الرحيم بداية كل عام وجميع زوار وأعضاء ومشرفي ومديري منتدى أوفيسنا بكل خير أعاد الله علينا جميعا هذه الأيام المباركة بالخير واليمن والبركات وفتح الله قلوبنا وعقولنا لهذه الكلمات البسيطة ........................ بملاحظتي لبعض موضوعات المنتدى وسلوك بعض الأعضاء تبين لي انتشار ثقافة الأخذ فقط بمعنى أني عضو أحتاج لحل لمشكلة عندي أعرضها وإذا قام أحدن الزملاء بالمساعدة متطوعا لا أقوم بشكره على جهوده بل أتصيد الأخطاء ولا أرى إلا السلبيات وكأنه فرض عليه أن يساعدني وفي نفس الوقت لا أساهم في حل مشكلة لغيري ............................... ومثل هؤلاء الأعضاء ضررهم أكثر من نفعهم فهم يحبطون من يساعدهم ويجعلونه لا يعود لمساعدتهم أو مساعدة أي زميل آخر بل ربما يتحول إلى ثقافة الأخذ مثلهم ولا يهتم إلا بما فيه مصلحته فقط .......................... في حين أننا في بداية إنشاء هذا الصرح في 2003 و 2004 وما بعدها كان الأعضاء يتنافسون في فعل الخير وتطوير الفكرة وإنشاء مشاريع جماعية يشترك فيها الجميع ولو بفكرة أو بسطر من الكود أو بالتشجيع لكل من يساهم لذا نجد مشاريع متكاملة قديمة مثل التفقيط ومواقيت الصلاة والمخازن والباركود وغيرها الكثير ...... ولا يوجد مثيل لها في الفترة الأخيرة ربما من عام 2012 وما بعدها **************** فهل نستطيع استعادة هذه الروح الطيبة والعطاء والمحبة؟؟!! أكيد نستطيع كيف؟؟!! بالدخول إلى كل الموضوعات وترك بصمة لك تدل على عطائك ولو بكلمة شكر أو نصيحة أو رأي أو إشارة إلى رابط لموضوع به الحل أو عمل إعجاب برد جميل أو اختيار مشاركة كأفضل إجابة أو أو أو الإبداع في العطاء ليس له حدود كل عام وجميع أحبابي في الله بكل خير عيد أضحى مبارك

الاخ الفاضل / الامير عملت لك قاعدة بيانات جديدة (حيث انك لا تريد ارفاق اي نوع من الامثلة) وهذه محاولة مني للمساعدة انظر الي المرفق لعل وعسي يكون المطلوب حيث تم تجميع الاجازات المرضية وكذلك الاجازات السنوية ومجموعهما معا كل عام وانت بخير وجميع اعضاء المنتدي بخير الموظفين.rar

هل قصدك بصيغة تيكست فايل اذا نعم اليك هذا DoCmd.OutputTo acOutputReport, "Report1", "TEXT FILES(*.Txt)", "E:\DDD.txt"

تفضل اخى الكريم -طبعا بعد اذن استاذى الكبير محمد صالح-له منا كل المحبة والإحترام mas_السيرة الدراسية.xlsx

ارفق لنا النموذج بارك الله فيك

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

تفضل أخي الكريم لعل هذا هو المطلوب بدايتك في اختيار الصف ستجد العام يظهر وحسب الحالة يتم احتساب الاحصائيات mas_السيرة الدراسية.rar

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

هل معنى هذا أنك جربت كتابة المعادلة السابقة ولم تفلح معك؟؟!! أم أنك لم تستطع تطبيقها على الملف الخاص بك؟؟؟!!!

هل الأسماء المخزنة في الجهاز باللغة العربية وتظهر على الشاشة بصورة صحيحة؟؟

نعم لتجاوز هذا الامر قم بأستخدام الكود التالي بفرض ان الفورم الذي تود اضافة الزر فيه اسمه T On Error GoTo Err: DoCmd.OpenForm "t", acDesign, , , , acHidden Dim db As DAO.Database Dim frm As Form Dim newBt As Control Dim i As Long, j As Long Set frm = Application.Forms(1) 'For i = 0 To 1 For j = 1 To 1 Set newBt = CreateControl("T", acCommandButton, Left:=100 + 3000, Top:=500) Set newBt = Nothing Next j 'Next i DoCmd.Close acForm, "T", acSaveYes Err: MsgBox Err.Number

لو ممكن تتفضل برفع الملف وان شاء الله يكون هناك حل من قبل الأساتذة والخبراء يجوز هناك مشكلة بجهاز الكمبيوتر بتاعك بارك الله فيك

أهلا بك محمد جرب هذا الحل.. Web Page Data Automated.zip

كود ممتاز استاذ محمد بارك الله فيك وجعله الله فى ميزان حسناتك وكل عام وانتم بخير وعيد سعيد عليكم جميعا

يتم تنفيذهذا في الأكسس في نموذج ويسهل أيضا في الإكسل في نموذج لكن في خلايا الإكسل فالكود السابق رائع لهذا الغرض ويمكن إضافة حدث عند تغيير التحديد كذلك ليصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MsgBox "Please fill the cell before you leave", vbCritical, "Warninng" Target.Select End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "" Then MsgBox "Please fill the cell before you leave", vbCritical, "Warninng" Target.Select End If End Sub

لكي تتم معالجة هذا الأمر تحتاج لكود عند الخروج من textbox يقوم بحفظ اسم المستخدم الحالي ووقت التعديل وحقل التعديل في جدول خاص بذلك وكذلك عند الضغط على زر تضيف كود لحفظ اسم المستخدم الحالي ووقت التعديل ووعبارة تم الضغط على زر كذا في في نفس الجدول الخاص بالسجل وأقترح مثلا حقول جدول السجل id userId dateAndTime actions notes

تفضل كود لانشاء زر جديد بشرط ان يكون النموذج في وضع التصميم ويمكن ان ينشاء الزر من نموذج اخر On Error GoTo Err: Dim db As DAO.Database Dim frm As Form Dim newBt As Control Dim i As Long, j As Long Set frm = Application.Forms(1) 'For i = 0 To 1 For j = 1 To 1 Set newBt = CreateControl("أسم النموذج", acCommandButton, Left:=100 + 3000, Top:=500) Set newBt = Nothing Next j 'Next i Err: MsgBox Err.Number الكود كان يعمل الضافة زرين بنفس المستوى الان يضيف زر واحد

سقيا الحجيج في أفضل البقاع: مكة المكرمة والمشاعر المقدسة " عرفات ومزدلفة ومنى " اشتد الصيف وازداد الظمأ فلنكرم ضيوف الرحمن حجاج بيت الله الحرام شارك معنا لسقيا ضيوف الرحمن قيمة السهم 1 ريال فقط وساهم عنك وعن والديك وعن من تحب واغتنم شرف الزمان وفضل المكان حساب المشروع الرسمي بمصرف الراجحي: رقم حساب لجنة التنمية الاجتماعية ببطحاء قريش بمكة المكرمة: حساب الراجحي: 458608010462627 للتحويل من أي بنك آخر عبر الآيبان: SA3380000458608010462627 0502290583 0565697925 واتس اب https://api.whatsapp.com/send?phone=966502290583 أو https://api.whatsapp.com/send?phone=966565697925 ترخيص رقم (478) من وزارة العمل والتنمية الإجتماعية ومرخصة من لجنة السقاية والرفادة بأمارة منطقة مكة المكرمة انشر ،، ولك الأجر "أفضل الصدقة ؛ سقي الماء" رد

السلام عليكم الله يبارك فيك اخينا العزيز فكرة موفقة

الاخ الفاضل / الامير ارفق مثال يكون فيه جدول الموظفين حتي نعرف مسميات الحقول وان لم تعرف كيف ترفق مثال فاخبرنا حتي نتعاون معك

لا أعرف ما ترجمة مصطلحات الوورد بالعربية ولكن سأجرب. افتح المستند واضغط على مفتاحي CTRL+H لفتح نافذة بحث واستبدال. اضغط تبويبة "بحث". انقر على زرّ "المزيد". في أسفل النافذة المتوسعة، اضغط على زر "تنسيق" ومن القائمة اختر "الخط". اختر اللون الأحمر تحت "لون الخط". ثم اضغط على "موافق". في نافذة بحث واستبدال التي لا تزال مفتوحة، اضغط على زر"بحث في" ثم "المستند الرئيسي" (أو "المستند الأساسي"). ستجد أن كل الكلمات الحمراء قد ظُللت. انقر بالفأرة على المستند نفسه ثم اضغط على مفتاحي CTRL+C للنسخ. افتح مستنداً آخر واضغط على مفتاحي CTRL+V للّصق. ستجد الكلمات الحمراء مستخرجة في المستند الجديد.

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

السلام عليكم وأهلا بحامل المسك مشاركة مع الاستاذ محمد اذا كان تصميم الجداول التي عندك مثل المرفقات بالضبط فقد وقعت في مشكلة فنية ولن تخرج منها الا بالتدخل اليدوي ، والسبب ان المعرف في جدول المعلمين في القاعدتين ترقيم تلقائي وهذا يعني ان المعرفات في القاعدتين تتشابه بنسبة 99%.. وبعد الاصلاح يمكن التصدير والاستيراد الحل : التدخل اليدوي على احدى القاعدتين لتغيير المعرف ابتداء مما انتهت منه القاعدة الاخرى وبما انك ضبطت خصائص العلاقات على تحديث الحقول المرتبطة فبمجرد تعديل الجدول الرئيس ستتغير الجداول الفرعية وطريقة تعديل المعرف كالتالي : نفرض ان اخر رقم في معرف في الجدول الرئيس في القاعدة الاولى = 400 1- نفتح القاعدة الثانية / العلاقات / ثم نحذف العلاقات 2- نفتح الجدول الرئيس على التصميم ثم نغير نوع حقل المعرف من ترقيم تلقائي الى رقم ثم نحفظ ونخرج 3- نذهب الى العلاقات ونعيدها كما كانت 4- نفتح الجدول الرئيس ونقوم بتعديل حقل المعرف ابتداء بالرقم 401 الى نهاية الجدول بناء على خصيصة العلاقة ستتغير الارقام في الجداول الفرعية آليا انتهينا ويمكنك الآن النسخ واللصق بين الجداول على شرط ان تبتدء بالجدول الرئيس ملحوظة : احفظ نسخة احتياطية بعيدة عن العمليات اخي العزيز نارت لبزو كنا نكتب في وقت واحد

اخي العزيز / الاستاذ المشرف " نــــــــــــــــارت " سأقول لك شيئا لم اكتبه من قبل : عندما اقرأ اسمك على موضوع اكسس ما ادخل لاستمتع بقراءة ردك ( او ردودك ) في بعض الاحيان ادخل على موضوعات الاكسس ( بدون اهتمامي بالمادة العلمية بحد ذاتها ) !!! وهذا غريب اليس كذلك ادخل اليه لكي اقرأ الرد ... واستمتع بطريقة ردك ... وبنفس الوقت اطمئن عليك كتب هذا ونا خجل من نفسي ... ولكن هي حقيقة اردت ان اوصلها لحضرتك .... فعندما ندخل موضوع معين ونقرأ ردود اخوتنا وحتى لو لم يكن لنا دور او حتى لو لم نكتب اية كلمة يكون دخولنا للاطمئنان وفقك الله ابو الحارث

أخي العزيز تم بعون الله كل ما فعلناه ، بعد التعريفات والسلام والكلام ... انتقلنا للصفحة الالكترونية حسب السجل في الجدول ثم تفاهمنا معها لنقل اسم المستخدم ثم اقنعناها بقبول كلمة السر ثم ضغطنا زر الامر signed in Private Sub &#195;&#227;&#209;36_Click() Dim sURL As String Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library Dim htmlInput As MSHTML.HTMLInputElement Dim htmlColl As MSHTML.IHTMLElementCollection With wbbWebsite .Navigate Me!CompanyWebsite ' Main page .Visible = 1 Do While .ReadyState <> 4: DoEvents: Loop 'set user name and password Set htmlDoc = .Document Set htmlColl = htmlDoc.getElementsByTagName("INPUT") Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop For Each htmlInput In htmlColl If htmlInput.Name = "Email" Then htmlInput.Value = Me.MName Else If htmlInput.Name = "passwd" Then htmlInput.Value = Me.Pass End If End If Next htmlInput 'click login Set htmlDoc = .Document Set htmlColl = htmlDoc.getElementsByTagName("input") Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop For Each htmlInput In htmlColl If Trim(htmlInput.Type) = "submit" Then htmlInput.Click Exit For End If Next htmlInput End With End Sub فقط لا غير .... ببساطة ... قضيت الحاجة بإذن الله وفضله وهكذا أصبح التطبيق ولي عندكم دعوة خير طيبة بظهر الغيب والله من وراء القصد ..... والسلام ختام NA_ActivateWebpage.rar