Office: (Office 2003) Array einer Form zuweisen

Anne Berg · 13. Juli 2005

Die Spaltenanzahl kann aber nachträglich (zur Laufzeit) nicht mehr geändert werden, nur im Entwurf!

steffeli · 13. Juli 2005

Cool *Birthday

Aber eine Frage hab ich noch: wie kann man die Spaltenanzahl über VBA definieren, mit

Code:

Forms("Formular1").Controls("Diagramm").ColumnCount = 3
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

erhalte ich den Fehler 2448 "You can't assign a value to this object". Habt ihr eine Idee? *rolleyes.gif*

Anne Berg · 13. Juli 2005

Wie gesagt, über den Entwurf! Code:

Docmd.openform "formular1", acDesign
Forms("Formular1").Controls("Diagramm").ColumnCount = 3
DoCmd.Close acForm, "Formular1", acSaveYes
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

steffeli · 13. Juli 2005

Mein Gott echt? Geht denn das wirklich nicht eleganter? *boah

steffeli · 13. Juli 2005

wenn mehrere Benutzer gleichzeitig die Datenbank benutzen, dann funktioniert doch das Abspeichern von Formularen nicht, oder?

Marsu65 · 13. Juli 2005

Sollte es tatsächlich gelungen sein *dance ?!?

Sorry steffeli ich kann es mir nicht verkneifen: Bereits in #75 stand:

'Die Spaltenanzahl muss von Hand in den Eigenschaften eingetragen werden
'### Spaltenanzahl = rst.Fields.Count 'Anzahl der Felder
'### Forms("Formular1").Controls("Diagramm").ColumnCount = Spaltenanzahl
'funktioniert (so) nicht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*hands
Eine andere Möglichkeit, ausser der, wie Anne sagt, über den Entwurf zu gehen (Was aber blöd bei MDE´s ist) kenn ich auch noch nicht ... werde es dich wissen lassen, wenn ich was finde.

steffeli · 13. Juli 2005

Ok, lasst es mich bitte wissen, wenn ihr eine bessere Lösung findet. Hier noch nun dies: HERZLICHEN DANK FÜR ALLE TAPFEREN HELFERLEIN! *Birthday Obwohl, es ist ja schon schade, dass wir so kurz vor der #100 aufhören...

Anne Berg · 13. Juli 2005

Keine Sorge, das schaffen wir noch! *wink.gif*

Frontend (lokal) und Backend (im Netz) sollte Standard sein in einer Mehrbenutzerumgebung! (soweit zum Thema "Formular speichern")

Im übrigen erkläre bitte mal den Sinn, die Diagrammeigenschaften zur Laufzeit zu ändern. Du solltest doch froh sein, endlich die Werteliste einstellen zu können! *biggrin.gif*

vfrei · 13. Juli 2005

Hallo zusammen,
wie in #81 geschrieben, habe ich ein ähnliches Problem.
Ich habe die Sache in der Weise gelöst, dass ich die Daten direkt in das Tabellenblatt für das Diagramm schreibe.
Hier der Code:
Code:

Public Sub Calculate()
Const strFnName = "frmRptClass.Calculate"
Dim strSql As String
Dim rst As ADODB.Recordset
Dim strMsg As String
Dim chtDS As Object
Dim dblAll As Double

On Error GoTo Exit_Calculate
strSql = "SELECT tblPartUsage.PartID, tblPartUsage.SeriesID, tblPartUsage.FgID, tblPartCost.CostTypeID, tblPartCost.Target, tblPartCost.Actual, tblBlockingRelation.BlockingLevelPlan_left, tblBlockingRelation.BlockingLevelEstFG_left, tblBlockingRelation.Proposed, tblBlockingRelation.BlockingNorm_left, tblBlockingRelation.BlockingID, tblPartUsage.IsEcktyp, tblPartUsage.IsSA "
strSql = strSql & "FROM (tblBlockingRelation INNER JOIN tblPartUsage ON (tblBlockingRelation.LeftSeries = tblPartUsage.SeriesID) AND (tblBlockingRelation.LeftPartID = tblPartUsage.PartID)) INNER JOIN tblPartCost ON (tblBlockingRelation.LeftSeries = tblPartCost.BRID) AND (tblBlockingRelation.LeftPartID = tblPartCost.PartID) "
strSql = strSql & "WHERE tblPartCost.CostTypeID = " & Me.cboCostTypeI & " AND tblBlockingRelation.LeftSeries = 128 AND tblBlockingRelation.RightSeries = 136"
If Me.optgrpPartType = 1 Then
strSql = strSql & " AND tblPartUsage.IsEcktyp= True"
End If
If Me.optgrpPartType = 2 Then
strSql = strSql & " AND tblPartUsage.IsSA= True"
End If
If Me.optgrpPartType = 3 Then
strSql = strSql & " AND (tblPartUsage.IsEcktyp= True OR tblPartUsage.IsSA= True"
End If
strSql = strSql & ";"

Set chtDS = Me.oleChart.Object.Application.datasheet
Set rst = New ADODB.Recordset
chtDS.Cells(2, 1) = ">" & Me.txtUgrA
chtDS.Cells(3, 1) = ">" & Me.txtUGrB & "" & Me.txtUGrC & " " & CDbl(Me.txtUGrC) & " AND " & Me.cboCostTypeII & " " & CDbl(Me.txtUGrB) & " AND " & Me.cboCostTypeII & " " & Me.txtUgrA
If Not (rst.EOF And rst.BOF) Then
rst.MoveLast
chtDS.Cells(2, 2) = rst.RecordCount
chtDS.Cells(5, 2) = dblAll - rst.RecordCount
Else
chtDS.Cells(2, 2) = 0
chtDS.Cells(5, 2) = dblAll - 0
End If
Me.oleChart.Object.Refresh
Me.pictExample.Visible = False
CleanUp:
If Not rst Is Nothing Then Set rst = Nothing
On Error GoTo 0
Exit Sub
Exit_Calculate:
If Err.Number 0 Then
ShowErrorMsg Err, strFnName
End If
GoTo CleanUp
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die entscheidenden Zeilen dabei sind:
Code:

Set chtDS = Me.oleChart.Object.Application.datasheet
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

für die Auswahl des Datenblattes und
Code:

chtDS.Cells(row, col) = "Wert"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

für das Eintragen der Werte

HTH
Vincenz

steffeli · 13. Juli 2005

Uiuiui, das ist aber mächtig kompliziert, eine Schuhnummer zu gross für mich. Kann mir das jemand für meine Anwendung umschreiben? *knuddel

Office: (Office 2003) Array einer Form zuweisen

Array einer Form zuweisen

Array einer Form zuweisen

Array einer Form zuweisen

Array einer Form zuweisen

Array einer Form zuweisen - Similar Threads - Array Form zuweisen

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Array aus Excel Tabelle einlesen Word VBA

Summenteilergebnis eines Arrays als Array darstellen

Formel bei Veränderung von dynamischem Array "mitziehen"?

Array-Funktion mit VBA in Zelle schreiben