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

استاذن من استاذ جعفر اليك هذه الاكواد هذا للاضافة Private Sub Command29_Click() Dim i As Integer Dim StMyPathPic As String DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Count - 1 StMyPathPic = Dir(CurrentProject.Path & "\" & "Image" & "\" & Me.ID & ".*") If StMyPathPic = "" Then Me.swra = "" Else Me.swra = CurrentProject.Path & "\" & "Image" & "\" & StMyPathPic End If DoCmd.GoToRecord , , acNext Next i End Sub وهذا للحذف Private Sub Command30_Click() Dim StSql As String StSql = "UPDATE Table1 SET Table1.swra = null;" DoCmd.SetWarnings False DoCmd.RunSQL (StSql) DoCmd.SetWarnings True Me.Form.Refresh End Sub Uploading Picture.zip

السلام عليكم و رحمة الله تعالى و بركاته: لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله. أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل إضافة شريط الطباعة للتقرير أداة إضافة شريط القوائم لنماذج ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم" ثانيا: شرح البرنامج 1- نقوم بتسجيل اسم ملف التثبيت 2-نقوم بتسجيل اسم البرنامج 3- تسجيل رقم السريال 4- نضغط على الزر و نقوم بإضافة ملف البرنامج 5- نضغط على الزر و نختار أيقونة البرنامج 6- نضغط على الزر و نختار مرفقات البرنامج ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري شرح طريقة التنصيب: و هذا هو البرنامج: برنامج التحزيم exe.rar

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

السلام عليكم. من المعروف أن الدلفي يستخدم لغة الباسكال الإجرائية. لذلك سوف أقوم بشرح أهم النقاط التي يحتاجها المبرمج لبداية كتابة الأكواد البرمجية في الدلفي: التصريحات: في هذا الجزء يعلن عن الثوابت و المتغيرات الضرورية لحل مشكل ما: 1- تعريف المتغير: هو خانة في الذاكرة تستعمل لحفظ قيمة و يمكن تغييرها حسب الحاجة. صيغة التصريح بالمتغير: Var variable1,variable2,.....variableN:Type; Type: نوع المتغير variable1,variable2,.....variableN:أسماء المتغيرات مثال: Var A,B,C:integer; أنواع المتغيرات: المتغيرات الرقمية: shortint: عدد صحيح قصير من -127 إلى 127 Byte: من 0 إلى 255 integer: عدد صحيح من -32768 إلى 32767 word: من 0 إلى 65535 longint: عدد صحيح طويل من -2147483648 إلى 2147483647 real: عدد حقيقي من 2.9x10^-39 إلى 1.7x10^38 double: من 5x10^-324 إلى 1.7x10^308 extended: من 1.9x10^-4951 إلى 1.1x10^-4932 المتغيرات النصية: char: حرف واحد string: سلسلة أحرف نصية المتغيرات المنطقية: boolean: قيمة منطقية true أو false 1- تعريف الثوابت: هو خانة في الذاكرة تستعمل لحفظ قيمة حيث تعطى قيمة ثابتة في البداية و لا يمكن تغييرها. صيغة التصريح بالثابت: Const identificateur=Value; مثال: Const Pi=3.14; R=10.75;

هذا الفديو يشرح طريقة ربط الدلفي بـــ sql server

بارك الله فيك استاذنا

أنت بحاجة إلى نموذج مبني على استعلام لجلب النتائج

تمام استاذ جزيت خيرا مشكور اكثر من المطلوب

السلام عليكم ورحمة الله راقب التعديلات على المعادلات إن كانت تفي بالغرض... بن علية حاجي 2ملف.rar

ربما يكون الحل طالب salim.xlsx

بالنسبة لملف pdf ليس لدي الخبرة الكافية لذلك تم تحميل ملف مشابه للأول لكن باستعمال الفلترة صفحة "Repport" بحث في كافة الشيتات الموجودة Salim.rar

العمل رائع رائع شكرا جزيلا لك >>> و هذا المطلوب >>>> الله يحميك

يمكن لكن اولا القي نظرتا الى هذا الكود وجربه وبعدين اذا ماتريد هذه الطريقة سنجرب الطريقة التانية Private Sub Command29_Click() With Application.FileDialog(4) .Title = "Uploading picture : Uploading Picture" .AllowMultiSelect = True .InitialFileName = "" If .Show = -1 Then For Each varFile In .SelectedItems Dim i As Integer Dim StMyPathPic As String DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Count - 1 StMyPathPic = Dir(varFile & "\" & Me.ID & ".*") If StMyPathPic = "" Then Me.swra = "" Else Me.swra = varFile & "\" & StMyPathPic End If DoCmd.GoToRecord , , acNext Next i Next Else MsgBox "لم يتم اختيار اي مجلد" End If End With End Sub Uploading Picture1.zip

نعم تم استخدام هكذا =DSum("[المبلغ المقبوض]";"العملاء"; "[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='" & [نوع العملة] & "'") عند تغيير النوع العملة سيتغير مبلغ المقبوض دور في المنتدى راح تشوف شروحات عن دالة dsum وايضا انت محتاج لهذا الرابط ايضا لاستاذنا @صالح حمادي حوالات جديد.rar

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

جرب هذا الملف الصفحة "Info" Seach_from_ sheets.rar

السلام عليكم لا يوجد أي كود في الملف والملف هو من صيغة xlsx. الذي نعرف أنه من نوع الإكسيل العادي دون أكواد.. بن علية حاجي

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

وعليكم السلام استعملت استعلام الحاقي: . والوحدة Append_Buy_to_Daily هي التي تقوم بالعمل: . ونناديها من اكثر من مكان (لاحظ الاسهم). جعفر الاصلي.zip

السلام عليكم ورحمة الله وضعت المعادلات الجديدة (طويلة جزئيا) في عمود جديد لونته بالأخضر (عمود "التاريخ 2 الجديد") وقمت أيضا بالتعديل على المعادلات الموجودة في الأعمدة الملونة بالأزرق... أرجو أن تفي الغرض المطلوب... بن علية حاجي ملف_3.rar

اذا كان هذا المثال ما تريد قم بتعديل المعادلات حسب ما تراه مناسباً Book1_salim.rar

وعليكم السلام ورحمة الله وبركاته بداية المساعدة هنا مجانية لوجه الله تعالى الا اذا كان احد يريد ثمن ماديا فهذا شأنه بحثت لك عن كود يقوم باعادة ربط الجداول سوفه الصقه هنا وان شاء الله يكون بداية الوصول لما تصبو إليه هذا هو الكود Function RefreshSharePointLinks() Dim dbs As Database Set dbs = CurrentDb() For Each tbl In dbs.TableDefs If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then 'اسم جدول معلومات المستخدم يتغير حسب اصدار الاكسس المستخدم في عملية الشيربوينت If tbl.Name <> "UserInfo" Then DoCmd.SelectObject acTable, tbl.Name, True DoCmd.OpenTable tbl.Name DoCmd.Close acTable, tbl.Name End If End If Next End Function

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

جرب الاستعلام التالي وقم بتغيير تاريخ البدء ووقته وتاريخ الانتهاء ووقته وحسب مدة التقرير SELECT TB_1.Date1, TB_1.tem, [date1] & " " & [tem] AS Expr1 FROM TB_1 WHERE ((([date1] & " " & [tem]) Between #1/26/2017 15:0:0# And #1/27/2018 2:0:0#)); بالتوفيق

أهلين أخي sandanet أنا صممت البرنامج على أكسس 2010 و هجرت الأكسس 2007 لأنه سبب لي الكثير من المتاعب رغم تجربتي للعديد من النسخ و إرتحت نهائيا بعد الإنتقال لأكسس 2010 أنت تعرفني جيدا صديقي لا أضع برامجي إلا من أجل أن يستفيد منها الجميع و أريد أن أستفيد أنا أيضا من ملاحظاتهم ثم أضع البرنامج مفتوح.

السلام عليكم لم أطلع على ما قدمه الإخوة الكرام بالأعلى وهده محاولة أخرى مني حسب فهمي للمسألة... بن علية حاجي يناير2018.rar

السلام عليكم : مطلوب التعديل على الكود الموجود في فورم cond3 بحيث يوجد فيها 16 كومبو بوكس وعند اختيار اسم في أحدها يقوم الكود بمسحه من قائمة الأسماء في بقية الكومبو بوكس وعند الضغط على زر ( حفظ) يقوم بترحيل اسم اللجنة التي مدونة في التيكست بوكس المرادف لاسم المعلم في sheet CON1 في العمود B أمام اسم المعلم المناسب وعند فتح الفورم بعد الإدخال يعرض المدون مع إمكانية التعديل . برنامج إسناد مراقبة الامتحانات.rar

السلام عليكم إليك حل بالمرفق... أرجو أن يفي الغرض المطلوب... بن علية حاجي Sumproduct2.zip

هذا نفس الملف أضفت إليه كود الرأس و التذييل ستجد ذلك عند معاينة الطباعة رقم الصفحة أعلى اليسار أسفل يمين اللجنة : أسفل وسط : وكيل ش ط + اسمه من الورقة 1 أسفل يسار مدير المدرسة + اسمه مجلوب من الورقة 1 اعداد تقارير مدرسية - مع الرأس والتذييل.zip