Akherousin
Mitglied
Guten Tag,
Ich muss momentan einige Data Access Pages fertigstellen und dabei bin ich auf ein ärgerliches Problem gestossen, bei dem ich Hilfe brauche.
Prinzipiell ist das, was ich möchte simpel. Ich klicke in einer eigenen Outlook-Form auf einen commandbutton, mit dem ich die Data-Access-Page aufmache. Gleichzeitig schreibe ich den "User" in eine kleine Tabelle "tU" in Access. Damit ich nun den gewünschten Datensatz angezeigt bekomme, möchte ich per VBScript im "onload" Bereich der Page den Wert in der Spalte "u" in der Tabelle "tU" auslesen, um nur den anzuzeigen.
Das anzeigen eines einzelnen Datensatzes ist kein Problem, das hab ich per VBScript hinbekommen.
Doch wie kann ich nach dem Verbinden mit der Tabelle den Wert auslesen? Das von Outlook bekannte rst.fields("u").value funktioniert nicht, und die Dokumentation hilft mir leider auch nicht weiter.
Anbei mein Code bisher, vielen Dank für jedwede Hilfe.
Wie gesagt, tmpUe = rs.fields("u").value funktioniert leider nicht. Wie muss der Befehl lauten?
Ich muss momentan einige Data Access Pages fertigstellen und dabei bin ich auf ein ärgerliches Problem gestossen, bei dem ich Hilfe brauche.
Prinzipiell ist das, was ich möchte simpel. Ich klicke in einer eigenen Outlook-Form auf einen commandbutton, mit dem ich die Data-Access-Page aufmache. Gleichzeitig schreibe ich den "User" in eine kleine Tabelle "tU" in Access. Damit ich nun den gewünschten Datensatz angezeigt bekomme, möchte ich per VBScript im "onload" Bereich der Page den Wert in der Spalte "u" in der Tabelle "tU" auslesen, um nur den anzuzeigen.
Das anzeigen eines einzelnen Datensatzes ist kein Problem, das hab ich per VBScript hinbekommen.
Doch wie kann ich nach dem Verbinden mit der Tabelle den Wert auslesen? Das von Outlook bekannte rst.fields("u").value funktioniert nicht, und die Dokumentation hilft mir leider auch nicht weiter.
Anbei mein Code bisher, vielen Dank für jedwede Hilfe.
Code:
<SCRIPT language=vbscript event=onload for=window>
<!--
dim tmpUe
Dim rs
Set rs = MSODSC.RecordsetDefs.Item("tU")
On Error Resume Next
tmpUe = rs.fields("u").value
If (err.number <> 0) Then
MsgBox "Error: " & err.number & " " & err.Description,, "Suche Ungültig."
Exit Sub
End If
-->
</SCRIPT>
Wie gesagt, tmpUe = rs.fields("u").value funktioniert leider nicht. Wie muss der Befehl lauten?