Aggiornamento:
Ho trovato il problema, non ha nulla a che fare con l'apertura di una form2 da subform1, mi sembrava illogico....
Il problema è nella form di immissione immagini di cui copio il codice, laddove in seguito alla selezione e l'immissione di più immagini non mi fa il requery e mi mostra i campi aggiunti ma senza aggiornare Il campo contenente il nome dell'immagine (non la path)
Tabella tblimage
Campi: ImageID | txtImageName | txtFileName | Note
'Di seguito allego il codice su Evento Click del tasto + (che consente l'aggiunta della/e immagine/i)
Private Sub txtSource_Click()
Dim obj As Object
Dim rsimg As DAO.Recordset
Dim fDialog As Office.FileDialog
Dim varfile As Variant
Dim varID
Set obj = CreateObject("WScript.shell")
Set rsimg = CurrentDb.OpenRecordset("tblImage", dbOpenDynaset)
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.title = "Select Images To Add - Multiples OK"
.InitialFileName = obj.specialfolders("desktop\DBLibri\IMG")
.InitialView = msoFileDialogViewLargeIcons
.Filters.Clear
.Filters.Add "Images", "*.jpg,*.gif,*.png"
If .Show = True Then
For Each varfile In .SelectedItems
Name varfile As CurrentProject.Path & "\DBLibri\IMG" & "\" & Right(varfile, Len(varfile) - InStrRev(varfile, "\"))
rsimg.AddNew
varID = rsimg![ImageID]
'rsimg("ImageId") = varID 'rsimg("ImageId") = Me.ImageID
rsimg("txtImageName") = CurrentProject.Path & "\DBLibri\IMG" & "\" & Right(varfile, Len(varfile) - InStrRev(varfile, "\"))
rsimg.Update
Next varfile
End If
rsimg.Close
End With
Me.Requery
Me.Refresh
End Sub
Questa la uso per troncare la path e restituire il nome del file
Private Sub CallDisplayImage()
Dim nomeFile As String
Me!txtImageNote = DisplayImage(Me!ImageFrame, Me!txtImageName)
If IsNull(Me!txtFileName) Or Me!txtFileName = "" Then
If IsNull(Me!txtImageName) Then
Exit Sub
Else
nomeFile = Me!txtImageName
Me!txtFileName = Right(nomeFile, Len(nomeFile) - InStrRev(nomeFile, "\"))
End If
Else
Exit Sub
End If
End Sub
la uso "su corrente"
Private Sub Form_Current()
CallDisplayImage
End Sub
Per come ho strutturato il tutto, il campo "txtFileName" viene valorizzato solo se vado al record specifico, altrimenti resta vuoto...
il problema è li... ovviamente non mi è utile così, ma mi serve venga valorizzato insieme agli altri campi, grazie