fwares

سيد مازن قلت لك ان المثال الذي قمت بارساله لك لن يعمل عندك بشكل اكيد لان البرنامج مربوط على قاعدة موجودة على جهازي وبالتالي لن تعمل عندك فيديو عن طريقة الربط هل تريد ارسال رقم برنامج Anydesk لاقوم بتعيير الربط امامك اسمي فراس من سوريا

الموضوع ليس بالامين الموضوع هو ربط بين الاكسس وبين ال SQL لان قاعدة بنانات الامين هي ال sql من الاكسس تختار external data وتختار Link data ونختار sql ولكن يجب ان تعلم اي جداول من الامين يجب ربطها مع الاكسس والتي تفيدك في العمل ارسلت لك ملف مربوط بقاعدة الامين لدي (طبعا لن يعمل لديك لانه مربوط بالقاعدة المحلية لدي ) Database1.accdb

من تجربتي وانا متاكد جدا نعم ممكن جدا جدا وقد قمت بربط الاكسس لتوليد سند قيد في الامين وسند قبض وبالعكس عند إضافة مادة تظهر في الاكسس مباشرة الموضوع بسيط جدا فقط عليك استيراد بيانات خارجية من قاعدة sql الخاصة بالامين لجدول اسمه mt000

السلام عليكم لله الحمد لدي القدرة عل انشاء برامج متكاملة باستخدام برنامج اكسس ولكن يوجد العديد من الاسئلة التي تشغل بالي دوما السؤال الاول هل نستخدم الماكرو ام نستخدم ال VBA وما هو الافضل والاسرع ؟ احتاج بشكل دائم استدعاء بيانات من جداول مختلفة فاستخدم Dlookup بشكل كبير هل يوجد طريقة اسرع ام تعتبر dlookup جيدة وسريعة ؟ هل نقوم باستخدام ال Moudel بشكل دائم للعمليات التي تتكرر بشكل بسيط ام انها ابطئ من لو اننا اعدنا التعليمات طالما انها لا تتكرر عدد كبير (مرتين او ثلاث) في حال كان لدي استعلام يعتمد عل استعلام اخر ويوجد معايير هل اضع المعايير في كل استعلام بشكل متكرر ام اضعه بالاستعلام الاخير ام الاول ام لا يوجد فرق ؟؟ هل استخدام قواعد ال SQL (Insert - update - delete اسرع ام استخدام الطرق التقليدية في التعامل مع الجداول وحفظها وتعديلها ؟؟؟؟ سرعة اداء البرنامج واستقرار البرنامج امر هام جدا جدا في البرامج المتكاملة والتي يكون لديها اكثر من مستخدم باستخدام الشبكة وهو الامر الذي يحتاج الى خبير لديه سنين طويلة بالتعامل مع الرنامج ليعطي راي يعتمد عل التجربة الحقيقة ارجو مساعدتنا للوصول الى الصحيح والسريع والمستقر

لساني يعجز عن شكرك بالفعل حللت مشكلة كبيرة لي ولك جزيل الشكر بالاضافي إلى انني تعلمت اشياء جديدة من الكود الذي ارسلته شكرا شكرا شكرا

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

السلام عليكم قمت باتتمة نظام امتحانات عام ويوجد سؤال عن كتابة موضوع طويل وكانت النتائج ممتازة ظهرت المشكلة ان معظم المستخدمين لديهم عادة الضغط عل اختصار التراجع عند كتابة نص خطا المشكلة ان الاكسس يقوم بالغاء النص المكتوب بالكامل من مربع النص وليس اخر كلمة مثل برنامج الورد وهنا تكون مشكلة كبيرة جدا حيث يذهب كل المكتوب ولا يمكن اعادته المطلوب إما إلغاء زري ctr + z عند الكتابة او جعل مربع النص مثل برنامج الورد يقوم بالغاء اخر كلمة فقط ارجو المساعده Database1.accdb

السلام عليكم شكرا جزيلا على المساعدة ولكن سوالي ليس عن موقع bulksms ولكن عن موقع مختلف تماما فهل يمكن استخدام موقع ارسال رسائل مختلف تماما؟

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

ياجماعة الخير مساعدة لوجهة الله

السلام عليكم اود ان اطرح سوالا وارجو من المختصين مساعدتي بدلي على مقالات او حلول قمت بتصميم برنامج يقوم بعمليا ت معقدة وجميلة ويتعامل مع عدد كبير من حقول النص (540) مربع نص تقريبا ضمن خوارزمية وعدد من الحلقات المتداخلة النتيجة راااااااااااااائعة للغاية ولكن المشكلة هي ان زمن التنفيذ طويل نوعا ما وخاصة ان البرنامج على الشبكة اود ان استفسر عن طريقة لقياس سرعة تنفيذ مجموعة من العمليات لمعرفة مكان العملية التي تستغرق زمن طويل وخاصة انني لا استطيع قياس العملية بالكامل بطرق تقليدية لوجود حلقات هل هناك طريقة تحلل الكود وتعطي كل عملية الزمن لتنفيذها؟؟؟ وقمت بارفاق الكود لعله يوجد طريقة لتسريع التنفيذ Public Sub Occup(weekdate1, weekdate2, weekdate3, selDate1, seldate2, seldate3) Dim week(1 To 3) Dim daa(1 To 3) week(1) = weekdate1 week(2) = weekdate2 week(3) = weekdate3 daa(1) = selDate1 daa(2) = seldate2 daa(3) = seldate3 Dim strsql As String Dim rst Dim Noo As Integer For PP = 1 To 3 Form_Loading.Label2.Width = Form_Loading.Label1.Width / 3 * PP Me("Tog" & week(PP)).Value = -1 'selDate = selDate + PP - 1 strsql = "SELECT Occup.ID, Occup.courseID, Occup.courseNa, Occup.trainer, Occup.roomID, Occup.room, Occup.frmdate, Occup.toDate, Occup.timID, Occup.timFrm, Occup.TimTo, Occup.DayID, Occup.Status, Occup.dayweek " & _ "FROM Occup " & _ "WHERE (((Occup.DayID) = " & week(PP) & "))ORDER BY Occup.ID;" ' Set rst = CurrentDb.OpenRecordset(strsql) Noo = 0 For N = 1 To 13 Ro = DLookup("Room", "Room", "RoomID = " & N) Me("Ro" & PP & Ro) = DLookup("Room", "Room", "RoomID = " & N) Me("da" & PP & Ro) = DLookup("day", "dday", "Dayid =" & (week(PP))) For emp = 1 To 14 Me("ocp" & PP & Ro & emp).Visible = True Me("ocp" & PP & Ro & emp).Width = wdStan.Width Me("ocp" & PP & Ro & emp) = "" Me("ocp" & PP & Ro & emp).BackColor = 16777215 Me("ocp" & PP & Ro & emp).ForeColor = 0 Me("Ocp" & PP & Ro & emp).FontSize = 12 Next emp Next N If rst.RecordCount > 0 Then While Not rst.EOF rst.MoveNext Noo = Noo + 1 Wend rst.MoveFirst For I = 1 To Noo Ro = DLookup("Room", "Room", "RoomID = " & rst!RoomID) CourseNm = DLookup("SchName", "Newcourse", "Id =" & rst!courseID) If chRoomId = rst!RoomID And ChdayID = rst!DayID And chtimeID = rst!timID - 1 And chcourseID = rst!courseID Then repNo = repNo + 1 Me("Ocp" & PP & Ro & rst!timID).Visible = False Me("Ocp" & PP & Ro & (rst!timID - repNo)).Width = wdStan.Width * (repNo + 1) + (60 * repNo) Else Me("Ocp" & PP & Ro & rst!timID) = CourseNm Me("Ocp" & PP & Ro & rst!timID).Tag = rst!Id repNo = 0 End If Me("Ocp" & PP & Ro & rst!timID).BackColor = Nz(DLookup("CourseColor", "cName", "courseName ='" & DLookup("courseNa", "Newcourse", "Id =" & rst!courseID) & "'"), 15570276) chRoomId = rst!RoomID ChdayID = rst!DayID chtimeID = rst!timID chcourseID = rst!courseID rst.MoveNext Next I repNo = 0 End If rst.Close Noo = 0 strsql = "SELECT OneCan.canID, OneCan.CancourID, OneCan.canDate, OneCan.canroomID, OneCan.canDayID, OneCan.cantimID " & _ "FROM OneCan " & _ "WHERE (((OneCan.canDate) = #" & Format(daa(PP), "mm dd yyyy") & "#)) ORDER BY OneCan.canID ;" Set rst = CurrentDb.OpenRecordset(strsql) If rst.RecordCount > 0 Then While Not rst.EOF rst.MoveNext Noo = Noo + 1 Wend rst.MoveFirst For I = 1 To Noo Ro = DLookup("Room", "Room", "RoomID = " & rst!canroomID) CourseNm = "Cancel" & DLookup("SchName", "Newcourse", "Id =" & rst!CancourID) Me("Ocp" & PP & Ro & rst!cantimID) = CourseNm ' اسم مربع النص Me("Ocp" & PP & Ro & rst!cantimID).Tag = rst!canID Me("Ocp" & PP & Ro & rst!cantimID).BackColor = 2237106 Me("Ocp" & PP & Ro & rst!cantimID).ForeColor = 15792895 Me("Ocp" & PP & Ro & rst!cantimID).FontSize = 10 rst.MoveNext Next I End If rst.Close chRoomId = 0 ChdayID = 0 chtimeID = 0 chcourseID = 0 Noo = 0 strsql = "SELECT excpDate.excpID, excpDate.courseID, excpDate.excpDate, excpDate.roomID, excpDate.DayID, excpDate.timID " & _ "FROM excpDate " & _ "WHERE (((excpDate.excpDate) = #" & Format(daa(PP), "mm dd yyyy") & "#)) ORDER BY excpDate.excpID;" Set rst = CurrentDb.OpenRecordset(strsql) If rst.RecordCount > 0 Then While Not rst.EOF rst.MoveNext Noo = Noo + 1 Wend rst.MoveFirst For I = 1 To Noo Ro = DLookup("Room", "Room", "RoomID = " & rst!RoomID) CourseNm = "Exp" & DLookup("SchName", "Newcourse", "Id =" & rst!courseID) ' & " " & Left(DLookup("courseSubNa", "Newcourse", "Id =" & rst!courseID), 5) & " " & DLookup("trainer", "Newcourse", "Id =" & rst!courseID) If chRoomId = rst!RoomID And ChdayID = rst!DayID And chtimeID = rst!timID - 1 Then repNo = repNo + 1 Me("Ocp" & PP & Ro & rst!timID).Visible = False Me("Ocp" & PP & Ro & (rst!timID - repNo)).Width = wdStan.Width * (repNo + 1) + (60 * repNo) Else Me("Ocp" & PP & Ro & rst!timID) = CourseNm Me("Ocp" & PP & Ro & rst!timID).Tag = rst!excpID repNo = 0 End If Me("Ocp" & PP & Ro & rst!timID).BackColor = Nz(DLookup("CourseColor", "cName", "courseName ='" & DLookup("courseNa", "Newcourse", "Id =" & rst!courseID) & "'"), 15570276) chRoomId = rst!RoomID ChdayID = rst!DayID chtimeID = rst!timID rst.MoveNext Next I End If rst.Close Next PP MsgBox "Done" End Sub

السلام عليكم ارجو مساعدتي في هذه المسالة الصعبة جدا ورفد المحتوى العربي بالمعلومات عن برمجة OOp في اكسس لدي نموذج لتسجيل الدفعات وفيه نموذج فرعي اقوم بفتح النموذج العام بطريقة instance بمعنى انني استطيع فتح الكثير من النوافذ لنفس النموذج المشكلة التي لم اجد لها اي حل ان النموذج الفرعي يتم التعامل معه مباشرة وهو امر يسبب مشاكل كبيرة عند فتح اكثر من نموذج عام ونريد ادخال بيانات في النموذج الفرعي لاحد النماذد العامة حيث يتم الادخال في النموذج الفرعي الموجود ضمن اخر نموذج مطابق تم انشاءه هل يمكن وضع نموذج فرعي instance داخل النموذج الرئيسي؟؟؟ لفهم المطلوب تماما قم بفتح دفع متعدد اكثر من نافذة ثم قم بوضع المؤشر ضمن اسم الحساب في اول نموذج فتحتة قم بكتابة اي جزء من الاسم اختر اي اسم من النموذج الجديد وانقر موافق وانظر النتيجة كيف ستظهر في اخر نموذج قمت بفتحه Database5.zip

لقد وجدت كل ماهو مطلوب للباركود 1D والباركود QRلقراءة الباركود وعملية استرجاع السجل وعن طريق كميرا ويب

الاخوة الاعزاء السلام عليكم و رحمة الله و بركاته كان بالمنتدى موضوع عن الباركود و الاكسس و على ما اذكر ان وقتها كان الكلام على الباركود العادى 1d و كان سهولته ان الاجهزة التى تستخدم لقراءته تعرف تلقائيا على النظام و تكتب ما تقرأه مباشره فى الاكسس المهم نظرا لصعوبة حصولى على جهاز قارئ للباركود لغلو ثمنه صرفت النظر عن الفكره و لكن منذ فترة و انا ارى اشكال الباركود متغيره على علب البيبسى و بعض المنتجات و عندما بحثت عرفت ان هذا النوع اسمه QR Barcode و لمن يريد الاستزاده http://en.wikipedia.org/wiki/Qr_code المهم وجدت به مميزات كثيره ووجدت ان كاميرا الموبايل مع نظام الاندرويد بتقرأه عادى ففكرت ان اكيد كاميرا الكمبيوتر الخاصه بالويب web cam هتقرأه هى كمان بعد بحث وجدت برنامج يقرأ هذا الباركود بواسطة الويب كام و كان رائع http://www.quickmark...ownloadMain.asp ثم وجدت برنامج لعمل هذا الكود و جربته على الاكسس و كان اكثر من رائع و لو انه ديمو http://strokescribe.com/en/about.html السؤال هو كيف استخدم الويب كام لتقرأ هذا الباركود داخل الاكسس اى على مرحله واحده لتجريب الباركود تحتاج إلى تنصيب IDAutomation_QRCodeFontEncoderDEMO http://www.idautomation.com/barcode-fonts/2d/qr-code/download.html جزاكم الله خيرا Database6.rar

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

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

السلام عليكم ارجوكم احتاج لمساعدتكم في مشكلة طالما عانيت منها في برامجي على الاكسس عندما اقوم بربط استعلام مع نموذج لياخذ قيم محددة لاكثر من مربع سرد تظهر لدي مشكلة حقيقية عند وجود قيم فارغة فتظهر النتائج الاستعلام خطأ ارجو منكم تحميل المرفق وتجريب عملية الاستعلام للموظف هاني (تعمل بشكل صحيح ) لان كافة الحقول تحوي قيم ليست فارغة وتجريب الاسم خالد حيث لا تظهر سوى نتيجة واحدة وهي النتيجة التي تحوي كافة الحقول وتجاهل باقي الحقول لانها فارغه وتجريب نوع المعاملة ساعية كيف تظهر النتائج خطا ارجوكم ساعدوني فقد عانيت كثيرا من هذا النوع من المشاكل ولم اجد حل لها Database5.rar

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