حسن الحلو قام بنشر فبراير 13, 2005 مشاركة قام بنشر فبراير 13, 2005 لدي خمسة جداول بها نفس البيانات ولكن يختلف القسم ( بيانات مدارس ) على النحو التالي : الجدول الاول ابتدائي الجدول الثاني متوسط الجدول الثالث ثانوي الجدول الرابع تمهيدي الجدول الربع قسم البنات اسماء الحقول في الجداول كلها متشابهة والمختلف رقم القسم فقط المطلوب أريد ان اجمع جميع البيانات في جدول واحد عملت طريقة التالية : 1- فتحت الاكسل وعملت استيراد كل جدول على حدة . 2- نسخ ولصق ولكن اريد عمل ذلك بالآكسيس كيف احول الرقم التالي ( 0001-001-01-1-1 ) إلى رقم باركود رابط هذا التعليق شارك More sharing options...
yr_20 قام بنشر فبراير 13, 2005 مشاركة قام بنشر فبراير 13, 2005 السلام عليكم ورحمة الله وبركاته اذا كانت جداولك كلها متشابهة الحقول وهذه الجداول موجود بملف أكسس فجرب الطريقة التالية أولا : قم بنسخ هذه الجداول والصقه بنفس ملف بياناتك وسميه الجدول الرئيسى ثم أفتح صفحة بياناته واحذف جميع السجلات الموجودة به ثم قم بإغلاقه واحفظ تغيراتك ثانيا قم بإنشاء استعلام مبنى على جدول ابتدائى وأضف جميع حقوله الى الأستعلام ثم من القائمة أستعلام غير نوع الأستعلام الى استعلام الحاق سيظهر مربع حوار أختر منه الجدول الرئيسى مع تنشيط الهيكل والبيانات ثم موافق ستلاحظ ظهور صف جديد بالستعلام يظهر به اسم كل حقل مقابل لجدول الابتدائى ثالثا اضغط على الزر تشغيل الذى يحمل علامة تعجب ثم نعم على الرسالة التالية واغلق الاستعلام ولا تحفظه ثم نفذ نفس الخطوات السابقة على بقية الجداول رابط هذا التعليق شارك More sharing options...
G42U قام بنشر فبراير 13, 2005 مشاركة قام بنشر فبراير 13, 2005 (معدل) بالنسبة لتحويل الرقم 0001-001-01-1-1 إلى باركود أستخدم هذه الدالة Private DataToPrint As String Private OnlyCorrectData As String Private StringLength As Integer Private I As Integer Private WeightedTotal As Long Private CurrentCharNum As Integer Private CheckDigit As Integer Public Function Postnet(DataToEncode As String, ReturnType As Integer) As String DataToPrint = "" DataToEncode = RTrim(LTrim(DataToEncode)) ' Check to make sure data is numeric and remove dashes, etc. OnlyCorrectData = "" StringLength = Len(DataToEncode) For I = 1 To StringLength 'Add all numbers to OnlyCorrectData string If IsNumeric(Mid(DataToEncode, I, 1)) Then OnlyCorrectData = OnlyCorrectData & Mid(DataToEncode, I, 1) Next I DataToEncode = OnlyCorrectData '<<<< Calculate Check Digit >>>> WeightedTotal = 0 StringLength = Len(DataToEncode) For I = 1 To StringLength 'Get the value of each number CurrentCharNum = Mid(DataToEncode, I, 1) 'add the values together WeightedTotal = WeightedTotal + CurrentCharNum Next I 'Find the CheckDigit by finding the number + WeightedTotal that = a multiple of 10 'divide by 10, get the remainder and subtract from 10 I = (WeightedTotal Mod 10) If I <> 0 Then CheckDigit = (10 - I) Else CheckDigit = 0 End If 'Get Printable String DataToPrint = DataToEncode 'ReturnType 0 returns data formatted to the barcode font If ReturnType = 0 Then Postnet = "(" & DataToPrint & CheckDigit & ")" & " " 'ReturnType 1 returns data formatted for human readable text If ReturnType = 1 Then Postnet = DataToPrint & CheckDigit 'ReturnType 2 returns the check digit for the data supplied If ReturnType = 2 Then Postnet = Str$(CheckDigit) End Function سيكون ناتج تحول الرقم بعد التحول بهذه الطريقة: Postnet("0001-001-01-1-1", 0) الناتج هو (000100101115) الدالة موجودة عند من وقت طويل حصلت عليها من هذا الموقع http://www.BizFonts.com/vba تم تعديل فبراير 13, 2005 بواسطه G42U رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 16, 2005 مشاركة قام بنشر مارس 16, 2005 مواضيع متفرقة 1) 07/03/2005 ضياع قاعدة بيانات ، كيف يمكن استعادتها 2) 13/02/2005 باركود بالأكسيس 3) 10/02/2005 معلومات عن حجم الحقول الرقمية 4) 20/01/2005 كيف أعمل قوائم وشريط أدوات 5) 08/01/2005 اريد عمل menubar فى الاكسس 6) 31/12/2004 مشكلة في عرض النموذج على أجهزة أخرى 7) 19/12/2004 برنامج على شاشة 17 تم نقله الى شاشة 15 8) 24/11/2004 تمكين المستخدم من تغيير خلفية النموذج 9) 17/11/2004 الان بإمكانك تغيير شكل نماذج الاكسس 10) 19/10/2004 مشكلة في إختفاء البرنامج 11) 02/10/2004 ربط الاكسس بالسكنر 12) 31/08/2004 كيف أقوم بإخفاء خلفية برنامج أكسس نهائيا 13) 28/08/2004 أجعل البرنامج يشتغل عند تشغيل جهاز الكمبيوتر 14) 10/08/2004 دمج المراسلات 15) 26/07/2004 أزرار بنص وصورة 16) 10/07/2004 ( شريط الأدوات لا يظهر ) 17) 06/07/2004 برنامج لإدارة كبائن تلفونات في السعودية 18) 23/05/2004 | شاشة انتظار افتتاحية شبيهة بشاشة XP 19) 18/05/2004 عمل شاشة افتتاحية للبرنامج تعمل عند تشغيلة 20) 13/05/2004 الحصول على أسماء المحطات للشبكات 21) 16/04/2004 أدراج الرموز الكيميائيه في البرنامج 22) 23/02/2004 ما هو الAdd-ins وأين يوجد 23) 12/01/2004 برنامج Advanced-SQL-Code-Collection 24) 11/01/2004 قمت بحذف جدول من قاعدتك عن طريق الخطأ 25) 05/01/2004 غير قادر على إنشاء بيانات MDE 26) 17/07/2003 حساب معدل الدوران للصنف رابط هذا التعليق شارك More sharing options...
الردود الموصى بها