ابوخليل

ما فيه شي اسمه حدث بعد التحميل لتيكست بوكس 

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

وانت كتبت الكود فعلا .. فقط قم بترجمته

if com = "كذا" then
t1.SetFocus
elseif com = "كذا" then
DoCmd.OpenForm " mok", acNormal
end if

منذ ساعه, alhourriah said:

 ولكن هل هناك من طريقة افضل بحيث احمله على نموذج واحد وتلقائياً يتحمل على النماذج الأخرى؟

 

ليس بالفكرة التي تفكر بها .. اذ لا بد من حدث في كل نموذج او تقرير .. ولكن حدث من حدث يختلف

لنفرض مثلا  ان الشعار بجانب قاعدة البيانات مباشرة .. وعملت الكود على هذا النهج في جميع النماذج والتقارير ... ثم بدا لك ان تجعله داخل مجلد بجانب قاعدة البيانات

هنا .. يجب عليك التعديل في جميع النماذج والتقارير .. وهذا لا شك مرهق

الحل هو عمل وظيفة .. (وحدة نمطية عامة) تحتوي على مسار الشعار  ... وفي النماذج والتقارير عند الفتح تستدعي هذه الوظيفة .

الآن يمكنك تغيير مكان الشعار في اي وقت .. والتعديل سيكون على الوحدة النمطية فقط

في 22‏/2‏/2024 at 11:32, alhourriah said:

 

 وبدأت ببناء المدخلات التي أحتاجها ومن ثم بناء النماذج والجداول والتقارير.

 

نعم انت بدأت ببناء الجداول بطريقة سليمة

ولكن النماذج اخذتها نسخ ولصق ولم تعملها بيدك

لا مشكلة في ذلك ولا اعتراض فهذا عملنا دائما نختصر الجهد والوقت 

ولكن ان تصنعه بنفسك مهم جدا لك كمبتدء

مثلا النموذج الرئيسي .. المتوقع ان تسأل كيف تتم عملية اخفاء وظهار الازرار .. وهل يوجد طريقة اكثر احترافية لتلافي التكرار الموجود في الاكواد

لانه يوجد فعلا اكثر من طريقة ويوجد في المنتدى مواضيع تناولت الموضوع وخاصة النموذج هذا

في 22‏/2‏/2024 at 11:32, alhourriah said:

 

على سبيل المثال، أريد عند إدراج شعار للمنشأة أن يقوم هذا الشعار بالتحديث تلقائي بين النماذج الأخرى والتقارير

 

 

هنا الأمر يسير .. سوف يكون مربع الشعار في جميع النماذج والتقارير .. يكون مسار الصورة او الشعار واحد

اي ان السطر الذي تكتبه لاظهار الشعار في نموذج فقط تنسخه وتلصقه في باقي النماذج والتقارير

2 ساعات مضت, العبيدي رعد said:

 

Dim i As Long, x As Long

 

المقصود في المتغيرات :

السطر اعلاه في اول مثال لك كان   Dim i As Integer, x As Integer

والصحيح ان يكون :

 Dim i As Double, x As Double

2 ساعات مضت, العبيدي رعد said:

ماذا  تقصد  ممكن  التوضيح  اكثر   dbi   ماهو  ؟

Dbl وليست Dbi  اختصار لـــ Double

احيانا تحدث معي  ..  اقف حائرا امام مسألة ويكاد ينفجر رأسي من التفكير والمحاولات ... فالخطأ الذي يظهر امامي غير منطقي

لأني استوفيت كل المتطلبات وطبقت بصورة صحيحة

وبعد بذل الكثير من الجهد والوقت اتوقف ( استراحة محارب )  .. ثم اعيد المسألة من الصفر.. فأعثر على السبب

ودوما يكون سبب الخلل تافه جدا .. لا يخطر على البال

السلام عليكم

مشاركة معكم احبتي

الأخطاء طفيفة فقط بحاجة الى تأني كالتالي :

1- اعلن عن المتغيرات integr والواجب تكون Dbl

2- في المقارنة اخطأ ووضع اصغر من بدلا من اكبر من ... وهذه هي مشكلته الأساسية

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

Ab.rar

الحمد لله .. جزاك الله خير

وهذا برنامج مدفوع .. بحثت في مكتبتي فوجدته

 للاخ ابو ريان الزهراني

ALZHRANI.rar

عليكم السلام

مرحبا اخونا محمد

ايش صار على برنامج الخياطة ؟ هل اكتمل ؟

بالنسبة لطلبك :

اطرح هنا آلية العمل على ارض الواقع .. اشرحها بالتفصيل الدقيق الممل

وسنساعدك على تنفيذ الفكرة ان شاء الله

عليكم السلام

الدالة iif  تقوم بالمهمة على اكمل وجه

myDate:iif([t]="1",date_dim,iif([t]="2",date_lun,iif([t]="3",date_mar,iif([t]="4",date_mer,iif([t]="5",date_jeu,"")))))

times2024_2.rar

مشاركة لعل فيها فائدة

لنسخ النصوص او الملفات

كود نسخ
SendKeys ("^(c)"), True

كود لصق
SendKeys ("^(v)"), True


كود نسخ ولصق ملفات
On Error Resume Next
filecopy "c:\firstfolder\db1.mdb","e:\secondfolder\db1.mdb"
if Err then
       msgbox "copy error"
end if

10 ساعات مضت, Abdelaziz Osman said:

اقصد برنامج  المستخدم وليس قاعدة البيانات

ايضا من خلال امثلة الاخوة الكرام

بعد انقضاء الوقت

يمكنك اظهار شاشة الدخول والمطالبة بكلمة المرور ويبقى البرنامج غير مفعل في الخلفية

ولكن مشاركة الاستاذ محمد في سبتمبر 2020 

الأساسات اولا

كما سبق وذكرت .. الجداول وتصميمها بطريقة علمية صحيحة بمايخدم المشروع ..

رؤية مسبقة وتصور لما سينتهي عليه المشروع 

1- مدخلات

2- مخرجات

كل هذا اثناء تصميم الجداول

في نهاية هذه المرحلة نكون انجزنا  70% - 80%  من المشروع

يتبقى 30% هي عملية النماذج والتقارير

تفضل

فقط نكرر الأمر عند حدث مفتاح السهم

serch2.rar

هذا مرفق كنت عملته للبحث عن الأخطاء وسببها .. باللغة العربية

AccessAndJetErrorsاخطاء اكسس بحث.rar

جميل جدا  كتأسيس

ولكن كتحليل بيانات .. الإجازات بحاجة الى جدول فرعي يخصها  يرتبط بجدول الأسماء بعلاقة واحد لمتعدد يكون الرابط هو معرف الموظف

السبب ان الاجازات مستمرة وكل اجازة يختلف وقتها ومدتها عن الأخرى فلا بد من رصد كل اجازة على حدة

فعلى الوضع الحالي :

بعد عشر سنوات لو اردت الاستعلام عن الاجازات التي تمتع بها الموظف لن تجد الا واحدة فقط لأن كل واحدة يتم تسجيلها ستلغي وتحذف ما قبلها

آمين وإياكم

يا رعاك الله يا خير الإيمان

المثال على اسمه مثال  بارك الله فيك

اكثر من 4000 سجل كثيرة والحجم كبير وتكون عبئا على المنتدى

---------------------------

المكان الصحيح لعدد سجلات الصفحة في التقرير هو ذيل الصفحة وليس رأسها ، لأن الحدث يأتي بالترتيب

تفضل تم اظهار عدد كل صفحة والعدد الكلي في نهاية التقرير

Public intPageCount As Integer

Private Sub Report_Open(Cancel As Integer)
intPageCount = 0
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
intPageCount = intPageCount + 1
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
  txtPageCount = intPageCount
        intPageCount = 0
End Sub

كشف2.rar

تفضل

الكل يعمل

baseF2.rar

دعني اوصل لك المعلومة بطريقة اخرى لعلك تفهم ما اقصده اعلاه

عند ظهور نتيجة الفلترة انت تتعامل مع استعلام يحمل بيانات الفلترة فقط

عندما تفلتر على الموضوع مؤكد ستجد اكثر من سجل يحمل الموضوع نفسه وهذه السجلات كلها موجودة في الاستعلام ويمكنك الذهاب للسابق وللتالي ضمن هذه السجلات المفلترة

ولكنك عندما تفلتر على المعرف هنا لا يوجد غير سجل واحد يحمله الاستعلام ..  يعني مافيه ذهاب للامام ولا للخلف

لهذا اشرت عليك باخراجه لوحده خارج الفلترة .

قلت يمكن اني رفعت المرفق الخطأ

ولكني تأكدت

اخي اذا بحثت في معرف السجل فلست بحاجة الى اي بيانات اخرى .. فالمعرف فريد  وسيظهر سجل واحد فقط وهو الموجود في الجدول

في التعديل حذفت الازرار والاكواد وابقيت على التالي والسابق

عند حدث بعد التحديث لمربع التحرير  ينقلك الى السجل الذي اخترت معرفه وتظهر جميع بيانات السجل

وحين تنقر على التالي او السابق سوف ينقلك الى السجل التالي او السابق

هل ما ذكرته اعلاه صحيح ؟؟؟

اذا صحيح .. فلست مجبر ان تدخل مربع التحرير هذا ضمن التصفية ويمكنك ان تكتفي بتصفية الحقول الأخرى

1 ساعه مضت, moho58 said:

مشكور أستاذنا الكبير على الرد والمتابعة

لكن أستاذنا أنا أريد الابقاء على عملية البحث والفلترة : يعني ابقاء كل شئ كما هو  واضافة هذه الخاصية

 

 

اي فلترة ؟؟

اذا اخترت المعرف فليس لك خيار الا سجل واحد 

فوجود الفلترة لا معنى له

عليكم السلام

المجاميع المتغيرة ليس مكانها الجدول

فقط يتم عرضها في النماذج والتقارير  بواسطة الاستعلام .. او الكود كمصدر بيانات للحقل

sumAm: nz(dsum("amount","tbl_BonusAmount","no_emp='" & no_emp & "'"),0)

test12.rar

حسب طلبك بالضبط .. وحتى يكون الجواب طبق الأصل من السؤال

نظفت المثال من جميع الاكواد والازرار الزائدة

يمكنك نقل الحل الى برنامجك

baseF.rar