|
...
Dim stDocName As String
stDocName = "Form_Texte"
DoCmd.OpenForm stDocName, , , , , , getParamForSelectedDatabase(entry)
result = mod_Query.getText("Abfr_Tab_Texte", Url, "Texte_Symbol", Language, "Texte", 2)
Form_Form_Texte.Auswahl.value = result
(das ist das Formular das sich öffnet, und result ist das was kopiert wird und anhand die Daten angezeigt werden sollen)
Form_Form_Texte.Repaint
....
|