LibreOffice-Forum

Hallo RobertG, danke für die schnelle und punktgenaue Hilfe :D Sub Kundennummer Dim zahl as Integer Dim oField as Object zahl = DMAX("numKundennummer","tblNummernkreise") oField = thisComponent.drawpage.forms.MainForm.fmtkunNummer oField.BoundField.updateInt( zahl ) End Sub So funktioniert es! In Ac...

Kurzes Feedback: Sub Kundennummer Dim zahl as Integer zahl = DMAX("numKundennummer","tblNummernkreise") setValue("Forms!frmKunden!txtkunBezeichnung", "" & zahl & "") End Sub Ich habe jetzt einfach mal in der setValue-Funktion ein Textfeld (txtkunBezeichnung) genommen. Da wird der Wert richtig überno...

Hallo, ich habe folgendes Problem: Sub Kundennummer Dim zahl as Integer zahl = DMAX("numKundennummer","tblNummernkreise") setValue("Forms!frmKunden!fmtkunNummer", "" & zahl & "") End Sub Das Makro funktioniert zwar, sprich er übergibt die Zahl an das fmtkunNummer und zeigt die Zahl auch beim Laden d...

Hallo karolus,

danke für die Info. Werd ich gleich mal anschalten und ausprobieren.

Ich kenn es nur von Access-VBA, und da hab ich die Codevervollständigung immer sehr hilfreich gefunden, da man Vorschläge bekommen hat welche Befehle miteinander harmonieren.

Mocke47

Hallo, ich möchte mal dieses etwas ältere Thema aufgreifen. Wie karolus schrieb, gibt es unter Extras/Optionen (aktuell LO 5.0) die Option Basic-IDE. Dort sind Häkchen für z.B. Codevervollständigung hinterlegt, aber leider noch nicht aktiv. Ich denke daher mal, dass ein solches Feature vorgesehen is...

Hallo gogo, jetzt funktioniert alles perfekt! Meine Datenbank war abgestürtzt und dabei hat er meine Änderung des Textfeldes auf txtZahl nicht übernommen. Da muss man erstmal drauf kommen :-). Hier nochmal der funktionierente Code für alle die Interesse an dem Makro haben Sub Test_Click(oEvent) sTex...

Hallo gogo, habs hinbekommen :-). Code: Sub Test_Click(oEvent) ''sText = oEvent.source.model.parent.getbyname("txtZahl").currentValue sText=1234 myDoc = StarDesktop.loadComponentFromURL(ConvertToURL( "\home\ubuntu\Dokumente\Calc.ods" ),"_blank", 0, array()) myDoc.getSheets().getByName("Tabelle1").ge...

Hallo gogo, danke für Deine Hilfe! Das Grundprinzip funtioniert perfekt :-). Hier mein Code und eine kurzes Feedback: Sub Test_Click(oEvent) ''sText = oEvent.source.model.parent.getbyname("txtZahl").currentValue sText="Test" myDoc = StarDesktop.loadComponentFromURL(ConvertToURL( "\home\ubuntu\Dokume...

Hallo, ich habe folgendes Problem: Ich möchte einen einzelne Zahl aus Base per Button (Basic-Makro) an Calc in eine bestimmte Zelle übergeben. Bei Access zu Excel habe ich folgendes ausprobiert (natürlich ergoogelt :-)). Es funktioniert genau so wie ich mir das vorstelle, aber ich möchte nach und na...

Sorry gogo das ich mich solange nicht gemeldet habe. Hier nun meine Lösung des Problemes mit Access2Base Erweiterung: Sub FormularBearbeiten Dim sTextfeld as String sTextfeld = getValue("Forms!Formularname!Tabellenfeld!Spaltenbezeichnung") 'übergibt den gefilterten Wert an sTextfeld OpenForm "Formul...