Aws86A

في 23‏/11‏/2024 at 13:35, Foksh said:

كمشاركة في هذه النقطة .

هذا ملف قديم من أحد المواضيع وتم تعديله بشيء بسيط حسب حاجة صاحب المشروع سابقاً ( وهو برنامج أرشفة كتب إلكتروني لمؤسسة ) ..

بالبداية قم بتثبيت البرنامجين 1st و 2nd ثم في النموذج PDF ..

اختر من القائمة نوع الملف الذي تريده ( Jpg , Pdf ) ثم رقم الكتاب والتاريخ ( تستطيع تغييرها حسب حاجتك )

 

 

ثم زر سحب PDF

 

أما فيما يتعلق بزر إدراج PDF ، فهو لاختيار ملف PDF من الكمبيوتر الخاص بك .

تمت تجربته سابقاً على ماسح ضوئي فيدر .. ولكن تحسباً لإختلاف نوع الماسح الضوئي أو الويندوز أو ظروف بيئة العمل ، قم بتجربته وإخبارنا بالنتيجة  .

 

♻  التحميل من جوجل درايف

 

السلام عليكم السكانر الخاص بي هو ايبسون 1630 وللاسف الملف الذي انزلته انت لم يعمل مع الفيدر يعمل فقط مع العدسة

الاساتذة الكرام

ممكن الاطلاع وابداء المساعدة

@سامي الحداد

السلام عليكم استاذ سامي لدي قاعدة بيانات واحتاج استشارة اذا ممكن لديك ايميل

السلام عليكم

هل جربت الملف الخاص بي من قبلك 

يعني اشتغل الفيدر يمك

لان اني يمي ما اشتغل

السلام عليكم

الخلل عندي من اربط السكنر واختار مسح عن طريق الفيدر يسوي المسح عن الطريق الفلات باد

وبالنسبة للتصميم اني احتاجه هيج

السكنر الي عندي ايبسون

وعندي من اسوي سكنر عن طريق الفلات باد حجم الصورة جبير

ماشي انتظر

السلام عليكم 

اذا ممكن ايميل 

لان انا لدي نفس الفكرة لكن الفيدر لم يعمل لدي

هل يمكن المساعدة؟

السلام عليكم

هل يعمل الفيدر لديك مع قاعدة البيانات لان حاولت مع غير قاعدة بيانات وما اشتغل ويايه؟

السلام عليكم

صممت برنامج ارشفة احتاجه في عملي وبالاستعانة بعدة مواضيع ووجدت دالة لتشغيل الفيدر لعمل سكنر لمجموعة اوراق دفعة واحدة لكن واجهتني مشكلة هي عند ربط الزر في النموذج بهذه الدالة لا يتم تشغيل الفيدر وانما يقوم بتسغيل الفلات باد

قاعدة_بيانات_ارشفة_الصادر_و_الوارد_جديد.rar

في 16‏/5‏/2023 at 19:57, antoninomubarik said:

حضرتك محتاج كود الخروج دون حفظ صح؟ 

 

نعم بدون حفظ وبدون ان يغير شيء في المستند وبدون اني يظهر لي مربع هل تريد الحفظ ام لا

في 8‏/1‏/2023 at 08:06, Ayman Alex said:

حضرتك محتاج كود الخروج دون حفظ صح؟ 

السلام عليكم دون حفظ ودون اني يظهر لي تحذير هل تريد الحفظ ام لا

السلام عليكم عملت قاعدة بيانات مخاطبات رسمية واقوم بالتصدير الى مستند وورد لغرض التنسيق بشكل سلس المشملة هي انه مستند الوورد اريد اغلاقه دائما بدون حفظ وبدون اظهار مربع الحوار (هل تريد الحفظ ام لا) هل يمكن ذلك لهذا المستند فقط؟؟؟

16 دقائق مضت, وايلي حبيب said:

وضح اكثر

يعني انني لا اريد ان يحفظ ما ساكتب في المستند فقط اريد اغلاق المستند بدون حفظ اي شيء وبدون تنبيهي بهل تريد الحفظ من عدمه ...

15 دقائق مضت, وايلي حبيب said:

السلام عليكم

مرفق لك الملف المطلوب

 

تجربه.docm 17.53 kB · 1 download

شكرا لك اخي على تجاوبك لكن الي اريده ان يغلق بدون خزن

مرحبا
لدي مستند وورد واريد اغلاقه دائما بدون حفظ وبدون اظهار مربع الحوار (هل تريد الحفظ ام لا) هل يمكن ذلك لهذا المستند فقط؟؟؟

مرحبا
لدي نموذج للطباعة وصممت النموذج لطباعة الورقة على شكل a4
عندي مشكلة انه النص المكتوب عند الطباعة يظهر غير منسق 
واريد ان تتساوى البدايات والنهايات مثل تنسيق النص في ورد 
انا عملت محاذاة لليمين والنص عندي منسق من اليمين لكن المشكلة في اليسار  الاسطر غير متساوية النهايات 
والنموذج هو لمخاطبات رسمية واحتاج الى طريقة لكيفية تساوي نهايات الاسطر من اليسار 
علما ان اللغة هي العربية

في ١٩‏/١‏/٢٠٢١ at 20:24, SEMO.Pa3x said:

عليكم السلام, تفضل:

 

'******************* module code **************

Public Const WS_CHILD As Long = &H40000000
Public Const WS_VISIBLE As Long = &H10000000


Public Const WM_USER As Long = &H400
Public Const WM_CAP_START As Long = WM_USER


Public Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25






Public Declare Function capCreateCaptureWindow _
    Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
         (ByVal lpszWindowName As String, ByVal dwStyle As Long _
        , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
        , ByVal nHeight As Long, ByVal hwndParent As Long _
        , ByVal nID As Long) As Long






Public Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
        , ByVal wParam As Long, ByRef lParam As Any) As Long


'************* end of module code ******************

Add the following controls in a form

1. A picture box with name "PicWebCam"

2. A commondialog control with name "CDialog"

3. Add 4 command buttons with name "cmd1","cmd2,"cmd3","cmd4"

then paste the following code

'************************** Code **************

Dim hCap As Long
Private Sub cmd4_Click()
Dim sFileName As String
    Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)
    With CDialog
        .CancelError = True
        .Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt
        .Filter = "Bitmap Picture(*.bmp)|*.bmp|JPEG Picture(*.jpg)|*.jpg|All Files|*.*"
        .ShowSave
        sFileName = .FileName









    End With
    Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))
DoFinally:
    Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End Sub




Private Sub Cmd3_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
End Sub


Private Sub Cmd1_Click()
hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0)
    If hCap <> 0 Then
        Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
        Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
        Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
    End If
End Sub






Private Sub Cmd2_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End Sub


Private Sub Form_Load()
cmd1.Caption = "Start &Cam"
cmd2.Caption = "&Format Cam"
cmd3.Caption = "&Close Cam"
cmd4.Caption = "&Save Image"
End Sub
'**************** Code end ************************

 

السلام عليكم

شكرا لردك

ممكن تنزل نموذج مثال

السلام عليكم

لدي قاعدة بيانات معلومات اشخاص وانا ضايف لها امكانية اضافة صورة من الحاسوب 

هل يوجد كود اضافة صورة التقاط مباشر من كاميرا الحاسوب او كاميرا مربوطة ؟؟؟

3 ساعات مضت, سامي الحداد said:

وعليكم السلام

Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub

جرب ووافينا اذا كان هذا هو المطلوب

تحياتي

السلام عليكم شكرا على تجاوبك

الكود حل جزء من المشكلة

ولكن عند تصفحي الارساليات مثلا عند فتح النموذج وتظهر الارسالية رقم ١ عند الضغط على التالي تظهر ١٠ ثم ١١ ثم ١٢ وبعدها تظهر رقم ٢

انا اريد ان تظهر ١ ٢ ٣ ٤ ... الخ

اخوان اذا اكو احد عنده معلومة

السلام عليكم 

لدي نموذج رئيسي ومرتبط به نموذج فرعي 

النموذج الرئيسي فيه ٣ حقول المعرف رقم الارسالية والتاريخ 

رقم الارسالية هو الاساسي ومفهرس لايقبل التكرار

ضبطت النموذج عند فتحه يظهر اخر سجل 

لكن واجهتني مشكلة انه لدي ١٠ سجلات مدخلة حاليا 

ولكن عند فتح النموذج يظهر السجل رقم ٩ 

السلام عليكم

اثناء تصفحي في اليوتيوب وجدت فيديو عن قاعدة بيانات لشجرة العائلة والصراحة اعجبني وياريت احد الاخوة اصحاب الخبرة يشرحلنه طريقة عمل مثل هيك قاعدة بيانات

3 ساعات مضت, مبرمج نت said:

صحيح اني اعتذر كان الخطا من عندي السطر البرمجي ما كان كامل المفروض تسبقه بــــ  .DoCmd   يعني يصير كالاتي :-

DoCmd.OutputTo acOutputQuery, Me.RecordSource, acFormatXLSX, Fname, Autostart:=False

استاذ ولو راح اثقل عليك بس ممكن تشوف الملف المرفق خليت الكود وتعالجه

Backup Sample.mdb

7 ساعات مضت, مبرمج نت said:

عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة 

Me.recordsource بدون علامات الاقتباس """

في السطر

.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False

لكي يصبح 

.OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False

مع تحياتي وابلاغي في حالة وجود خطأ

شكرا استاذ انا وضعت الكود في زر ولكن ظهر معي عندي هذا الشي