اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    6,200

  • تاريخ الانضمام

  • Days Won

    150

 نوع المحتوي 

كل منشورات العضو ابو جودي

  1. ابو جودي
    ابشر ان شاء الله جارى العمل على اعداد قاعدة البيانات كما تريد
  2. ابو جودي
    الموضوع بسبب اللغة المستخدمة فى محرر الاكواد اكتب اللغة فى محرر الاكواد باللغة الانجليزية فقط ولا تستخدم اى لغة اخرى حتى لو عملت تلميح لابد ان يكون بالانجليزية وعند كتابة الرسائل استخدم Unicode
  3. ابو جودي
    السلام عليكم هل هذا ما تريده عمودي.accdb
  4. ابو جودي
    countdown timer.accdb
  5. ابو جودي
    انا مش فاهم المطلوب تحديدا بس شوف كده checkbox.rar
  6. ابو جودي
    طيب ضع فى النموذج فى وضع التصميم مربع نص باسم txtTimer وضع زر امر فى حدث الوقت للنموذج ضع الكود الاتى txtTimer = txtTimer - 1 If txtTimer = 0 Then 'do your event. MsgBox "end of time" TimerInterval = 0 ' Stop the timer End If وفى حدث زر الامر ضع الكود الاتى If IsNull(Me.txtTimer) Or Me.txtTimer = Empty Or txtTimer = 0 Or Len(Me.txtTimer) = 0 Then Exit Sub TimerInterval = 1000 ' 1 second
  7. ابو جودي
    وقد تفيدكم الافكار فى هذا المثال من حيث - اخراج المستخدمين - منع دخول المستخدمين لحين انتهاء الادمن من عمل الاصلاح
  8. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته باقي سويعات قليلة ويعم الفرح وتشتعل الأنوار وتربط الشياطين ويبدأ مشوار الاطمئنان ويبدأ إعداد الفطار والسحور وتعلوا المساجد بأصوات التراويح اللهم بلغنا وإياكم وكل المسلمين رمضان وأنت راضي عنا اللهم أمين. من القلب أرسل إليكم تهنئة ملؤها الحب والدعاء لكم بقبول الطاعات والأجر الكبير رمضان كريم لاساتذتى الكرام وللأصدقاء الغالين وأطيب القلوب بمناسبة حلول شهر رمضان المبارك يسعدني أن أبعث إليكم أطيب التهاني والأماني سائلا الله أن يجعله شهر خير وبركة وأن يكتب لنا ولكم صيامه وقيامه وأن يجعلنا وإياكم من عتقائه من النار وأن يعيد علينا وعليكم هذه المناسبة أعوام عديدة وأزمنة مديدة أنه سميع مجيب. اللهم كما رزقتنا الإسلام بغير حول منا ولا قوة، نسألك أن ترزقنا رحمتك ومغفرتك في شهر رمضان، وأن لا تخرجنا منه إلا وقد رضيت عنا، وغفرت لنا ما تقدم من ذنوبنا وما تأخر. اسأل الله أن يبارك لكم في شهر الطاعات والرحمات وأن يرزقكم فيه الدرجات وأن يختم لكم فيه بالصالحات.
  9. ابو جودي
    يا باش مهندس هى قاعدة خلفية واحدة فقط وقاعدة امامية واحدة مرتبطه بالخلفية ايا كانت طريقة الربط كل ما هنالك القاعدة الامامية سوف يتم تشفيرها مرتان على كل نواة وتعطى للعميل القاعدة الخلفية مع القاعدتان الاماميتان المشفرتان
  10. ابو جودي
    القاعدة الخلفية فى كل الاحوال accdb ولا يوجد بها اى اكواد لذلك لا علاقة لها بالموضوع تلك الجزئية فقط تخص القاعدة الامامية عندما ترسلها الى العميل بالامتداد Accde فقط المطلوب منك كمبرمج عمل الاتى 1- مراعاة كتابة دوال الـ API بما يناسب العمل على النوتان 32 , 64 وطبعا تتأكد من عمل الدوال بالشكل الصحيح بتجربتها على النواتان 2- تحويل القاعدة الى Accde من خلال الأوفيس ذو النواة 32 3-تحويل القاعدة الى Accde من خلال الأوفيس ذو النواة 64 وتعطى للعميل القاعدة الخلفية مع قاعدتان اماميتان احداهما Db64.Accde والاخرى Db32.Accde
  11. ابو جودي
    هذا بسبب استخدام FindRecord ولا احبذ استخدامه لكن لو جدلا اردنا استخدامها يكون بالشكل الاتى Private Sub كود_شحنة_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "إضافة شحنة" stLinkCriteria = "[كود_الشحنة]=" & Me![كود_الشحنة] DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog 'Call [Form_إضافة شحنة].SetFocus ' 'DoEvents End Sub
  12. ابو جودي
    لم انتبه الى ذلك بارك الله فيك يا باش مهندس
  13. ابو جودي
    يا باش مهندس اهلا بيك انت تتفضل على طول بلا اى اذن انا طويلب علم اتعلم منكم ومن كل اساتذتى أما بخصوص تلك الخاصية التى اشرتم اليها تقريبا فكرت فيها مسبقا بزضع الكود الاتى لانها تقوم بنفس عملها DoCmd.OpenForm "إضافة شحنة", , , , , acDialog ولكن اتى الرد الاتى على الفور
  14. ابو جودي
    اذن اسمح لى بالتدخل فى وضع طريقة أخرى Private Sub كود_شحنة_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "إضافة شحنة" stLinkCriteria = "[كود_الشحنة]=" & Me![كود_الشحنة] DoCmd.OpenForm stDocName, , , stLinkCriteria Call [Form_إضافة شحنة].SetFocus DoEvents End Sub وللعلم ان اردت استخدام الكود تبعك كما هو استخدم الكود كالاتى Private Sub كود_شحنة_Click() On Error Resume Next Dim S S = كود_شحنة DoCmd.OpenForm "إضافة شحنة" DoCmd.FindRecord S Call [Form_إضافة شحنة].SetFocus DoEvents End Sub
  15. ابو جودي
    الشكر لله سبحانه وتعالى ثم لكم ابى الحبيب ومعلمى القدير و استاذى الجليل ولجميع اساتذتى الذين تعلمت منهم ومازلت اتعلم اسأل الله العظيم رب العرش العظيم أن يبارك لكم في عمركم وعلمكم وان يتقبل عملكم وان يبارك لكم فى أهلكم و أحبابكم و ولدك و مالكم وأن يكتب لك الخير حيثما كنتم وأن يوسع عليكم في الرزق وأن يبارك لك في رزقكم واسأل الله أن تكون أعمالكم في ميزان حسناتكم يوم القيامة يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم أدامكم الله تعالى على رؤسنا و البسكم ثوب الصحة والعافية أدامكم الله تاجا فوق رؤوسنا و نورا في قلوبنا و ضياء في دروب حياتنا و بسمة على شفاهنا و حكمة تهدي طريقنا اللهم آمين ،اللهم آمين،اللهم آمين 🤲 لا ادري ماذا اقول لك سوى احبكم وكل اساتذتى الكرام واخوانى فى الله ولوجه الله
  16. ابو جودي
    ابى الحبيب و معلمى القدير واستاذى الجليل جزانا الله واياكم خير الجزاء
  17. ابو جودي
    فقط غير السطر الاتى DoCmd.OpenForm "إضافة شحنة" بالسطر الاتى DoCmd.OpenForm "إضافة شحنة", , , , , acDialog
  18. ابو جودي
    t11 (1).accdb
  19. ابو جودي
    DCount("*", "frm_RD", "report_No =" & Me.txtSearch) الخطأ هنا دوال المجال هموما تعمل مع الجداول او الاستعلامات وليس النماذج راجع هذه المشاركة لتتعلم بناء كود دوال المجال
  20. ابو جودي
    هو ممكن بس اذا فيها قيمه شو الحكمة ؟
  21. ابو جودي
    طيب اتفضل راجع الموضوع الاتى وراجع المشاركة الاتيه لنفس الموضوع تجد فيها مربع السرد المتعدد اما بخصوص اخفاء كافة الاستعلامات والنماذج والتقارير والماكرو والوحدات النمطية (الاوامر البرمجية ) او المديول بحيث لا تظهر عند اظهار الملفات المخفية لا بمكن عمل ذلك الا مع الجداول فقط
  22. ابو جودي
    طيب الشئ بالشئ يذكر انا لم اقل انه الاصح ولا الاكثر امانا بل هو ليس امن ولا انصح باستخدام الكود مع باقى جداول قاعدة البيانات لان اخفاء الجداول بهذا الكود ينتج عنه مشكلة فى الحقول الى تعتمد على مربع السرد المتعدد وتفقد البيانات منها لذلك انا فى سلسلة الافكار والتى تخص حماية قاعدة البيانات سوف أكتفى فقط باخفاء الجدول الخاص ببيانات التفعيل لقاعدة البيانات وطبعا سوف اتجنب فيها استخدام حقل يعتمد على مربع السرد متعدد البيانات
  23. ابو جودي
    طيب اخفى الجدول بطريقتك واظهر الكائنات تجد الجدول موجود ضمن الكائنات المخفية انظر الصورة بينما الكود الذى استخدمته لا يظهر فيها الجدول اصلا انظر الصورة انتظر .. ان شاء الله جارى العمل
  24. ابو جودي
    4- انشاء قاعدة البيانات الأمامية مأمنة بكلمة مرور Public Function DoCreatDatabaseByPassword( _ Optional strDbPath As String = "", _ Optional strNewDbName As String = "", _ Optional strPassNewDb As String = "" _ ) On Error GoTo ErrorHandler Dim wrkDefault As Workspace Dim db As DAO.Database If IsNull(strDbPath) Or strDbPath = Null Or strDbPath = vbNullString Or strDbPath = Empty Or strDbPath = "" Or Len(strDbPath) = 0 Then strDbPath = CurrentProject.Path & "\" If IsNull(strNewDbName) Or strNewDbName = Null Or strNewDbName = vbNullString Or strNewDbName = Empty Or strNewDbName = "" Or Len(strNewDbName) = 0 Then strNewDbName = "NewDB.mdb" If IsNull(strPassNewDb) Or strPassNewDb = Null Or strPassNewDb = vbNullString Or strPassNewDb = Empty Or strPassNewDb = "" Or Len(strPassNewDb) = 0 Then strPassNewDb = "00" Set wrkDefault = DBEngine.Workspaces(0) If Dir(strDbPath & strNewDbName) <> "" Then Kill strDbPath & strNewDbName Set db = wrkDefault.CreateDatabase(strDbPath & strNewDbName, dbLangGeneral & ";PWD=" & strPassNewDb) strDbPath = vbNullString strNewDbName = vbNullString strPassNewDb = vbNullString Set wrkDefault = Nothing db.Close Set db = Nothing ExitHandler: Exit Function ErrorHandler: MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Function التطبيق فى القاعدة المرفقة .. يتبع ... 05- CreatDatabaseByPassword.accdb
  25. ابو جودي
    العفو منكم يا باش مهندس انت تأمر وتفعل ما تريد
×
×
  • اضف...

Important Information

  I accept