اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

لدي مشكلة تثبيت اداة barcodex.ocx لاستخدام الباركود

على ويندوز 7 (64) حيث تظهر لي خطا اوفيس 2010

قام بنشر

السلام عليكم ورحمة الله وبركاته
بالنسبة لويندوز 7 نسخة 64 يجب نسخ ملف barcodex.ocx الى مجلد syswow64
في المسار التالي
C:\Windows\syswow64
ثم من قائمة ابدا نكتب في خانة البحث cmd
ثم تشغيل cmd كمسؤول
ثم نكتب الامر التالي
regsvr32 \windows\syswow64\barcodex.ocx
تحياتي

  • Like 1
قام بنشر
  في 23‏/3‏/2017 at 00:28, محمد ابوعبد الله said:

السلام عليكم ورحمة الله وبركاته
بالنسبة لويندوز 7 نسخة 64 يجب نسخ ملف barcodex.ocx الى مجلد syswow64
في المسار التالي
C:\Windows\syswow64
ثم من قائمة ابدا نكتب في خانة البحث cmd
ثم تشغيل cmd كمسؤول
ثم نكتب الامر التالي
regsvr32 \windows\syswow64\barcodex.ocx
تحياتي

Expand  

الله يعطيك العافية

بس لو تكرمت أخي هل من طريقة لطابعة كود صنف رقم 222 في عدد الكمية مثلا 30 يطلع في التقرير 30 باركود

قام بنشر (معدل)

سنعتبر ان التقرير الخاص بالباركود باسم reb_barcode
سنضع زر امر في النموذج ونضع له الامر التالي

Private Sub Cmd_barcode_Click()
For i = 1 To 30
DoCmd.OpenReport "reb_barcode", acViewNormal
Next i
End Sub

تحياتي

تم تعديل بواسطه محمد ابوعبد الله
قام بنشر
  في 23‏/3‏/2017 at 01:06, محمد ابوعبد الله said:

سنعتبر ان التقرير الخاص بالباركود باسم reb_barcode
سنضع زر امر في النموذج ونضع له الامر التالي

Private Sub Cmd_barcode_Click()
For i = 1 To 30
DoCmd.OpenReport "reb_barcode", acViewNormal
Next i
End Sub

تحياتي

Expand  

اي يا اخي الغالي بس انا ابغى في مربع احط عدد مثلا 3 او 4 او 10 ثم بطباعة ياخذ العدد ويرسله للتقرير

قام بنشر

نفس الكود مع تغيير السطر

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

تحياتي

قام بنشر
  في 23‏/3‏/2017 at 01:36, محمد ابوعبد الله 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

تحياتي

Expand  

تعبتك معي اخي الغالي

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

بحيث يكون الطباعة برقم الكمية

تجريب.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information