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

kamel2711

03 عضو مميز
  • Posts

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

  • تاريخ اخر زياره

كل منشورات العضو kamel2711

  1. سلام عليكم تحية خاصة الى الاستاذو الاخ جعفر و الاستاذ على المصري والى الاصدقاء المنتدى الرائع و المفيد أما بعد محاولتي في تحويل الحروف الى (*****) في كلمة السر الكود يوضح دلك مع انشاء جدول خاص يتضمن pass login في قاعدة وليكن Table2 ولفتح النمودج table1 Private Sub Commande1_Click() كود خاص بالزر Dim db As Database Dim rs As Recordset Dim password As String Set db = CurrentDb Set rs = db.OpenRecordset("select pass from Table2 where login = '" & Me.login & "'") With rs If Not .EOF Then password = !pass If password = Me.pass Then DoCmd.OpenForm ("Table1") Else MsgBox ("PASSWORD INCORECT") Exit Sub End If Else MsgBox ("PASSWORD INCORECT") Exit Sub End If End With rs.Close db.Close End Sub
  2. سلام عليكم قي بداية أشكر أخي جعفر على كل مساهمتة وقد نفعنا كثيرا اما بعد هناك طريقة سهلة لدخول الى قاعدة بيانات مع التشفير chiffrer une base de donneés 1_ في بداية قم بفتخ القاعدة بةاسطة 2- احتر Chiffrer avec mot de passe. ثم ادخل الاسم المراد سيتحول الى نجوم وشكرا لكم
  3. سلام علـــــــــــــــكم ------------ أخي الكريم---------- في مايخص طباعة سجل معين يكفي ان تقوم بمايلي 1- انشاء استعلام وليكن استعلام1 ثم تقوم جلب assistant de etat واحضار استعلام1 وليك كود استعلام وشكرا Comme "*" & [Form]![Table1]![Text] & "*" Table1 اسم الجدول Text مجرد اسم
  4. سلام عليكم 1 قم بانشاء قاعدة بيانات فارغة ثم قم import/export وجلب قاعدة بيانات 2 او اصلاح office2007
  5. سلام عليكم استعمل code sql dans votre requettel SELECT DISTINCTالعمود FROM اسم الجدول
  6. سلام عليكم لم أتمكن من بعث صور للاضاحة الطريقة 1-يوجد زر في الاعلى الخاص اوفيس بعد النقر عليه اختر option access 2 اختر personnaliser ثمongle complement ثم commande de menu ثم اختار bouttonالمناسب وقم بعملية السحب نحوى الاعلى
  7. سلام عليكم أخي بمايخص menubar كما هو مضح في الصورة لكن عندي تسخة فرنسية ثم تخنار ثم تقوم بالسحب الا على commandes de menu _ menubari
  8. Expr1: AjDate("j";10;[date_n]) يوضع في الاستعلام j خاصة بعدد الايام date-n العمود 10 رقم على سبيل المثال سلام عليكم بخصصوص اضافة عدد أيام لتاريخ معطى لقد وجدت الحل شكرا لكم
  9. سلام عليكم في الحقيقة حولت ولم أفلح في دلك الفكرة هو لديا ---------- عامل اراد ان يأخذ عطلة سنوية وهي 40 يوما أريد ان أعمل برنامج يقوم بالحساب مباشرة بعد ادخال التاريخ معين هل ممكن وجزاكم الله خيرا مل توجد استعلام لدلك؟شكرا للجميع requette
  10. سلام عليكم طريقة سهلة جدا المرفق وشكرا للجميع أصدقاء الاعضاء Base de données1612.rar
  11. أشكركم أ ستاد عبد الرحمان هشام أستاد علي المصري على الاضافة وحفضكم الله ألف شكر أشكركم أ ستاد عبد الرحمان هشام أستاد علي المصري على الاضافة وحفضكم الله ألف شكر
  12. سلام عليكم هو كيفية البحث بواسطة القائمة في النموذج لقد حولت ولم اتمكن من فعل ذلك المرفق وشكرا للجميع Base de données161.rar
  13. سلام عليكم بخصوص اخر تاريخ استعمل استعلام dernier Requête1 id_ DernierDeتاريخ التوريد معرف العملاء 1 30/01/2016 1 2 11/01/2016 1 3 02/01/2016 1 4 18/01/2016 2 5 26/01/2016 1 6 20/01/2016 2 7 19/01/2016 2 8 04/01/2016 3 9 20/01/2016 3
  14. شكرا للاستاذ جعفر على الاضافات الرائعة شكرا
  15. formulaire1!grafique!Texte4 سلام عليكم لا يمكنك فعل كل ذلك دفعة واحدة في الرسم ادخال الرقم بل واحدة فقط انضر المرفق ولا تنسي اصغط مرتين على الفورم1 او active le continue Database3.rar
  16. اخي الكريم انه يوجد نقص في العلاقات بين الجداول المهم لقد وجدت gestion de stock بالفرنسية الق نظرة عليها ممكن تساعدك Stock (2).rar
  17. ابعث المرفق وسوف الاصدقاء المنتدى يساعدونك ان شاء الله في الطريقة الصحيحة
  18. سلام عليكم نعم تستطيع العمل ذلك وهذا بانشاء تقرير عن طريق استعلام المراد البحث عن اسم( سجل9) ثم تقوم export ver word فقط وتضهر التسجيلة في الوود
  19. سلام عليكم ألق نظرة على و ارجو يكون المطلوب بخصوص البحث في الرسم حسب الرقم Database3.rar
  20. سلام عليكم اخي ارجوا ان تبعث المرفق لكي نقوم بالتعديل عليه من طرف الاصدقاء المنتدى شكرا
  21. سلام غليكم انظر المثال الخاص بي لابدا من تستعمل استعلام وتدخل للاسم المراد لطباعه فقط Base de données16.rar
  22. سلام عليكم يمكن ترجع الى قاعدة بيانات الخاصة بك وتبدا في تغيير الحقول لديك بواسطة الفأرة couper ou unsért une ligne
  23. SELECT Max(Info.[Visit Date]) FROM Info; سلام عليكم أشكر الاخ كذاك يمكن تسعمل requette de sql jandbi
  24. Private Sub txtQuant_AfterUpdate() If Me.txtQuant > Me.txtStock Then MsgBox "Le stock est insuffisant" غير كافي المخزون Me.txtQuant = Null Exit Sub End If سلام عليكم بخصوص ترك رسالة عن الكمية الموجودة في المخزن quant > stock
×
×
  • اضف...

Important Information