نموذج يهتز في ويندوز ويثبت في اخر

للرفع

هل بالنموذج

tab control

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

أخي الكريم ، لقد صادفت هذه المشكلة من قبل وكان أن وجدت هذا الحل :

right click on desktop ---->properties ----> settings

ومن ثم ضع عند screen resolution أو _ دقة الشاشة _ ضع الرقم الموجود في الويندوز الذي لا يهتز

عندما فعلت هذه الطريقة ، عاد كل شيء كما كان والحمد لله ،

وأعتقد أن الحل لمشكلتك يتم عبر هذه الطريقة ، والله أعلم

وأعذرني إن لم يكن هذا هو الحل

ضع الرقم الموجود في الويندوز الذي لا يهتز

ما هو الرقم الذى لا يهتز؟

وشكرا اخى

تفضل أخي الكريم :

اخى واستاذى hamidymom

اشكرك على اهتمامك

فعلت ما شرحت لى

ولكنى وجدت دقة الشاشة في الويندوزين واحدة

فماذا افعل ؟

وشكرا استاذى

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

أخي الكريم محسن سرحان

هل بإمكانك أن ترفق قاعدة البيانات ؟

إذا كان نعم ، حصل خير إن شاء الله تعالى .

أما إذا كانت كبيرة ولا يمكنك أن ترفقها :) فأرجوا الإجابة على الأسئلة التالية :

1- هل النموذج وضعت فيه أمر أو كود عند _ عداد الوقت _ أو بالإنكليزي _on timer _ ؟ إذا كان نعم ( ما هو ؟) وإذا كان لا ننتقل إلى السؤال الثاني

2- هل كل النماذج تهتز في القاعدة ؟ ( إذا كان لديك نموذج واحد أنشئ نموذج آخر وراقب )، إذا كان الجواب كلا ، فقط هذا النموذج هو الذي يهتز . فأرجوا أن ترجع إلى السؤال الأول وتلاحظه بدقة ! أما إذا كانت الإجابة نعم ، فننتقل إلى السؤال الثالث

3- أخي الكريم ، إذا وصلت إلى هذا السؤال فاعلم أن الخطأ هو من الويندوز أي من الذي سبق وقلت لك عنه !

على كل أخي الكريم ، إن لم تكتشف أين الخطأ حاول أن ترفق القاعدة أو أن تحمل برنامج يعمل صيانة لملفات الأكسس مثل access recovery أو ما إلى هنالك من البرامج المساعدة .

استاذى العزيز

والله هذا كثير كثير جدا علىّ كل هذا التعب

بالفعل النموذج به حدث عند عداد الوقت

والحدث هو

Dim myInterval As String

If IsEmpty(LastCopy) Or LastCopy = Empty Then LastCopy = Nz(DFirst("[LastCoptDate]", "[OptCopies]"), Empty)

If LastCopy = Empty Then

Call DataCopy(False)

Exit Sub

End If

If TimerTall = 0 Then TimerTall = Nz(DFirst("[Every]", "[OptCopies]"), 0)

If TimerTall = 0 Then Exit Sub

If TimerKind = 0 Then TimerKind = Nz(DFirst("[DayOrHour]", "[OptCopies]"), 0)

If TimerKind = 0 Then Exit Sub

If TimerKind = 2 Then myInterval = "h" Else myInterval = "d"

If DateDiff(myInterval, LastCopy, Now) >= TimerTall Then Call DataCopy(False)

وشكرا استاذى

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

صديقي محسن

تكرم عيونك ، حللت أهلاً ووطأت سهلاً :)

اخى العزيز

ذكرت لك ان النموذج به كود عند عداد الوقت

فما الحل

وشكرا اخى

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

عزيزي محسن سرحان

أرجوك أن تعذرني لأنني اعتقدت أنك وجدت المشكلة وحللتها بنفسك ، ولكن خيراً إن شاء الله ،

أرجو أن ترفق قاعدة البيانات هذه لأنه هناك أيضاً بعض الأكواد يطبقها البرنامج لم ترسلها أخي الكريم