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

[الطـاير]

السلام عليكم جميعا اخواني الاحباب

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

لذا ارجو منكم المساعدة في تعديل الكود هذا ليأخذ الرقم تلقائي

مرفق صورة الكود للتوضيح

[الطـاير]

جزاكم الله خير الا يوجد رد وحل لهذا الكود ؟؟؟

[zahrah2016]

اخي الفاضل الطاير

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

Private Sub أمر149_Click()
Dim fileName As String
fileName = "C:\Record\Sader\2007\" & Format(Me.ID, "000") & ".pdf"
Call TWAIN_LogFile(1)
Call TWAIN_SetHideUI(1)
Call TWAIN_SetIndicators(0)
Call TWAIN_SetJpegQuality(25)
If  TWAIN_OpenOpenSource("HP Commercial Scanjet 8250 TWAIN")<>0 Then
     Call TWAIN_SetResolution(25)
     Call TWAIN_SetPaperSize(1)
     Call TWAIN_AcquireMultipageFile(Me.hwnd, fileName)
End If
If TWAIN_LastErrorCode()<>0 Then
     Call TWAIN_ReportLastError("Unable to scan.")
End If
End Sub

تم تعديل نوفمبر 13, 2007 بواسطه zahrah

[الطـاير]

جزاك الله خير اختي زهرة وهذا مش جديد عليكي

ربنا يبارك فيكم وفي ذريتك

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

بالشكل ده

[الطـاير]

جزاك الله خير اختي زهرة وهذا مش جديد عليكي

ربنا يبارك فيكم وفي ذريتك

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

بالشكل ده

    Dim file As String
    Call TWAIN_LogFile(1)
    Call TWAIN_SetHideUI(1)
    Call TWAIN_SetIndicators(0)
    Call TWAIN_SetJpegQuality(10)
    
    If TWAIN_OpenSource("HP Commercial Scanjet 8250 TWAIN") <> 0 Then
    Call TWAIN_SetPaperSize(1)
    ' If you can't use Me.hwnd, pass 0:
    file = Me.ID
    Call TWAIN_AcquireMultipageFile(Me.hwnd, "C:\Record\Sader\2007\" & file & ".PDF")
    End If
    
    If TWAIN_LastErrorCode() <> 0 Then
        Call TWAIN_ReportLastError("ÝÔáÊ ÚãáíÉ ÇáãÓÍ")
    End If

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

وجزاك الله خير

لكن الحين فيه طلب تاني جزاكي الله خير

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

يا ريت المساعدة في النقطة دي

وعلي فكرة الفضل لله ثم حضرتك في انهاء هذا العمل لأني اقتبست بعض الاكود من مواضيعك المفيدة جعلها الله في ميزان حسناتك

[zahrah2016]

تفضل اخي الفاضل الطاير

عملت لك برنامج خاص بفتح الملفات خذ الأكواد منه وقم بتعديل مسمى مربعات وزر الأمر النص في الكود كما هو لديك .

المسار الإفتراضي لموقع الملفات هو C:\Record\Sader\2007

وهذا هو البرنامج قم بالتجربه عليه اولا ثم انقل الأكودا منه

za_OpenFile.rar

[الطـاير]

جزاك الله خير اختي الفاضلة زهرة وجعل كل هذا في ميزان حسناتك