ديو05 قام بنشر مارس 22, 2017 مشاركة قام بنشر مارس 22, 2017 السلام عليكم ورحمة الله وبركاته لدي مشكلة تثبيت اداة barcodex.ocx لاستخدام الباركود على ويندوز 7 (64) حيث تظهر لي خطا اوفيس 2010 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 السلام عليكم ورحمة الله وبركاته بالنسبة لويندوز 7 نسخة 64 يجب نسخ ملف barcodex.ocx الى مجلد syswow64 في المسار التالي C:\Windows\syswow64 ثم من قائمة ابدا نكتب في خانة البحث cmd ثم تشغيل cmd كمسؤول ثم نكتب الامر التالي regsvr32 \windows\syswow64\barcodex.ocx تحياتي 1 رابط هذا التعليق شارك More sharing options...
ديو05 قام بنشر مارس 23, 2017 الكاتب مشاركة قام بنشر مارس 23, 2017 26 دقائق مضت, محمد ابوعبد الله said: السلام عليكم ورحمة الله وبركاته بالنسبة لويندوز 7 نسخة 64 يجب نسخ ملف barcodex.ocx الى مجلد syswow64 في المسار التالي C:\Windows\syswow64 ثم من قائمة ابدا نكتب في خانة البحث cmd ثم تشغيل cmd كمسؤول ثم نكتب الامر التالي regsvr32 \windows\syswow64\barcodex.ocx تحياتي الله يعطيك العافية بس لو تكرمت أخي هل من طريقة لطابعة كود صنف رقم 222 في عدد الكمية مثلا 30 يطلع في التقرير 30 باركود رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 (معدل) سنعتبر ان التقرير الخاص بالباركود باسم reb_barcode سنضع زر امر في النموذج ونضع له الامر التالي Private Sub Cmd_barcode_Click() For i = 1 To 30 DoCmd.OpenReport "reb_barcode", acViewNormal Next i End Sub تحياتي تم تعديل مارس 23, 2017 بواسطه محمد ابوعبد الله رابط هذا التعليق شارك More sharing options...
ديو05 قام بنشر مارس 23, 2017 الكاتب مشاركة قام بنشر مارس 23, 2017 26 دقائق مضت, محمد ابوعبد الله said: سنعتبر ان التقرير الخاص بالباركود باسم reb_barcode سنضع زر امر في النموذج ونضع له الامر التالي Private Sub Cmd_barcode_Click() For i = 1 To 30 DoCmd.OpenReport "reb_barcode", acViewNormal Next i End Sub تحياتي اي يا اخي الغالي بس انا ابغى في مربع احط عدد مثلا 3 او 4 او 10 ثم بطباعة ياخذ العدد ويرسله للتقرير رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 نفس الكود مع تغيير السطر For i = 1 To 30 الى For i = 1 To text1.Value باعتبار مربع النص باسم text1 ليكون بهذا الشكل Private Sub Cmd_barcode_Click() For i = 1 To text1.Value DoCmd.OpenReport "reb_barcode", acViewNormal Next i End Sub تحياتي رابط هذا التعليق شارك More sharing options...
ديو05 قام بنشر مارس 23, 2017 الكاتب مشاركة قام بنشر مارس 23, 2017 21 دقائق مضت, محمد ابوعبد الله said: نفس الكود مع تغيير السطر For i = 1 To 30 الى For i = 1 To text1.Value باعتبار مربع النص باسم text1 ليكون بهذا الشكل Private Sub Cmd_barcode_Click() For i = 1 To text1.Value DoCmd.OpenReport "reb_barcode", acViewNormal Next i End Sub تحياتي تعبتك معي اخي الغالي عندي مرفق ياليت تعدل عليه واكون شاكر لك بحيث يكون الطباعة برقم الكمية تجريب.rar رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 فضلا وليس امرا تحويل الملف الى mdb رابط هذا التعليق شارك More sharing options...
ديو05 قام بنشر مارس 23, 2017 الكاتب مشاركة قام بنشر مارس 23, 2017 تفضل استاذي تجريب.rar رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 تفضل اخي الكريم وجدت لك هذا الملف وهو للاخت الفاضلة زهرة وبه ما طلبت ان شاء الله تحياتي zaBarCode_Items_up.rar 2 رابط هذا التعليق شارك More sharing options...
ديو05 قام بنشر مارس 23, 2017 الكاتب مشاركة قام بنشر مارس 23, 2017 30 دقائق مضت, محمد ابوعبد الله said: تفضل اخي الكريم وجدت لك هذا الملف وهو للاخت الفاضلة زهرة وبه ما طلبت ان شاء الله تحياتي zaBarCode_Items_up.rar الله يسعدك ماقصرت يالغالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان