اضافة اسم للمستند بعد سحب الصورة من الاسكانر

اخى الكريم

المثال تم تصميمه لادراج الصورة حسب ترقيمها

و الكود المسئول عن ذلك هو

Private Sub DBPixMain_ImageModified()
    Dim ImageFilename As String
    'Me!EmpPIC = ""
    If DBPixMain.ImageBytes < 1 Then
        DBPixMain.ImageViewBlob (Null)
   Else
        If DBPixMain.ImageFormat = 2 Then
            ImageFilename = Me!picno + 1 & ".png"
        Else
            ImageFilename = Me!picno + 1 & ".jpg"
        End If
        If DBPixMain.ImageSaveFile(GetImageFolder & ImageFilename) Then
            'Me!EmpPIC = ImageFilename
            Dim rs As DAO.Recordset
            Set rs = CurrentDb.OpenRecordset("tblpics")
            rs.AddNew
            rs!archiveid = Me.docid
            rs!picno = Me.picno + 1
            rs!pic = ImageFilename
            rs.Update
            rs.Close
            Set rs = Nothing
            Me.piclist.Requery
        End If
    End If
End Sub

و بالاخص هذا الجزء

If DBPixMain.ImageFormat = 2 Then
            ImageFilename = Me!picno + 1 & ".png"
        Else
            ImageFilename = Me!picno + 1 & ".jpg"
        End If

يمكنك بكل سهولة وضع مربع نص فى النموذج

و ليكن اسمه picname

و يتم تعديل الكود هكذا

If DBPixMain.ImageFormat = 2 Then
            ImageFilename = Me!picname & ".png"
        Else
            ImageFilename = Me!picname & ".jpg"
        End If

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

ولكن عند وضع مربع نص وتغيير الكود

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

لان الفورم مصدرة الجدول الرئيسي الذي يحتوي على المعلومات الاساسية فقط

واللست بوكس هي التي تحتوي على بيانات الجدول الثاني لادارج معلومات الصور اي المتابعة

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

للرفع

مربع النص لن يكون له مصدر

هو فقط لادخال اسم الصورة به

شكرا ضبط معاي

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