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

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

تحويل النص الى صوت من الكمبيوتر بعددة طرق الاكسل يتكلم بدون اكواد او معادلات صورة من الاكسل الفيديو

شرح مفصل لدالة العد بشروط COUNTIFs شرح احدى عشر طريقة للدالة COUNTIFs

انت قلت نظامك 64 احذف المكتبة من system32 والصقها في مجلد syswow64 ثم شغل الملف المرفق اذا طلعت لك رسالة فيها كلمة : نجح فهذا علامة على تسجيل المكتبة بنجاح انا بانتظار النتيجة ... CpyReg64.rar

@صالح حمادي تم تعديل ع الملف ولكن واجهتني مشاكل بالفلترة اكسل.rar

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

بالنسبة للرسالة الاخيرة ادخل على محرر الفيجوال انقر على Tools ثم اختر References يفتح لك مربع حوار شوف السطر الذي او ل الكلمة MISSING شيل علامة الصح ثم موافق __________________________________ بالنسبة للمشكلة الاولى انا قلت لك اني اعمل على نظام 32 بت ولكن انت جرب قص المكتبة من مجلد السيستم32 والصقها في مجلد syswow64 وقم بتسجيلها

كلامك صحيح تحصل هذه المشكلة عند الادراج وانا ما اعرف شلون تغلبت عليها .. والله نسيت المهم المرفق ادناه توجد فيه الاداة شغالة 100% حاول تصدر النموذج الى برنامجك وتنقل اليه الكائنات والعناصر وتعمل عليه ووافنا بالنتيجة comPort.mdb

اتفضل اليك هذا Private Sub نص2_AfterUpdate() If IsDate(Me.نص0) = True And IsDate(Me.نص2) = True Then Dim Ctl As Access.Control For Each Ctl In Me.Form.Controls If Ctl.ControlType = acTextBox Or Ctl.ControlType = acLabel Then Ctl.Visible = True End If Next Ctl End If End Sub اخفاء حقول.accdb

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

السلام عليكم تفضلوا هذه المكتبة تعمل عندي الوندوز 7 والاوفيس 2003 والنظام 32 بت قبل لصقها يجب حذف المكتبات المشابهه ان وجدت ثم الصقها وقم بتسجيلها mscomm32.rar

اخي لي مشاركه قديمه حول هذا الموضوع ولكن لم اصل الى نتيجه http://arabteam2000-forum.com/index.php?/topic/270467-غير-قادر-على-ادراج-microsoft-communication-control-في-النموذج/ اذا وصلت لشي جديد ارجو افادتي وشكرا

تفضل غير هذا السطر: curPath = "e:\salah88.xls" بهذين السطر: DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") curPath = DTPath & "\salah- " & Format(Date, "mm-dd-yyyy") & ".xls"

أهلين و مرحبتين أي كنت يا رجل لك من وحشة كبيرة منذ مدة لم نشترك في موضوع واحد. أعرف أنك لا تدخل على موضوع إلا و حللت بارك الله لك و في علمك إن شاء الله - لقد استعملت طريقة مغايرة قليلا لإنتظار تحميل الصفحة و ذلك بإستخدام حلقات التكرار. حلك هو الأفضل و الأسرع و الأنجع و لكني سوف أرفقه للفائدة. Sub Timeout(seconds As Double) Start_Time = 0 Do DoEvents Loop Until (Timer - Start_Time) >= seconds End Sub Private Sub أمر86_Click() On Error Resume Next Dim j As Integer, i As Integer vitesse_progress = 1 DoCmd.GoToRecord , , acFirst For j = 1 To DCount("*", "AppFiller2") Me.WebBrowser4.Navigate Me.الموقع For rep = 1 To 1000 * vitesse_progress Timeout 1 Me.rr = rep Next rep For i = 1 To 100 'Me.k = i If Me.WebBrowser4.Document.all.Item(i).innerText Like "*" & Me.t & "*" Then MsgBox "لقد تم العثور على الكلمة المطلوبة داخل هذه الصفحة" Exit Sub End If Next i DoCmd.GoToRecord , , acNext Next j MsgBox "لم يتم العثور على كلمة البحث" End Sub أضفت رابط صفحة غوغل في السجل الأول و صفحة فايسبوك في السجل السادس اكتب كلمة "فيسبوك" و اضغط على زر بحث نلاحظ أنه لا يتوقف إلا في الصفحة رقم 6 اللهم أشفه و أشفي جميع مرض المسلمين. اللهم أجعل إبنه رمهان بارا به يا رب العالمين WebAppFiller (1) (1).rar

بعد اذن اخي بن علية معادلة اخرى (CTRL+SHIFT+ENTER) =IFERROR(INDEX(الموقف!$B$2:$B$100,MATCH(2,($A2=الموقف!$C$2:$C$100)+($B2=الموقف!$A$2:$A$100),0)),"") و هذه ايضاً (CTRL+SHIFT+ENTER) =IF(COUNTA($A2:$B2)<2,"",INDEX(الموقف!$B$2:$B$100,LOOKUP(MAX($B$2:$B$100)+1,(IF(الموقف!$B$2:$B$100<>"",IF(الموقف!$C$2:$C$100=$A2,IF(الموقف!$A$2:$A$100=$B2,ROW($D$2:$D$100)-ROW($D$2)+1)))))))

كنت أضفت الرد هنا منذ يومين لكن الظاهر أنه لم يصل بسبب ضعف النت تستطيع استعمال نفس الطريقة السابقة إضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول) و تستعمل الفلترة من أجل ظهور حقول الجدول المختار فقط. تفضل طلبك هنا و المسار موجود بالعبارة أدناه تستطيع تغييرها كما تشاء curPath = "e:\salah88.xls" كما لا تنسوا الضغط على زر الإعجاب للإجابات الصحيحة final.rar

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

السلام عليكم تم تحويل الملف الى الاكسيس 2003 يفترض انه يعمل بعد إضافة الملف MSCOMCTL.OCX الى مجلد النظام وتسجيله علماً اننى لم اجرب الملف وليس لدية أي جهاز خاص بالوزن الملف من موقع اجنبي بالتوفيق إن شاء الله MSCOMCTL (1).zip

ضع كلمة report اولا وكاتالي : Private Sub أمر4_Click() Me.sh.SourceObject = "report.rep" End Sub بالتوفيق