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

السلام عليكم بعد إذنك أخي ابو ياسين تعديل بسيط على الكود الذي استعملته: With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .NAME <> "nam" Then DoCmd.Close acForm, .NAME End If End With Next i End With

تفضل ملفك و به المطلوب 899999999999999999999999.rar

الساده الاعضاء المحترمين الموضوع باختصار دليل هاتف v2 حيث سبق وان عملت v1 وباضافة الميزات التاليه : * زيادة مزايا البحث بالاضافه للاسم يمكن الان البحث عن طريق الارقام ايضا * البحث بطريقه عصريه جدا وهي باستخدام الكيبورد الخاص بالاحرف والارقام الموجود على الفورم * امكانية التحكم بالاحرف داخل الكيبورد سواء عربي او انجليزي من زر AR او زر EN وكما كان سابقا في V1 بالنسبه للتعديل حيث يتم من خلال دبل كليك على السطر المراد تعديله داخل الليست بوكس اتمنى ان ينال اعجابكم ==================== تنويه : الرجاء اعتماد المرفق في المشاركه رقم 40 لانها تحتوي على اخر تعديلات البرنامج بكل جوانبها الصحيحه http://www.officena.net/ib/index.php?showtopic=34679&view=findpost&p=182322 ====================

السلام عليكم تفضل التعديل أخي الكريم و هذا هو الكود المستخدم: On Error Resume Next Dim strpath As String Dim PathImg As String strpath = CurrentProject.Path & "\Scans\StPic" If Len(Dir(strpath, vbDirectory)) = 0 Then MkDir (strpath) End If Dim fpath As Variant With Application.FileDialog(3) .Title = "اختر صورة الشخص" .Filters.Clear .Filters.Add "صورة", "*.jpg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then PathImg = .SelectedItems(1) End If End With FileCopy PathImg, strpath & "\Pic" & Me.txt_StID & ".jpg" Me.St_Pic = strpath & "\Pic" & Me.txt_StID & ".jpg" Desktop.rar

لمنع تكرار الترحيل البيانات التي تم نقلها استبدل الكود الى هذا Sub REPORT_salim() Application.ScreenUpdating = False Dim My_name$ Dim SpecLr% Dim sh As Worksheet: Set sh = Sheets("سندات القبض") Dim k%, j%, i%: k = Sheets.Count Dim LrP%: LrP = sh.Cells(Rows.Count, "P").End(3).Row If LrP = 1 Then LrP = 2 Dim New_lr% For i = 2 To k On Error Resume Next My_name = sh.Cells(i, "P") SpecLr = Sheets(My_name).Cells(Rows.Count, "c").End(3).Row + 1 With Sheets(My_name) For j = 3 To 17 .Cells(SpecLr, j) = sh.Cells(i, j - 1) Next '========================== New_lr = .Cells(Rows.Count, "c").End(3).Row .Range("C9:Q" & New_lr).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _ , 8, 9, 10, 11, 12, 13, 14, 15), Header:=xlYes '============================== End With Next Application.ScreenUpdating = True End Sub

رام ٢ جيجا علي الأقل وويندوز ٧ على الأقل

بعد اذن اخي Shivan Rekany شوف هل هذا طلبك جرد.mdb

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

اتفضل اليك هذا الرابط بها ما تريد https://www.officena.net/ib/topic/76815-زيادة-الكمية-عند-ادخال-نفس-المادة-في-الفاتورة/?do=findComment&comment=491976 انت شاطر فعلا اذا تحاوله راح تقدر تعمل ما تريد واذا ما اقدرت نحن حاضرين لمساعدتك اكثر تحياتي

روعة سؤال كان يراودني من زمان نرجو أن نرى الحل ؟

وَصَيَّرَتْهُ مَلِكًا هُمَامَا حَتَّى عَلاَ وَجَاوَزَ الأَقْوَامَا ومِن هناك قالت العرب: كُن عصاميًّا ولا تكن عظاميًّا؛ أي: افْخَر بشرف نفسك لا بعظام أجدادك. شكراً أخي الكريم ،، جزاك الله خير

ابحث في المنتدى عن منع التكرار وستجد حلولاً كثيرة If DCount("*", "TableName", "FieldName = " & Me.FieldName) > 0 Then MsgBox "الرقم موجود" Cancel = True End If

وعليكم السلام ورحمة الله وبركاته ما المهم في بقاء Me,Requery لحدث بعد التحديث للخيار؟؟؟

شكرا لكم جميعا اخواني الافاضل وهم AlwaZeeR والاخ kaser906 والاخ ابو ياسين المشولي على جوهدكم الطيبة والى كل شخص قصرت في حقه في المنتدى شكرا الف شكر واخص هنا الاخ ابو ياسين الى كرس وقته للوصول الى ماريد واعتذر منكم توصلت الى طريقة مودل المرفقة التي من الممكن استخدامها لتسهيل وسرعة انجاز العمل حيث اجد صعوبة في كتابة التاريخ عدة مرات كوننا نقوم بادخال بيانات كثيرة تعتمد على فترة معينة او تاريخ محدد وهذا مثال للاستفاده تقديرا لكم ولاثراء معلوماتكم بتنوع الحلول فجزاكم الله عني خير 1-يعمل المثال في وقت فتح النظام فقط وينحذف اذا غلقت قاعدة البيانات.يظل ثابت حتى ولو تم اغلاق النموذج 2- يمكنكم تغير الفترة كيف ماتشائون يدويا. وهذا مالم نستطيع عمله في الامثله السابقة. او اني لم ادرك ذلك فيها. تثبت التاريخ بواسطة مدل.rar

السلام عليكم أقدم لكم برنامج لإدارة المشتريات والمبيعات والمخازن لعله ينال إعجابكم برنامج لإدارة المشتريات والمبيعات والمخازن.xls

اخي هكذا يكون الكود if me.[الحقل]> [forms]![اسم النموذج]![اسم النموذج الفرعي]![الحقل] then MsgBox " الرصيد لايسمح " end if

ارجوا القراءة والتطبيق بدقة : على اعتبار وجود نسخة دائمة من الواجهات بجانب قاعدة الجداول على الخادم ، ويقوم المبرمج باستبدالها يدويا عند كل تحديث اولا - الجدول الذي يتم فحصه موجود في الواجهات وليس في قاعدة الجداول 1- مرفق مجلدين : wz ويوضع داخل الجهاز الخادم ويحتوي على قاعدة الجداول zzData.mdb وملف الواجهات dbz.mdb وداخله جدول الفحص tbl1 ، للتجربه ضعه على قرص C 2- جدول الفحص هذا يشتمل على حقل رقمي نضع فيه رقم النسخة المحدثة ثانيا : المجلد الثاني fre هو مجلد الواجهات الذي نضعه للمستخدمين داخل الاجهزة الفرعية ويشتمل على ملفين أو بالاصح (قاعدتي واجهات) الاولى dbz.mdb وهي الواجهات والثانية ملف وسيط start.mdb وهي التي سنضع لها اختصار على سطح المكتب اي هي التي ستقلع اولا ووظيفتها فحص ملف الواجهات الموجود على الخادم هذه الوسيطة يوجد داخلها جدولين احدها مرتبط بملف الواجهات الموجود على الخادم والآخر محلي كل جدول يحتوي على حقل رقمي واحد فقط عند تشغيل الوسيطة يتم المقارنة بين الحقلين فإن كانا متساويين يتم تشغيل الواجهة التي بجنب الوسيطة وان كان الرقم المرتبط اكبر من الرقم المحلي يتم التالي : _ استبدال الواجهة القريبة بالواجههة البعيدة _ تحديث قيمة الحقل المحلي بحيث يكون مساويا للرقم المرتبط _ تشغيل الواجههة لاحظوا : _ ان قاعدة بيانات البرنامج ( الجداول ) ليس لها اي دور في العملية _ ملف الواجهات يجب ان يبقى بصورة دائمة بجوار الداتا بيس وانما يستبدل بالجديد عند التحديث _ عند تصفح الملف الوسيط ورؤية الكود ستبدوا لك العملية بصورة اوضح fre.rar

حبيبي تسلم والله ايوة الترقيم انا اللي احدده S0001 أو c0001 كل مستند هيبقى له تسلسل وبدون حد أعلى مش هينفع لأن الجدول بيضم اكتر من نوع يعني s_b_m.... الخ اشكرك حبيبي ولكن هذا الطريقة أرقام فقط

الجملة if: الشكل العام: If condition then Begin : End; مثال: وبإضافة Else يصبح الشكل العام كالتالي: If condition then Begin : End Else Begin : End; ملاحظة: يجب عدم وضع الفاصلة المنقوطة في السطر قبل Else مثال: var x:real; begin x:=StrToFloat(InputBox('أدخل المعدل','','')) ; if x>=10 then begin ShowMessage('ناجح') ; end else begin ShowMessage('راسب'); end عند تنفيذ البرنامج تضهر نافذة تطلب منك إدخال المعدل إذا كان المعدل أكبر من 10 تظهر رسالة ناجح و إذا كان المعدل أصغر من 10 تظهر رسالة راسب

http://rapidshare.com/files/425843012/_________________.rar هذا هو رابط البرنامج مع الشرح داخل الملف ahmad 1111 vba 1234 نظرا لكبر حجم الملف اضطرت ان ارفقه من الرابيد شير فقط اتبع تعليمات ملف البوربوينت للذين يريدون نقل الفورم الى ملفهم بكل سهوله * الملف ارسل قبل ايام وهو خاص بشاشة الدخول ولكن هذه المره بعد معالجة كل الاخطاء السابقه

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

حياك الله اخي اشرف =============================================== الى اخي ابو احمد وكل من اهتم بالموضوع ان يقوم باعتماد هذا المرفق لانه يحتوى على كل التعديلات الصحيحه واظن ان طلبك يا ابو احمد موجود بالمرفق PHONE BOOK.rar

وهذا برنامج لكشف كلمة السر على الأكسس لمن لم يحمله سابقا والى لقاء مع براج أخرى أخيكم سهل احمد ( ابو نعيم ) Access Jack ( source code ).rar