Hallo Forum :)
Ich versuche gerade mithilfe der Google Calendar API meine Access Daten an den Kalender weiterzugeben.
Der Code für die Einbindung steht schon und funktioniert auch.
Private Sub Command5_Click()
'Neues Event hinzufügen
Me.Text0 = Null
Dim Method As String, content As String, Body As String, addAuth As Boolean, URL As String
Dim a As Long, JsonArray() As String, JSonText As String
If CheckToken = False Then DoCmd.OpenForm "Browser"
Method = "POST"
' v3/calendars/-- primary --/events primary = Kalender-ID für Termin Eintragung
URL = "https://www.googleapis.com/calendar/v3/calendars/primary/events"
content = "application/json"
Body = "{""start"":{""dateTime"":""2018-12-11T14:30:00"",""timeZone"":""Europe/Berlin""},""end"":{""dateTime"":""2018-12-11T17:30:00"",""timeZone"":""Europe/Berlin""},""colorId"":""11"",""summary"":""API Test Kalender hinzufügen"",""description"":""Beschreibung Test"",""location"": ""Ortsangabe""}"
addAuth = True
SendHTTP URL, Method, content, Body, addAuth
JSonText = JsonParse(HTTP_ResponseText)
Me.Text0 = JSonText
JsonArray() = SplitTo2DArray(JSonText, vbNewLine, ";")
For a = LBound(JsonArray) To UBound(JsonArray)
Debug.Print a, JsonArray(a, 1), JsonArray(a, 2)
Next a
End Sub
Gerade wichtig ist aber eigentlich nur Zeile 13 in der die relevanten Daten mit dem Body abgesendet werden.
Nun liegt mein Problem darin, dass Angaben (in Z.13) wie Summary (also "API Test Kalender hinzufügen") , Description ( "Beschreibung Test") und Location ("Ortsangabe") variabel sind und damit an den Inhalt einer Textbox gebunden werden sollen.
Hat jemand einen Vorschlag wie ich am besten die TextBox Inhalte in die Body Zeile integrieren kann?
Vielen Dank schon mal im Voraus!
LG
Die Frage ist also, wie bindet man eine Variable in einen String ein.
"Text" & Variable & "Folgetext"
oder
"Text" & Textbox.Text & "Folgetext"
Das doppelte Hochkomma zeigt immer an: Hier endet ein Text, außer das Hochkomma wird durch ein weiters maskiert.
Dann wird in den Text ein doppeltes Hochkomma eingefügt.
Ahh Ok Super!
Die ganzen Hochkommas hatten mich ganz schön durcheinander gebracht.
Dankeschön!