اذهب الي المحتوي

محمد احمد لطفى

05 عضو ذهبي
  • Content Count

    1,094
  • تاريخ الانضمام

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

السمعه بالموقع

122 Excellent

1 متابع

عن العضو محمد احمد لطفى

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    Accountant
  • بلد الإقامة
    مصر
  • الإهتمامات
    كمبيوتر

اخر الزوار

1,331 زياره للملف الشخصي
  1. أستأذنك أستاذى @أبو عبدالله الحلوانى ممكن ممكن تنفذها لأنى معرفش أعمل دول 2- مع ازالة البرمترات 3- والغ تعليق الأكواد المعلقة داخل المودل. و لا يعنى ارجعها ذى الكود فى المشاركة الاولى مع تغيير ـ function الي sub
  2. جزاك الله خيرا أستاذى سأقوم بتجربتها غدا على الشبكة و هل يمكن أن تكون البيانات فى الوحدة النمطية أيضا Call OpenServerConnection("\\corp-server\HostingFolder", _ "mydomain\myuser", _ "freddie123") و يتم منادتها فى النموذج مثل هذا الكود فقط Call OpenServerConnection()
  3. أستاذى @أبو عبدالله الحلوانى الكود يعمل بالفعل و تم تجربته أنا و أستاذى @ابا جودى أريد وضعه فى وحده نمطية و يتم استدعائها فى النموذج بدلا من وضع الكود على الزرار
  4. السلام عليكم ورحمة الله و بركاته فى هذا النموذج أريد ادخال الكود التالى وهو عبارة عن فتح جهاز اخر على الشبكة بواسطة اسم المستخدم وكلمة السر فى وحدة نمطية ليعمل من الزرار الذى فى النموذج عن طريق كود صغيير Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing وجزاكم الله خيرا من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً Ip.accdb
  5. تفضل كان يجب اضافة الحقول بطريقة صحيحة وانظر التتغيير فى استعلام التقرير متابعة غيابات الطلبة.mdb
  6. شكراُ أستاذى @AlwaZeeR شكرا أستاذى @essam rabea هذا هو المطلوب شكراً أستاذى @ابا جودى جزاكم الله كل خير
  7. السلام عليكم ورحمة الله وبركاته ازالة المسافة اول الجملة عن طريق وحدة نمطية مثل الموجود فى المرفق و لكنه يغير حرف ي الى ى فى اخر الكلمة وجزاكم الله خيراً Update -12.mdb
  8. Me.KeyPreview = True من غيرها الزراير مش هتشتغل و ممكن تنفيذها بدون كود من خصائص النموذج اختار مفتاح معاينة بدلا من لا نجعلها نعم أما بانسبة KeyCode = 0 اذا كان الزرار مثل F1 يظهر نعليمات Help لن تظهر التعليمات
  9. أولا فى حدث عند الفتح ضع الكود Me.KeyPreview = True ثانيا فى حدث مفتاح لاسفل ضع الكود If KeyCode = vbKeyF1 Then DoCmd.OpenForm "اسم النموذج" KeyCode = 0 end if
×
×
  • اضف...