السلام عليكم ورحمة الله
إخواني
لدي طلب بسيط
وهو كيف يمكنني أن أطبع بيانات الموظفين في كروت صغير لاتتجاوز 5 سم ×5سم؟؟؟؟
وذلك عن كري جلب معلومات الإسم والرقم من قاعدة البيانات
وجدت ذلك التقرير في الأكسس لكن كيف أفعله بالفيجوال؟؟؟
هل هناك طريقة ؟
طباعة بطاقات كيف؟
مغلق
السلام عليكم
بخصوص تصميم البطاقة
1- صمم البطاقة على شاشة form جديد استخدم label لعرض البيانات
2- صمم شاشة form جديد فيها text يتم من خلاله عملية البحث
كتالي
Data1.Recordset.Index = "EMP_NO"
Data1.Recordset.Seek "=", Val(Text1.Text)
If Not Data1.Recordset.NoMatch Then
Form3.Show
Form3.Label1(15).Caption = Data1.Recordset.Fields("idNO") & ""
Form3.Label1(16).Caption = Data1.Recordset.Fields("NAME") & ""
Else
MsgBox "ÛíÑ ãæÌæÏ", 32, ""
End If
هذه البيانات يتم راسترجاعها من قاعدة بيانات استخدم DATACONTRIOL ويكون اسمها DATA1
بعد عرض البيانات على شاشة البطاقة
ارجع الى شاشة عرض البيانات واصنع COMMAND جديد لطباعة البطاقة
واكتب داخله Form3.PrintForm
مع تحياتي
ممكن مثال صغير
وهل يمكنني وضع أكثر من بطاقة في ورقة A4؟؟؟
وشكرا على تعاونك
مرحبا
يمكنك استخدام Shape1 في رسم البطاقة بالاضافة الى Image لعرض الصورة
بعد الانتهاء من تصميم البطاقة على الشاشة قم بعمل نسخة من نفس التصميم والصقها على نفس الشاشة ومن خلال شاشة العرض يمكن التحكم في عرض البيانات
الأخ العزيز zoh_salah1977
شكرا على اهتمامك ...
الحقيقة إما أنك لم تفهمني أو أن المعلومة ناااقصة
ما أريده هو مايلي
لدي قاعدة بيانات فيها 300 موظف أريد أن أعمل تقرير يحوي على مربعات ( بطاقات صغيرة )
كل بطاقة سيكون بها رمز الموظف واسمه ..
أنا أريد من البرنامج أن يطبع لي البطاقات على ورق A4 كل ورقة تحوي على 12 بطاقة مثلا
لاحظ الصورة المرفقة
الأخ العزيز zoh_salah1977
شكرا على اهتمامك ...
الحقيقة إما أنك لم تفهمني أو أن المعلومة ناااقصة
ما أريده هو مايلي
لدي قاعدة بيانات فيها 300 موظف أريد أن أعمل تقرير يحوي على مربعات ( بطاقات صغيرة )
كل بطاقة سيكون بها رمز الموظف واسمه ..
أنا أريد من البرنامج أن يطبع لي البطاقات على ورق A4 كل ورقة تحوي على 12 بطاقة مثلا
لاحظ الصورة السابقة
السلام عليكم ورحمة الله وبركاته
صراحة يا اخي انا لم تخطر لي هذه الفكرة من قبل ولا اجد طريق مختصرة لها ولكن...
هناك حل بدائي جدا فكرت فيه
والمسألة ستعتمد في اساسها على انشاء حقول بعدد السجلات التي ستظهر في كل ورقة
لذلك اقول انها ستكون طويلة بعض الشئ
المشكلة انه يعتمد على الكريستال وليس الوورد
فاذا كنت تريد هذه الطريقة اخبرني وسأضعها لك ربما تفيدك
بانتظار ردك
===========
الى اللقاء
JusT LeT YouR MinD WorK
الكريستال أنا متخوف من استخدامه لأنه :: لايعمل في كل مكان..
وأنا أريد تطبيق الفكرة بأي طريقة كانت ولواستخدمنا الكود أو الفورم العادي
ولكن
على العموم يمكنك أن تضع الدرس في موضوع منفصل لتعم به الفائدة..
بارك الله فيك ...
وجزاك الله خيرا..
هل نستطيع أستخدام HTML مثلا ,, أو إستدعاء أحدى برامج الأوفيس؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
up
upp
uppp
upppp
uppppp
upppp
uppp
upp
up
if you not tel me then
i do up
end if
تفضل وأدع للعماني
من مواضيعي :
إجعل برنامجك يعمل على كل جهاز في العالم
النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات
هذا الكود يحتاج لكثير من الذكاء وقليل من العمل
إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6
برنامجين مع السورس كود قديمين جداً
مثال كامل لــانشاء ملف txt*. النصي
الاداة رائعة جدا بكل المقاييس swbbtnba.ocx
كود ممتاز ؟ ومساعدة في الاضافة / الحذف
احلى حركة وجدتها اخيرا بعد وقت طويل
وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio
أخي المهنا
أولا آسف على التأخير فالرد
أنا الآن سأجرب المرفق
والله يرحم العماني ويغفر له ولوالديه ويجزاه كل خير
وإنت بعد الله يرحمك ويجزاك كل خير
هذا الموضوع مغلق.