So funktioniert JustAnswer:

  • Fragen Sie einen Experten
    Tausende Experten in über 200 Kategorien.
  • Erhalten Sie eine professionelle Antwort
    Per E-Mail oder sofortiger Benachrichtigung, während Sie auf unserer Website warten.
    Stellen Sie ggf. weitere Anschlussfragen.
  • 100%ige Zufriedenheit garantiert
    Bewerten Sie die erhaltene Antwort.

Stellen Sie Ihre Frage an Tronic.

Tronic
Tronic, IT-Specialist
Kategorie: Computer
Zufriedene Kunden: 2269
Erfahrung:  Elektroniker und EDV-Service
31581453
Geben Sie Ihre Frage in der Kategorie Computer hier ein
Tronic ist jetzt online.

Sehr geehrte Damen und Herren, ich benötige aus einem Bericht

Kundenfrage

Bezug: ACCESS Bericht
Sehr geehrte Damen und Herren, ich benötige aus einem Bericht die Namen der Bezeichnungsfelder und die Beschriftung der Bezeichnungsfelder. Mit den Namen habe ich kein Problem: For each ctl Label = ctl.Name Wie kann ich die Information der Beschriftung erhalten (Caption). Vielen [email protected]
Gepostet: vor 4 Jahren.
Kategorie: Computer
Experte:  IT-Fachinformatiker hat geantwortet vor 4 Jahren.
Hallo,

ich würde es so mal versuchen

dim db as database
dim rpt as report

set db=currentdatabase()

for each r in db.reports

if r.caption="wert" then
'** aktion
end if
next

set db=nothing

Jedenfalls so in der Richtung müsste es sein habe den Code nicht geprüft aber es sollte so in etwa klappen.

Wenn Sie mir den Code hier her posten, würde mir das helfen. Ansonsten kann ich mir die Datenbank auch gern so ansehen ich arbeite mit Access 2010 falls Sie Interesse haben.

Gruss Günter
Kunde: hat geantwortet vor 4 Jahren.
Function HLabel(obj As Object)
Dim strCaption As String
Dim ue As DAO.Recordset
Set db = DBEngine(0)(0)
Set ue = db.OpenRecordset("tbl_Objects", dbOpenDynaset)
For Each ctl In obj.Controls
strFieldName = ctl.Name
pos1 = InStr(1, strFieldName, "_")
StrBeschriftung = Right(strFieldName, Len(strFieldName) - pos1)
If IsNull(strFieldName) Then
Else
With ue
If Left(strFieldName, 3) = "lbl" Then
.AddNew
!Language_short = "DE"
!Object_Name = strFieldName
!objekt_place = obj.Name
!object_Type = "Label"
!Name_long = StrBeschriftung
.Update
End If
End With
End If
Next ctl
Set rcdObjectOne = Nothing
Set db = Nothing
Exit Function
End Function
So erhalte ich zwar das Label des Bezeichnungsfeldes - nicht aber den Inhalt (Caption)
Die Daten werden in einer Datenbank abgelegt. Die Caption soll dann in eine andere Sprache übersetzt werden und in den Bericht zurückgeschrieben werdeb,
Experte:  IT-Fachinformatiker hat geantwortet vor 4 Jahren.
Hallo,

das Problem ist, das wenn der Bericht bereits erzeugt wurde keinerlei Veränderung mehr durchgeführt werden kann das muss vorher beim Ereignis "Formatieren" passieren.

Ich muss gerade einmal den passenden Code dazu erstellen, das dauert noch eine Weile. Bitte warten Sie...

Gruss Günter
Experte:  IT-Fachinformatiker hat geantwortet vor 4 Jahren.
So, das geht nicht Sie müssen das bereits vorher machen und zwar in der Tabelle! Sie können den Bericht überhaupt nicht mehr verändern. Sie müssen also in Ihrem Fall vorher das ganze per Tabelle regelen. Berichte sind nicht nachträglich modifizierbar. Die Inhalte von Datenfeldern vorallem absolut nicht. Die Eigenschaft zum abrufen wäre Value.

Bei mehrren Sprachen wäre es sinnvoll, wenn Sie die Sprachen auch in unterschiedlichen Tabellen verwalten, die identisch sind und die Berichte einzeln aufbauen oder eben mit einem Bericht dann müssen Sie die Übersetzung aber vorher machen. Sobald ein Bericht nämlich erstellt wurde, ist jede Einflussnahme absolut unmöglich!

Ich weiß auch nicht, wie Sie aktuell mehrere Sprachen einbinden ob Sie das mit mehreren Tabellen machen oder auf andere Weise.

Gruss Günter
Kunde: hat geantwortet vor 4 Jahren.
Das geht schon und zwar mit folgendem Code:
Declare Function adh_accGetLanguage Lib "msaccess.exe" Alias "#51" () As Long
Public Const adhcGerman = 1031 'German
Public Const adhcUSEnglish = 1033 'U.S. English
Public Const adhcDutch = 1043 'Dutch
Public Const adhcTurkish = 1055 'Turkish


Function GetActualLanguage() As String
Dim strLanguageText As String
GetActualLanguage = "DE"

Select Case adh_accGetLanguage()
Case adhcUSEnglish
GetActualLanguage = "NL"
strLanguageText = "Hollandisch"
Case adhcGerman
GetActualLanguage = "DE"
strLanguageText = "Deutsch"
End Select
Forms![Select_Language]![cbo_Language_Selection] = GetActualLanguage
End Function


Function ControlNames(obj As Object)
Set db = DBEngine(0)(0)
Set rcdObjectOne = db.OpenRecordset("tbl_Objects", dbOpenSnapshot)
strFormName = obj.Name
strLangu = Forms![Select_Language]![cbo_Language_Selection]
strCriteria = "Language_short = '" & strLangu & "' AND Objekt_Place = '" & strFormName & "' AND Object_Name = '" & strFormName & "'"
rcdObjectOne.FindFirst strCriteria
If rcdObjectOne.NoMatch = False Then
obj.Caption = rcdObjectOne("Name_Long")
End If
For Each ctl In obj.Controls
strFieldName = ctl.Name
strCriteria = "Language_short = '" & strLangu & "' AND Objekt_Place = '" & strFormName & "' AND Object_Name = '" & strFieldName & "'"
rcdObjectOne.FindFirst strCriteria
If rcdObjectOne.NoMatch = False Then
'ctl.ControlTipText = rcdObjectOne("Quicktip_Text")
Select Case rcdObjectOne("Object_Type")
Case "Label"
ctl.Caption = rcdObjectOne("Name_Short")
End Select
End If
Next ctl
rcdObjectOne.Close
Set rcdObjectOne = Nothing
Set db = Nothing
End Function

Mein Problem ist nur, dass ich vorher die Caption benötige um dann die Übersetzung durchzuführen.
Experte:  IT-Fachinformatiker hat geantwortet vor 4 Jahren.
Wie bereits gesagt, den Bericht kann man nicht mehr ändern. Sie machen das offensichtlich auch vorher, das ist klar, das das geht. Sie können aber auf gar keinen Fall den Bericht später ändern, wenn dieser bereits formatiert wurde d.h. wenn dann muss dies während der Formatierung passieren.

Ein Zugriff schreibender Zugriff auf die Caption Eigenschaft in Berichten ist nicht möglich. Wenn Sie das vorher machen, ist das was anderes aber, wenn der Bericht bereits erzeugt wurde keine Chance. Sie können auf die Caption wie folgt zugreifen:

'** lesen
MsgBox FeldnameImBericht.Caption.Value

'** schreiben
FeldnameImBericht.Caption.Value = "Wert"

Mehr ist nicht möglich und das muss eben geschehen, bevor der Bericht fertig also formatiert wurde.



Gruss Günter

Bekannt aus:

 
 
 
„[...]mehr als Zehntausend Experten weltweit; 1500 davon in Deutschland. Acht Jahre nach dem Start ist das [...] Online-Unternehmen mit seinen 90 Mitarbeitern die größte Web-Seite für das Vermitteln von Experten von Anwälten über Ärzte bis hin zu Universitätsprofessoren.“
„Wer eine fachmänische Lösung für ein medizinisches, rechtliches oder technisches Problem sucht, kann das jetzt auch im Internet tun. Lebenshilfe auf die schnelle, unkomplizierte und vor allem erschwingliche Art bietet die Seite www.justanswer.de. Etwa 1500 Experten stehen per Mail für Fragen zu ca. 200 Fachgebieten rund um die Uhr zur Verfügung."
„Rat gewünscht? Rechtliche, medizinische oder allgemeine Fragen beantworten Experten unter www.justanswer.de."
„JustAnswer, die weltweit führende Online-Plattform für Expertenfragen und -antworten, bietet ab sofort noch mehr Sicherheit und Qualität für Verbraucher."
„Ob Vorbereitung, Notfall oder Reklamation nach dem Urlaub - JustAnswer bietet jederzeit schnelle, kompetente Antworten"
„Die Online-Plattform JustAnswer bringt Ratsuchende und Experten in über 200 Fachgebieten zusammen."
 
 
 

Was unsere Besucher über uns sagen:

 
 
 
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
< Zurück | Weiter >
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
  • Endlich ein Experte, der mir wirklich weiterhelfen konnte! DANKE! JustAnswer Kunde Taunusstein
  • Ihre Antwort hat mir sehr geholfen, die richtigen Entscheidungen zu treffen. Dass Sie mir darüber hinaus noch 2 Empfehlungen gegeben haben fand ich super. Vielen Dank! JustAnswer Kunde Freiburg
  • Die ausgearbeiteten Hilfen waren gut strukturiert, leicht verständlich und zu 100% hilfreich für mich. Vielen Dank Markus B. Karlsruhe
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
  • Herzlichen Dank! Hab durch Ihre Antwort viel Geld gespart! Ben R. Deutschland
  • Sehr schnelle und kompetente Hilfestellung. Besonders für mich als Laien wurde alles sehr verständlich erklärt. Gerne wieder! Rosengl Bad Tölz
 
 
 

Lernen Sie unsere Experten kennen:

 
 
 
  • Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
< Zurück | Weiter >
  • http://ww2.justanswer.com/uploads/PY/Pyroflash/2011-4-21_104934_tronic.64x64.jpg Avatar von Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
  • http://ww2.justanswer.com/uploads/rufushoschi/2010-11-08_135947_bild.jpg Avatar von IT-Fachinformatiker

    IT-Fachinformatiker

    Systemadministrator

    Zufriedene Kunden:

    6338
    Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
  • http://ww2.justanswer.com/uploads/COMINAROSA/2010-02-03_172238_PASSBILD.JPG Avatar von COMIN IT-Service

    COMIN IT-Service

    Dipl.-Ing.

    Zufriedene Kunden:

    779
    Dipl.Ing (FH) ET, NT, IT
  • http://ww2.justanswer.com/uploads/RaubergerConcep/2010-03-02_102740_Portraet64.jpg Avatar von RaubergerConcept

    RaubergerConcept

    IT-Specialist

    Zufriedene Kunden:

    234
    Mehr als 10 Jahre Erfahrung in Softwareentwicklung und Netzwerktechnik
  • http://ww2.justanswer.com/uploads/LF/lfalkenburg/2015-2-8_01843_.64x64.jpg Avatar von Lutz Falkenburg

    Lutz Falkenburg

    IT-Specialist

    Zufriedene Kunden:

    96
    Seit über 20 Jahren beruflich im IT-/IUK-Bereich tätig. Egal ob EinzelPC der Netzwerk...
  • http://ww2.justanswer.com/uploads/BI/BigDaddyXD/2012-10-24_20126_WhySoSeriousJob.64x64.jpg Avatar von BigDaddyXD

    BigDaddyXD

    Informatiker

    Zufriedene Kunden:

    1588
    Microsoft Certified Professional, Microsoft Certified Desktop Support Technican,...
  • http://ww2.justanswer.com/uploads/PU/Pucky80/2011-5-14_54537_pucky80.64x64.jpg Avatar von Pucky80

    Pucky80

    IT-Systemkaufmann

    Zufriedene Kunden:

    1322
    MCITP (Microsoft Server 2008 Enterprise Administrator)
 
 
 

Ähnliche Fragen in der Kategorie Computer