ابو طارق سعيد

4 ساعات مضت, Foksh said:

تفضل اخي الكريم ،

مرفق مع التعديلات ، وانت عدل على مزاجك

 

dof3a.accdb 2.01 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

احسنت والله زعيم وقائد

فضلا يا اخوان لدى تقرير اسمه (عرض البيانات ) يعتمد على استعلام

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

والقاعدى مرفقة

dof3a.accdb

10 دقائق مضت, Foksh said:

اخي الكريم انا لم افعل شيئاً ، فقد نقلت الكود من أخونا @شايب  الى مربع السرد فقط 

foksh.zip 100.48 kB · 0 downloads

احلى منسف بجميد كركى لعيونك احلى فوكش

سلمت يمناك

8 ساعات مضت, Foksh said:

هل تقصد كهذه الفكرة  

بعد الكتابة في القائمة المنسدلة ؛ اضغط Enter 

 

Database1(1).zip 139.62 kB · 1 download

يا عينى عليك يا احلى @Foksh

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

وياريت التطبيق يكون على نموذجين zboooooon و zboon

foksh.accdb

احسنت @ابوخليل القائد

عندى تقرير ياخذ اقل من نصف عرض الصفحة a4

عند امتلاء الصفحة لا اريد ان ياخذ صفحة اخرى

بل تقسم الصفحة الى خانتين كما هو موضح بالصورة

27 دقائق مضت, Foksh said:

معلومة قيمة ، جزاك الله كل خير أخونا @شايب 

كنت اعرف ان لا علاقة له ولا يشكل اى مانع ولكن اردت التزام الصمت

عموما ارنا همتك بان يكون البحث بمربع سرد كما ذكر الاخ شايب

منذ ساعه, شايب said:

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

الحقيقة يا غالى انا ما رضيت اغلبك

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

ياريت تطبق الفكرة لو ما فيها ازعاج

@شايب اشكرك يا غالى

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

الخلل كان فى الويندوز

اشكرك واحلى اجابة

@شايب كنت اتمنى مثل ما تقول 

ولكن للاسف لا يحدث عندى فى عملية البحث ما تقول

عموما انت عملت البحث فى نموذج zbooooon

وحتى لو كتبت اى اسم لا يظهر ابدا

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

Database1.accdb

51 دقائق مضت, شايب said:

بداية هذا الامر لا يشكل اي مانع بل يمكن البحث او الفلترة وبالتالي لا داعي لاي تعديلات

الان للفلترة نحتاج الى اضافة حقل غير منضم كما اشار دكتور حسين وانا اسميت الحقل tx_name

وسوف اتحدث عن طريقتين للوصول للمطلوب

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

ولتنفيذ الطريقة في حدث بعد التحديث للحقل tx_name نضع الامر التالي

DoCmd.ApplyFilter , "[cus_name]= '" & [tx_name] & " '"

ولو اردنا البحث بجزء من الاسم نستخدم * للدالة على الاحرف المفقودة ليكون الامر

DoCmd.ApplyFilter , "[cus_name]like '*" & [tx_name] & "*'"

الطريقة الثانية وهي الفلترة اثناء الكتابة وهي مطلوب صاحب المشاركة

وهنا في حدث عند التغيير للحقل tx_name نضع الامر

Dim strWhere As String
Dim strtxt As String
If Me.tx_name.Text <> "" Then
strtxt = Me.tx_name.Text
strWhere = "[cus_name] like '*" & strtxt & "*'"
Me.Filter = strWhere
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
Me.tx_name.SetFocus
Me.tx_name.SelStart = Len(Me.tx_name.Text)

وللتحكم في موقع المؤشر نضع في حدث عند مفتاح اعلى الامر التالي

If KeyCode = 32 Then
Me.tx_name.Value = Me.tx_name.Text & Chr$(32)
Me.tx_name.SelStart = Len(tx_name.Text)
End If

الملف مرفق

اخونا الشايب

Database1.accdb 832 kB · 1 download

اخوى @شايب

جربت العمل على حقل البحث وارجو ان يتسغ صدرك للملاحظات التالية

1- اول عملية بحث تكون صحيحة ولكن العملية الثانية او الثالثة تعطى اسما اخر غير الاسم المراد البحث عنه

لاحظ فى الصورة قمت بالبحث عن سعيد فاظهر لى سليمان

2- عند كتابة اول حرف من الاسم المراد البحث عنه من المفترض ان يجلب الاسماء التى تحتوى نفس الحرف ومن ثم تتم التصفية عند اضافة حرف اخر و هكذا

6 دقائق مضت, د.كاف يار said:

اليك اسهل الطرق

اضف مربع نص آخر بجانب الأساسي

و لنفرض ان اسمه Text114

و الآن ضع الكود التالي في حدث عند التغيير في مربع النص الاساسي

Dim SetTexta As String
    SetText = cus_name.Text
    Text114 = SetText
    Child1.Form.RecordSource = "SELECT * FROM buy where [bian] Like '*" & Text114 & "*'"
    Child1.Requery

 

التعديل في المرفقات

 

 

Database1 (1).accdb 532 kB · 1 download

العزيز @د.كاف يار

اشكر لك مساعدتك

ولكنى اعتقد انك ارفقت القاعدة قبل التعديل

هذه قاعدة بنموذج واحد هو zboon وهو المطلوب ان نعمل البحث له

حذفنا النموذج الاخر 

الله يمسيك بالخير يا @ابو خليل @عبد اللطيف سلوم ويا  @Eng.Qassim ويا @ابو جودي   @kanory@ @Moosak

Database1.accdb

24 دقائق مضت, Foksh said:

أخي الكريم لاحظت ما يلي :-

1- النموذج zboooooon مصدر بياناته الجدول zboon وعليه فانت لا تستطيع البحث داخل الجدول وهو قيد الإستخدام من النموذج ( من وجهة نظري ) ، وستضطر حينها غلى انشاء نموذج و مصدر بياناته استعلام يقوم بالبحث ضمن الشوط التي تريدها .

2- في الجدول buy المرتبط بعلاقة غير مكتملة مع الجدول zboon بالحقل fatora_name ، لاحظت ان هذا الحقل ليس له قيمة تلقائية ليتم الارتباط بشكل صحيح وعليه سيتم جلب البيانات .

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

الاخ @Foksh المحترم

احذف نموذج zbooooooon واعتمد نموذج zboon

وعدل فى العلاقة بين جدولى buy و zboon كما تريد

المهم ان تظهر نتيجة البحث عن الاسم فى نموذج zboon كما هو مطلوب

كما هو موضح بالصورة

لنفترض انه مسجل بالقاعدة عدة زبائن

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

Database1.accdb

57 دقائق مضت, Foksh said:

اخي الكريم @ابو طارق سعيد أسعد الله اوقاتك والأساتذة جميعاً ، بتأييدي للأخ @ابوخليل (الترقيم التلقائي هو ملك للجدول ولأكسس وليس للمبرمج) ؛ فلا اعتقد انك تستطيع التغيير في الترقيم التلقائي لعدة اسباب من اهمها انك ستحتاج في كل مرة ستضيف فيها حقل بين مجموعة حقول مرقمة ترقيما تلقائياً الى عمل ضغط وإصلاح Compact & Repair لقاعدة البيانات حتى تحافظ على الترقيم المستمر الصحيح ، وهنا ارهاق لقاعدة البيانات انت بالغنى عنه . ( من وجهة نظري )

 

وحاول توضيح المغزى والهدف من الفكرة ، لعل التوضيح يفتح الباب للأساتذة في الإبتكار .

@Foksh الكريم

يعنى ما فى فائدة ولا يمكن تنفيذ المطلوب؟

اين الاساتذة؟

@ابوخليل @ابو جودي @Foksh  @Eng.Qassim

25 دقائق مضت, ابوخليل said:

اهلا ابا طارق

حياك الله اخوى @ابوخليل

 

لاحظت انك موضوعك هذا مكرر عن موضوعك السابق وكان الأولى ان تتابع هناك

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

 

على كل حال خذ مني هذه الفوائد :

1- الترقيم التلقائي هو ملك للجدول ولأكسس وليس للمبرمج .. ولا ينصح العبث به .. وغالبا يستخدم كمفتاح له ، ومن هذا الرقم يمكننا اكتشاف عدد السجلات المحذوفة

1- الترقيم التلقائي يصعب تغييره او التعديل عليه الا بكود خاص ونلجأ اليه غالبا عند ادراج ارقام مفقودة .

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

 

الخلل عندك من البداية حيث جعلت ترقيم الجدول التلقائي رقما للفاتورة .

المفروض ان يكون رقم الفاتورة تلقائي

 

الارقام لا تعني شيئا بجانب البيانات المصاحبة ..

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

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

عموما اذا يوجد طريقة اكون ممنون لك

 

 

التعديل يجب ان يكون فى رقم الفاتورة فى الجدولين buy + zbon لانهما مرتطين ببعض

القاعدة مرفقة

Database1.accdb

10 ساعات مضت, Foksh said:

صديقي هذا هو مقصدي من الترقيم بغير الـ AutoNumber في الجدول .

wesam.zip 125.04 kB · 2 downloads

ليس هذا ما اقصدة

لا يمكن فى القاعدة التى ارفقتها جضرتك واضفت لها حقل id

لا يمكن تغيير الرقم سواء بهذا الحقل ولا برقم الفاتورة

17 دقائق مضت, شايب said:

اولا ابين عدم الاقتناع بالفكرةثص

 

استخدمت للتعديل مصدر السجلات

واستخدمت للحقلة التكرارية

rs.MoveLast
Do While Not rs.BOF
rs.Edit

وللانتقال للسجل السابق

rs.MovePrevious

 

 

 

اخى @شايب

قصتى لها معنى عندى تتعلق باى سجل لشخص جديد سيتم اضافته

مثال 

عند اضافة الاسم (على) اخذ مباشرة رقم 3 فى النموذج الرئيسي والفرعى

لنفترض ان عندنا فى القاعدة كم من الاسماء

واردت ادخال اسم جديد واردت ان ياخذ رقم 3 بدل (على) وينتقل بعدها على لرقم 4 وما يليه ايضا ياخذ رقم زياده عن رقمه السابق

كيف الحل وللتوضيح مرفق صورة

wesam.accdb

2 ساعات مضت, Foksh said:

في هذه الحالة لا أعتقد أن الترقيم التلقائي سيفيدك ، وستضطر إلى استخدام الترقيم باستخدام الدالة dlookup  مع الدالة dmax شرط ان يكون حقل الترقيم في الجدول number وليس autonumber.

 

هذا رأيي والله اعلم ☺️

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

wesam.accdb

للتوضيح اكثر

لاحظ الفرق بين الجدول الاول ثم فى الثانى حيث اردت اضافة اسم جديد وهو (كورنى وطبعا فى الترقيم التلقائى المفترض ياخذ (كورنى ) رقم 6 لكنى اريد ان ياخذ رقم 4 كما هو موضح