Уважаемые господа профессионалы и просто знающие VB. Ниже представлены два скрипта.
Первый выбирает нужную картинку, файл из каталога и прописывает в таблицу путь к картинке или файлу. Второй вытаскивает из файла, в котором находится база, все картинки в формате bmp и прописывает в таблицу путь, название, картинку.
Вопрос в следующем, как можно объединить эти два скрипта чтобы получился скрипт который мог делать следующее: Открывать каталог, выбирать нужную картинку,(bmp, jpg, gif...) прописывать ее в таблицу в разные поля, так как делает это второй скрипт ( путь, название, картинка)
Заранее благодарен за ответ, желательно с примером
Private Sub AddPicture_Click()
' Use the Office File Open dialog to get a file name to use
' as an employee picture.
getFileName
End Sub
Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![FirstName].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub |
|
Private Sub butExecute_Click()
Dim myBmp As String, myDir As String
On Error GoTo 999
myDir = Application.CurrentProject.path
myBmp = Dir(myDir & "\*.bmp ", vbNormal)
Do While Len(myBmp) <> 0
Me.PicName = myBmp
Me.PicLocation = myDir
Me.Pic.OLETypeAllowed = acOLEEmbedded
Me.Pic.SourceDoc = Me.PicLocation & "\" & Me.PicName
Me.Pic.Action = acOLECreateEmbed
myBmp = Dir
DoCmd.RunCommand acCmdRecordsGoToNew
Loop
DoCmd.RunCommand acCmdRecordsGoToFirst
MsgBox "Рисунки загружены!", vbExclamation, "Графика"
Exit Sub
999:
MsgBox Err.Description
Err.Clear
End Sub |
|