ترحيل من استعلام الي استعلام حسب السجل المحدد

[النجاشي]

السلام عليكم استاتذي الكرام  كيف ارحل من  استعلام الى استعلام

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

ترحيل .rar

[Shivan Rekany]

4 دقائق مضت, ابو زاهر said:

السلام عليكم استاتذي الكرام  كيف ارحل من  استعلام الى استعلام

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

ترحيل .rar

اتفضل

 

ترحيل .rar

[النجاشي]

2 دقائق مضت, Shivan Rekany said:

اتفضل

 

ترحيل .rar

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

[النجاشي]

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

ترحيل 55.rar

[النجاشي]

للرفع

 

[النجاشي]

للرفع

[Shivan Rekany]

السبب یرجع لان حقل نعم لا ھو فی جدول الشقق عند تعمل علامە صح امامه كانك تضع علامة صح امام كل السجلات
 

ترحيل 55.rar

[النجاشي]

11 ساعات مضت, Shivan Rekany said:

السبب یرجع لان حقل نعم لا ھو فی جدول الشقق عند تعمل علامە صح امامه كانك تضع علامة صح امام كل السجلات
 

ترحيل 55.rar

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

[Shivan Rekany]

7 ساعات مضت, ابو زاهر said:

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

القي نظرتا الى هذا

 

ترحيل 55 (1).rar

[اكرم العريقي]

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

الان جرب ادخل سند وسوي ترحيل العملية مضبوطه لكن لو كثرت السجلات لازم يظهر زر الامر اللي جانب كل سجل

بالتوفيق

الترحيل.rar

[النجاشي]

2 ساعات مضت, اكرم العريقي said:

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

الان جرب ادخل سند وسوي ترحيل العملية مضبوطه لكن لو كثرت السجلات لازم يظهر زر الامر اللي جانب كل سجل

بالتوفيق

الترحيل.rar

اخي وابن بلادي  اكرم بارك الله فيك

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

تم تعديل أغسطس 12, 2017 بواسطه ابو زاهر

[Shivan Rekany]

13 ساعات مضت, ابو زاهر said:

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

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

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

Private Sub Form_Current()
Me.Text62 = Me.رقم_السند
End Sub

Private Sub mstagra_Click()
If Me.mstagra = False Then
If MsgBox("ھل تريد ترحيل ھذا السند الى جدول سند عقد منتهية ؟", vbYesNo, "ترحيل") = vbYes Then
    DoCmd.SetWarnings False
        DoCmd.OpenQuery "terhil"
        DoCmd.OpenQuery "deletesened"
    DoCmd.SetWarnings True
    MsgBox "تم ترحيل"
    Else
    Me.mstagra = True
End If
End If
Me.Requery
End Sub

واليك ملف بعد تعديل

واذا هذا ليس يكون طلبك وضح لي بالتفصيل

 

ترحيل 55 (1).rar

[Shivan Rekany]

اتفضل اليك هذا بطريقة اخرى

 

ترحيل 55 (1).rar

[النجاشي]

2 ساعات مضت, Shivan Rekany said:

اتفضل اليك هذا بطريقة اخرى

 

ترحيل 55 (1).rar

استاذي شفان الان نسبه تحقق الطلب 90بالمايه

ولكن عندما ارحل من نموذج استعلام عن الأوقات

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

[Shivan Rekany]

3 دقائق مضت, ابو زاهر said:

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

الان شوف ھذا

 

ترحيل 55 (1).rar

[النجاشي]

5 دقائق مضت, Shivan Rekany said:

الان شوف ھذا

 

ترحيل 55 (1).rar

الان تعقدت الأمور اكثر استاذي لم تظهر معي أي عقود كانت اول افضل بس المشكله رقم الشقه يتكرر بالنموذج  استعلام عن وقت لكن عللى كل حال ابداعتك رائعه  استاذي والمشكله عدم الفهم منك مني فالف شكر وان شاء ارتب فكره كيف أوصل المطلوب بالطريقه المفهومه تحياتي لك ياغالي

[Shivan Rekany]

2 دقائق مضت, ابو زاهر said:

الان تعقدت الأمور اكثر استاذي لم تظهر معي أي عقود كانت اول افضل بس المشكله رقم الشقه يتكرر بالنموذج  استعلام عن وقت لكن عللى كل حال ابداعتك رائعه  استاذي والمشكله عدم الفهم منك مني فالف شكر وان شاء ارتب فكره كيف أوصل المطلوب بالطريقه المفهومه تحياتي لك ياغالي

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

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

[النجاشي]

11 دقائق مضت, Shivan Rekany said:

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

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

انا اسف واعتدر منك استاذي كثير

كانت المشكله عدم تركيزي لمستمره ومنتهيه فالان ركزت

العمليه نجحت مايه بالمايه الف شكرا  استاذي القدير بردت قلبي الله يجزيك خير

هديه متواضعه من اخوك 

تحياتي لك

[النجاشي]

استاذي @Shivan Rekany ياليت اخي تعدل لى  هذا الكود عشان الرساله التحذيريه مهمه ..مثلا هل تريد عمل خروج للمستاجر

If Me.mstagra = False Then
        Me.TERHEL = "منتھية"
    Else
        Me.TERHEL = "مستمرة"
End If
Me.Requery

[Shivan Rekany]

If Me.mstagra = False Then
	IF MSGBOX("هل تريد ان تعمل عملية ترحيل لهذا السند" , VBYesNo , "تنبیه" ) = vbYes then
        	Me.TERHEL = "منتھية"
    	Else
        	Me.TERHEL = "مستمرة"
	End If
End If
Me.Requery