هذا الكود الخاص بال buttom
Private Sub Command57_Click() Dim A as string A = Choose_File(FolderPath(Nz(Me.scan, ""))) If Nz(A, "") <> "" Then Me![Text54] = A هنا ظهر الخطا بيقول ان لازم ادخل صورة حجمها اقل مع العلم ان الصورة صغيرة جدا LCase (Me![Text54] = Me![Text54]) Me![Text54] = Me![imgPicture].Picture End If End Sub
-----------------------------------------------------------------------------------
هذا الكود خاص بال مربع النص
Private Sub Text54_AfterUpdate() On Error Resume Next Me.imgPicture.Picture = "" Me.imgPicture.Picture = Me.Text54 End Sub
