امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث)

[الجموعي]

 

تم حل المشكلة بحذف فورم

FormDate

والبيانات المتعلقه به في فورم

UFormChang

لكن ماهو دور

FormDate

بقي إستفسار هل من طريقة للتعامل مع القوائم gender.country

أنا اريد إضافة قزائم مثلا annee

2003-2004

2004-2005

2006-2005

قمت بإضافتها في شيت القوائم وعند تشغيل الفورم لا يتم التعرف عليها

 

 

الفورم FormDate

يساعدك في اضافة التاريخ (ممكن تضيف التاريخ يدويا)

 

اما بالنسبة للقائمة

اضف الاسم (الذي اطلقته على القائمة )

في تعليق في راس العمود الذي تريد اظهار القائمة فيه.

 

شكرا على التوضيح أستاذي

بالنسبة للقائمة أضفت الإسم في التعليق وأضفته في شيت القوائم

لكن عند تشغيل الفورم لم تتحول السنة الدراسية إلى كمبوبوكس

بقيت تكيست بوكس

[عبدالله باقشير]

السلام عليكم

من القائمة صيغ

اضغط ادارة الاسماء

هل الاسم الذي وضعته في التعليق موجود من ضمن الاسماء ؟؟

[جلال الجمال_ابو أدهم]

  استاذ/ عبدالله باقشير    جزاك الله خيرا                                                                          

 

                                                                                عندما تنتهى كلمات الابداع عندك

                                                                                 و تبدأ من جديد و تنتهى عندك

 

هل من الممكن ان نضيف اسم الشركة عند الطباعه او نضيفه بالفورم نفسه و يكون بمعاينة الطباعه

[عبدالله باقشير]

  استاذ/ عبدالله باقشير    جزاك الله خيرا                                                                          

 

                                                                                عندما تنتهى كلمات الابداع عندك

                                                                                 و تبدأ من جديد و تنتهى عندك

 

هل من الممكن ان نضيف اسم الشركة عند الطباعه او نضيفه بالفورم نفسه و يكون بمعاينة الطباعه

 

جزاكم الله خيرا

 

في مثل الحالات استخدم النموذج

2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل

 

يعني اعملك ورقة خاصة بالطباعة

 

في امان الله

[جلال الجمال_ابو أدهم]

شاكر ردك

[محمد الورفلي1]

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

1/ أضافة اكثر من صفحة طباعة لاني سوف استخدم الفورم بعد اذنك لو سمحت لي في مدرستي وسا اخصصه لاشئون المعلمين فا عند استدعاء اسم معلم والبحث علية تكون المعلومات حاضرة في الفورم ياريت اضافة مفاتيح او قائمة اختيار تكون فيها عناوين لصفحات موجودة ومعد علي اساس اختيار العنوان من القائمة     مثلاً

( مباشرة او مغادرة معلم  -  إجازة معلم -- استبيان معلم  وطبعن تكون الصيغة مطبوعة مسبقاً في ورقة الطباعة كلاً حسب طلب المعلم .

 

2/ ياريت تفعيل مفتاح انتر بعد اختيار البحث عن طريق الاسم او رقم القيد او... بحيث بعد كتابة اسم معلم فرضاً وضغط مفتاح انتر تبدا عملية البحث وليس باستخدام الفارة والذهاب الي مفتاح البحث         يايت اكون وصلت الفكرة

نسخ من فورم ادخال و تعديل مرن مع الطباعة 2.rar

تم تعديل مارس 27, 2014 بواسطه محمد الخازمي

[عبدالله باقشير]

السلام عليكم

الطلب الاول : ممكن تعمل زر لكل ورقة طباعة

 

الطلب الثاني :

اضف هذا الكود الى اكواد الفرم

Private Sub TextFind_AfterUpdate()
ButtonSerach_Click
End Sub

تحياتي

[محمد الورفلي1]

الاستاذ الفاضل عبدالله باقشير

بقالنسبة  لزيادة الصفحات تم الحمد لله اولاً والشكر لك لتعليمي بطريقة غير مباشرة

 

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

[عبدالله باقشير]

السلام عليكم

عفوا

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

 

 

نهاية كود زر البحث ButtonSerach_Click

 

اضف السطر التالي:

If RR Then Me.ListFind.ListIndex = 0

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

 

تحياتي

[محمد الورفلي1]

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

[محمد الورفلي1]

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

[الجموعي]

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

أخي محمد الخازمي  الكودالذي أدرجه العلامة القدير /عبد الله باقشير حفظه الله ورعاه

يعمل بنجاح

تفضل المرفق به الكودات

نسخ من فورم ادخال و تعديل مرن مع الطباعة 2_2.rar

[محمد الورفلي1]

شكراً لكم  (( الاستاذ الجموعي والاستاذ عبد الله ))

مازالت فورم التحذير فقط عند المسح ياريت فورم تحذير مكتوب فية تأكيد المسح (( مسح: عدم مسح)) وشكراً بارك الله فيك

[الجموعي]

شكراً لكم  (( الاستاذ الجموعي والاستاذ عبد الله ))

مازالت فورم التحذير فقط عند المسح ياريت فورم تحذير مكتوب فية تأكيد المسح (( مسح: عدم مسح)) وشكراً بارك الله فيك

تفضل أخي ما طلبته

نسخ من فورم ادخال و تعديل مرن مع الطباعة 3.rar

[محمد الورفلي1]

بارك الله فيكم وفي ذريتكم

[ريان أحمد]

السلام عليكم

 

أستاذي هل تستطيع أن أختار متغيرات معينة من البيانات وطبعها في خليا معينة

 

مثلا إسم الأي والطبيب في خاية

 

a1 b2

 

2- عند إدخال بيانات معينة   أريد خروج رسالة  تقول لقد تم إدخال هذا السجل مسبقا يوم   الفلاني وطباعته وكذلك ظهور هذه المعلومة في لايبل عند إختيار السجل --والتطابق يكون ثلاث متغيرلا الإسم واللقب وتاريخ الإزدباد

تم تعديل أكتوبر 18, 2014 بواسطه ريان أحمد

[ريان أحمد]

up

[احمد عبدة]

السيد الاستاذ /

عبدالله باقشير       المحترم

هل هناك امكانية لاضافة اكثر من قائمة فى الفورم

 

تحياتى 

[ريان أحمد]

السلام عليكم

 

 

الرجاء طباعة تاريخ اليوم في الجدول  وليس في الطباعة

[رشراش علي]

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

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

Option Explicit
'======================================================
'======================================================
Option Explicit
'======================================================
'======================================================

'    تنسيق التاريخ
Private Const DtF As String = "yyyy/mm/dd"
'======================================================
'     عرض تكست الادخال
Private Const iWgt1   As Single = 200
'======================================================
Private Const Frmtop  As Single = 3
Private Const Frmlft  As Single = 3
Private Const iHgt    As Single = 21.55
Private Const iTop    As Single = iHgt + 2
Private Const mBox    As Long = vbMsgBoxRight + vbMsgBoxRtlReading
'======================================================
'======================================================
Private Ar()          As Integer
Private MyRngSeri     As Range
Private MyRngdate     As Range
Private ContRow       As Long
Private iRow          As Long
Private LastColumn    As Integer
Private tSr           As Boolean
Private MyList            As String
Private tAc           As Boolean
Private iColor1, iColor2


Private Sub BoxFind_Click()
Dim tm As Integer
Me.ListFind.Clear
tm = Me.BoxFind.Tag
Me.Controls("Labeldt" & tm).ForeColor = vbBlack
tm = Me.BoxFind.ListIndex + 1
Me.Controls("Labeldt" & tm).ForeColor = Me.BoxFind.ForeColor
Me.BoxFind.Tag = tm
End Sub

Private Sub ButtonCalendar_Click()
On Error GoTo 1
Dim MyVelue, t
With Me.Frame1
    If .ActiveControl Is Nothing Then .SetFocus
    If TypeOf .ActiveControl Is MSForms.TextBox Then
        .ActiveControl.BackColor = Me.ButtonCalendar.BackColor
        If .ActiveControl.Top > .Height Then .ScrollTop = .ActiveControl.Top - (.Height / 2)
        MyVelue = .ActiveControl
        t = .Controls(.ActiveControl.TabIndex + 1)
        If Not IsNumeric(MyVelue) And IsDate(MyVelue) Then Else MyVelue = Date
        With FormDate
            .Caption = t
            .Tag = MyVelue
            .Show
        End With
        .ActiveControl.BackColor = &HFFFFFF
        
    Else
        MsgBox "لا يمكن اضافة التاريخ في القائمة", mBox, "تنبيه"
    End If
End With

1
If Err Then Err.Clear
End Sub

Private Sub ButtonClear_Click()
kh_ClearRecord
End Sub

....

....

...................  الاكواد من فورم ادخال و تعديل مرن مع الطباعة في هذا الموضوع

 

'============================'

وإن لم يكن كلها فبعضها ولكم جزيل الشكر

طلب توضيح بخصوص فورم ادخال و تعديل مرن مع الطباعة.rar

[رشراش علي]

في نفس السياق ارجو اساتذتي ان تشرحوا لي سبب هذا الخطاء وكيف اعالجه

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

فورم ادخال و تعديل مرن مع الطباعة 1

http://up.harajgulf.com/uploads/gulfupd56f738894701.rar

تم تعديل أبريل 16, 2015 بواسطه رشراش علي

[رشراش علي]

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

اتمنى ان لا اثقل عليكم اساتذتي لكني على يقين من حلمكم وصبركم امام قلة حيلتنا

فورم ادخال و تعديل مرن مع الطباعة 2.rar

تم تعديل أبريل 17, 2015 بواسطه رشراش علي

[سمير سامي]

استاذي الفاضل عبدالله باقشير

تحية طيبة 

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

ارجو من سيادتكم التوضيح وشكرا لان كم العاملين حوالي 2000 عامل بنفس الطريقة

 

11.rar

تم تعديل مايو 18, 2015 بواسطه سمر سامي

[مختار البركاني]

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

 

رائع استاذنا الفاضل عبدالله باقشير

وجزاك الله خيرا

طبعا انا استخدمت الفورم لاكثر من عمل وهو بالفعل مرن جدا ويمكن الاستفادة منه باشياء كثيرة

تحياتي 

تم تعديل يونيو 20, 2015 بواسطه ALBARAKANI

[مختار البركاني]

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

 

استاذنا الفاضل عبدالله باقشير

 

نفذت الفورم على عدة احتياجات

منها المرفق لحوالات البنك الاهلي التجاري

واحتاج لامرين

الاول : تعدد المستخدمين بصلاحيات ( كي لا يتم العبث بالعمل من قبل الموظفين ) بحيث يكون هناك صلاحيات شاملة وصلاحيات للطباعة فقط

الثاني : كيف الغي زر الخروج من الفورم (x) بحيث استطعت ان انفذه في اغلب اعمالي الا انه لا يقبل مع في الفورم المرفق.

ارجو مساعدتي . 

وتقبلوا خالص تحياتي وامتناني وجزاكم الله خيرا 

كلمة السر (  123 )

نموذج حوالة 20-06-15 - نسخة.rar