Add or copy a wave file to a OLE Field ?

Question

Hallo VBA Freunde, ich beiße mir an diesem Problem die Zähne aus, vielleicht hilft mir jemand? Ich möchte eine Tonaufnahme in eine Tabelle, TB1,Feldname "Ton"  Eigenschaft OLE einfügen funktioniert nicht, geht nur manuell mit cut and Past

Private Sub Option41_Click()

' Tonaufnehmen

 Dim sPfad As String, sName As String

  Dim sDauer As String, sCommand As String

  sPfad = "C:\Temp\"              'anpassen

  sName = "blabla.wma"        'anpassen

  sDauer = "00:00:10"            '10 sec anpassen

   MsgBox "Aufnahme beginnt"

  sCommand = "SoundRecorder /file " & Chr(34) & sPfad & _   'was bedeutet  Chr(34) ???

              sName & Chr(34) & " /duration " & sDauer

  CreateObject("WScript.Shell").Run sCommand, 1, True

  MsgBox "Aufnahme beendet"

  'DoCmd.CopyObject , "c:Temp\blabla.wma", acTable,   "TB1", “Ton”     ' Ton ist ein OLE Feld

End Sub

   'Ich kann die c:Temp\blabla.wma mit Cut und Past natürlich in das Datenfeld "Ton" einfügen. SendKey scheidet aus da meine VBA Version das nicht unterstützt.

Answer 1

Hallo Juhoff99,

Es sind mir zwei Besonderheiten in Deinem Codeauszug aufgefallen. Zum einen beginnt die sCommand-Zeichenfolge nicht mit dem vollständigen Pfad zum Autorekorder. Er lautet in Windows 8.1 %SystemRoot%\system32\SoundRecorder.exe . Schau mal, ob es mit dem vollständigen Pfad klappt und ob er für Deine Windows-Version angepasst werden muss.

Zum anderen erfordert die DoCmd.CopyObject-Funktion vier Parameter, wobei die AcObjectType-Aufzählung als dritter optionaler Parameter aufgelistet wird. Beachte bitte auch die Beschreibung des ersten Parameters. Was für einen Fehler erhältst Du beim Aufruf der Funktion?

was bedeutet  Chr(34) ???

Chr(34) entspricht einem Anführungszeichen.

Gruß,
Dimitar

---

Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 2

Hallo,

Die Methode, die wav-Datei in ein Feld zu bringen, ist AppendChunk, Beispiel für ein Bild siehe hier.

Gruss - Peter

---

Mitglied im www.dbdev.org
Access-FAQ: www.donkarl.com