[dimitrisp]

Γεια σας

Φίλε Γιάννη,
1) Ο Κώδικας χτυπάει στο "filename = fileArr(lenArray)" και
2) Η γραμμή του Κώδικα "DoCmd.RunSQL ("INSERT INTO LogFiles (FILENameS) VALUES ('" & filename & "')")",
τρέχει με το που θα ανοίξω τη φόρμα.(Ενω θέλουμε να τρέχει μετά το drag and drop)

Δυστυχώς, δεν μπορώ να τα διορθώσω... Δεν μπορώ να καταλάβω τι δεν κάνω σωστά...

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Dim fileArr

Dim filename As String
Dim lenArray As Integer
fileArr = Split(URL, ".")(0)
fileArr = Split(filename, "\")
lenArray = UBound(fileArr) - LBound(fileArr)
filename = fileArr(lenArray)
If URL <> AboutBlank Then
DoCmd.RunSQL ("INSERT INTO LogFiles (FILENameS) VALUES ('" & filename & "')")

End If
End Sub

Σε κάθε περίπτωση σε ευχαριστώ