title image


Smiley Re: OLE-Objekt upload
Habe es selber rausbekommen:

-------------------------------







Private Sub bt_Insert_Datei_Click()





On Error GoTo Err_bt_Insert_Datei_Click



Dim r2 As DAO.Recordset



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70



Set r2 = CurrentDb.OpenRecordset("T_Dokument")

r2.AddNew

r2("Datei") = Me.of_Datei

r2("Dateiname") = Me.tf_Dateiname

r2("Beschreibung") = Me.tf_Beschreibung



r2.Update

r2.Close



Exit_bt_Insert_Datei_Click:

Exit Sub



Err_bt_Insert_Datei_Click:

MsgBox Err.Description

Resume Exit_bt_Insert_Datei_Click





End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: