مشكلة تثبيت أداة barcodex.ocx ويندوز7 64bt

[ديو05]

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

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

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

[محمد أبوعبدالله]

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

[ديو05]

  في 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, 2017 بواسطه محمد ابوعبد الله

[ديو05]

  في 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

تحياتي

[ديو05]

  في 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

[محمد أبوعبدالله]

فضلا وليس امرا تحويل الملف الى mdb

[ديو05]

تفضل استاذي

تجريب.rar

[محمد أبوعبدالله]

تفضل اخي الكريم

وجدت لك هذا الملف وهو للاخت الفاضلة زهرة

وبه ما طلبت ان شاء الله

تحياتي

zaBarCode_Items_up.rar

[ديو05]

  في 23‏/3‏/2017 at 03:40, محمد ابوعبد الله said:

تفضل اخي الكريم

وجدت لك هذا الملف وهو للاخت الفاضلة زهرة

وبه ما طلبت ان شاء الله

تحياتي

zaBarCode_Items_up.rarFetching info...

Expand  

الله يسعدك ماقصرت يالغالي