طراحی فرم منو اصلی پویا در اکسس (Dynamic Form)

[mazoolagh]

روش کپی تصاویر در جدول resources

Private Sub Icon_AfterUpdate()

Dim RS1 As Recordset

Dim RS2 As Recordset

Set RS1 = CurrentDb.OpenRecordset("MSysResources")

If Me.Icon.FileName <> "" Then

    Me.FileName = Replace(Me.Icon.FileName, "." + Me.Icon.FileType, "")

    RS1.AddNew

    Set RS2 = RS1("Data").Value

    RS2.AddNew

    RS2("FileData") = Me.Icon.FileData

    RS2("FileName") = Me.Icon.FileName

    RS2.Update

    RS2.Close

    Set RS2 = Nothing

    RS1("Type") = "img"

    RS1("Name") = Me.FileName

    RS1("Extension") = Me.Icon.FileType

    RS1.Update

Else

    Me.FileName = ""

End If

RS1.Close

Set RS1 = Nothing

End Sub