سؤال

السلام عليكم....

لقد قمت باستخدام الدالة Environ("Username") في احد استعلامات برنامج اكسس 2003 وعندما قمت بتحويل البرنامج الى اكسس 2007 لم يعمل الاستعلام ويخبرني ان الدالة غير معرفة فما هو الحل وشكرا...

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

عندك :

User = VBA.Environ("UserName")MsgBox (User)

وعندك كمان :

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongFunction fOSUserName() As StringDim lngLen As Long, lngX As LongDim strUserName As String    strUserName = String$(254, 0)    lngLen = 255    lngX = apiGetUserName(strUserName, lngLen)    If (lngX > 0) Then        fOSUserName = Left$(strUserName, lngLen - 1)    Else        fOSUserName = vbNullString    End IfEnd Function

واستدعاء الأخيرة مثلا :

Private Sub Command0_Click()MsgBox (fOSUserName())End Sub

عاوز دوال تاني ولا كفاية ؟

تم تعديل بواسطه أمير2008
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

في البداية مشكور يا اخي على الرد وبارك الله فيك

ولكن سؤالي هو عند استخدام الدالة في الاستعلام وليس في منشي الكود البرمجي ، اي انه عنما اقوم بعملية فرز البيانات في الاستعلام بناء على اسم اليوزر يعترض الاكسس 2007 وهذه المشكلة لم تكن موجوده في اكسس 2003

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

 

هذه الدالة غير مدعومة في اكسيس 2007

 

لذا ليس لك طريقة سوى استخدام هذه الطريقة

 

اولا : ضع هذه الدالة في وحده نمطية جديده

 

Public Function Environ(Expression)On Error GoTo Err_Environ        Environ = VBA.Environ(Expression) Exit_Environ:    Exit Function Err_Environ:    MsgBox Err.Number & " - " & Err.Description    Resume Exit_Environ End Function
 
 
ثانيا : افتح  الإستعلام في وضع التصميم وضع في معيار حقل الإسم هذا التعبير
 
Environ("UserName")

 

 

ثالثا : عند تشغيل الإستعلام سيظهر لك فقط الإسم الموافق للدالة

 

 

بالتوفيق

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله وبركاته

هل من مثل لكي تتم الاستفاده من هذا 

بارك الله بكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .