مساعد بخصوص الغاء الشفت و معاينة التقرير

[nabilbibo]

السلام عليكم

اخواني عندي سؤالين

1- كيف الغي عمل مفتاح الشفت

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

[صالح حمادي]

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

قم بإنشاء وحدة نمطية جديدة و ألصق بها الكود التالي:

Function ap_DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.

On Error GoTo errDisableShift

Dim db As DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False

'The function is successful.
Exit Function

errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If

End Function

Function ap_EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.

On Error GoTo errEnableShift

Dim db as DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True

'function successful
Exit Function

errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If

End Function

خلف زر تعطيل مفتاح الشيفت ضع الكود التالي:

ap_DisableShift

خلف زر تفعيل مفتاح الشيفت ضع الكود التالي:

ap_EnableShift

 

[nabilbibo]

بارك الله فيك اخي جزاك الله كل خير 

و مشكل معاينة التقرير لم اجد له حلا 

[nabilbibo]

اخواني مازال مشكل معاينة التقرير لم يحل ممكن المساعدة و شكراااا

[صالح حمادي]

ربما يكون من الطابعة الإفتراضية

قم بتغيير الطابعة الإفتراضية للجهاز

[nabilbibo]

14 minutes ago, صالح حمادي said:

ربما يكون من الطابعة الإفتراضية

قم بتغيير الطابعة الإفتراضية للجهاز

اخي صالح انا عندي طابعة واحدة فقط 

[صالح حمادي]

اخي نبيل سؤالك غير واضح هل البرنامج يشتغل على جهاز و جهاز آخر لا

أم أنه لا يشتغل أصلا إذا كان كذلك أرفق نسخة و سنحاول التعديل عليها

 

[nabilbibo]

20 minutes ago, صالح حمادي said:

ربما يكون من الطابعة الإفتراضية

قم بتغيير الطابعة الإفتراضية للجهاز

اخي صالح بارك الله فيك على ا الاجابة   

لقد فتحت موضوع اخر بخصوص هذا المشكل كما طلب مني وشكرااا

[Shivan Rekany]

6 دقائق مضت, nabilbibo said:

اخي صالح بارك الله فيك على ا الاجابة   

لقد فتحت موضوع اخر بخصوص هذا المشكل كما طلب مني وشكرااا

تم الجواب عليه

من هنا