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

هل تريد هكذا اتفضل تلوين السجلات.rar

استخدم هذا الكود Dim Mablax As Integer Private Sub Check15_AfterUpdate() If Me.Check15 = True Then Mablax = Mablax + 200 Me.Amount = Mablax Else Mablax = Mablax - 200 Me.Amount = Mablax End If End Sub Private Sub Check17_AfterUpdate() If Me.Check17 = True Then Mablax = Mablax + 250 Me.Amount = Mablax Else Mablax = Mablax - 250 Me.Amount = Mablax End If End Sub Private Sub Check19_AfterUpdate() If Me.Check19 = True Then Mablax = Mablax + 300 Me.Amount = Mablax Else Mablax = Mablax - 300 Me.Amount = Mablax End If End Sub اتفضل قاعدة بياناتك بعد تعديل حساب قيمة بترول السيارة.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء هنا ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته وتم استخدام الصور والامثلة العملية في الشرح وبصورة ميسرة وبسيطة حتى يتم استيعابها بالصورة المطلوبة وتم تقسيم العمل الى ستة ملفات وبصورة تسلسلية اخوكم عماد الحسامي الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar الدروس السته مجمعه.zip

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

السلام عليكم ورحمة الله اخى الكريم ربما طلبك فى هذا الملف قصول و لجان.rar

مرحبا اخي مستر ستيف تكرما اضافة الملاحظة بمثال على عمل الاستاذ شيفان . كان تقول لو اضفنا الرقم كذا ثم اضفنا كذا لحصل الخطأ هذا ولذلك حتى يتضح المطلوب تماما تحياتي

استخدم هذا الكود Dim stDocName As String Dim TheFile As String TheFile = "D:\" ' اكتب المكان اللي تريد ان يحفظ فيه stDocName = "X" 'هو اسم التقريرك DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, TheFile & stDocName & ".pdf", False او هذا DoCmd.OutputTo acOutputReport, "X", acFormatPDF, "D:\" & "X" & ".pdf", False للعلم كلا من الكودين يحفظ التقرير باسم ئيكس في قرص دي باسم التقرير اي باسم ئيكس تحياتي

اتفضل هذا الكود بيعطيك سريال نمبر لمزربورد Const Arr = 1 Public Function GetPCInfo() 'You need to have Microsoft WMI Scripting v2.1 library Registered in your references DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" For i = 0 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("form2")(fld) = varSerial(i) Next DoCmd.Hourglass False End Function خذت من موقع اجنبي وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي

الى هنا اقول وباعلى صوت حق لك ان تصبح خبير واكثر استاذ شيفان

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

شكرا لك على مساعدتك وماكان عندي لابتوب لكي اعمله المطلوب مره‌ اخرى شكرا لك

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

طيب سؤال لو فرضنا ان الهارد تعطب بهذه الحالة كيف راح نتاكد ان العميل صادق والهارد حقيقي تعطب ويحتاج نفعلة برنامج ثاني بدون مقابل؟

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

أخي شفان هل عندك نفس الكود السابق لكن للمعالج واللوحة الأم في الكومبيوتر؟

مشاركة مع استاذنا القدير ابو خليل راجع هذا الرابط

غير في هذا السطر فقط : prtyr = Right(DatePart("yyyy", Date), 2) ليصبح بعد التعديل هكذا : prtyr = DatePart("d", Date)

السلام عليكم أخي هذ بحث بالكلمات أو بالحروف أو بالأرقام تحياتي ZoneListe.rar

اليك هذا تلوين السجلات.rar

الكود غيير كالاتي Private Sub Form_Current() If DSum("[رياضيات]", "اسماء") = 0 Then [رياضيات].ColumnHidden = True Else [رياضيات].ColumnHidden = False End If End Sub

Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing جرب ان تغيره

Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") MsgBox obj_Drive.SerialNumber Set obj_FSO = Nothing Set obj_Drive = Nothing

اليك هذا الرابط لعل تستفيد منه

الكود في خلف زر الخروج في نموذج الخروج سيكون كالاتي DoCmd.OpenForm "FORMS2", acNormal Forms!FORMS2!costmor_no = DMax("[costmor_no]", "tabol_costmor") Forms!FORMS2!costmor_name = DLookup("[costmor_name]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no) Forms!FORMS2!addres_costm = DLookup("[addres_costm]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no) Forms!FORMS2!tel_costmor = DLookup("[tel_costmor]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no) DoCmd.Close acForm, "FORMS1", acSaveYes

لا داعي للشكر احنا في الخدمة ان شاء الله

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

ولو أردنا الكتابة في سطرين نكرر كتابة الكود التالي: Print #1, "اسمي هو: " Print #1, "الزباري" لتكون النتيجة كالتالي: أما إذا أردنا الكتابة في نفس السطر (العمود التالي) فإننا نضيف فاصلة كالتالي: Print #1, "اسمي هو: ", Print #1, "الزباري" لتكون النتيجة كالتالي:

اسم البرنامج : Employs رقم الاصدار : 3.1.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظف كما تشاهد بالصورة المرفقة ايضا تستطيع عمل نسخ احتياطى للبيانات (اختيارى) تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى) تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى تستطيع طباعة كشف المرتبات لكل فرع (جديد) تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) واشياء اخرى اكتشفها بنفسك ،،، كلمة المرور للبرنامج :arafa صورة للبرنامج انتظرو ادائما جديد البرنامج Employs v3.1.0.rar

السلام عليكم و رحمة الله و بركاته لقد عملت برنامج شهادات باستخدام دمج المراسلات بين الاكسل و الوورد ... و انا اضع الملفان ( ملف الاكسل و ملف الوورد في نفس المجلد ) على القرص الصلب d و الحمد لله كل شي تمام و لكن عند نقل البرنامج على مكان اخر في الكمبيوتر مثلا القرص الصلب c فان الاتصال يتغير و يطلب مني عند فتح ملف الوورد تحديد مكان ملف الاكسل .. اي الجديد يعني c لذلك اريد مساعدتكم في حل هذه المشكلة... و هي انني اريد عند نقل المجلد الذي يحتوي على الملفين ان لا يؤثر ذلك على الاتصال بين الملفين يعني يكون يقرأ الإتصال من نفس المجلد و لا يتأثر بنقله من قرص الى اخر كما كنا نفعل بربط الفيجوال بيسك بقواعد البيانات الاكسس حيث انه عند نقل المجلد من جهاز الا اخر او من قرص صلب الى اخر لا يتأثر البرنامج و يبقى شغال 100% مع جزيل الشكر