117553
Mar 23, 2016, updated at 08:11:42 (UTC)
1048
2
0
Anzahl der Schleifen aus Kombinatsionsfeld übernehmen
Hallo zusamman,
hoffe ihr könnt mir helfen,...
ich habe 30 Textfelder und ein Kombinatsionsfeld (sucht zahlen aus einer Tabelle "1-30")
jetzt möchte ich die Anzahl der Schleifendurchgänge aus dem Kombifeld entnehmen und die Anzahl an Textfeldern automatisch mit Inhalt füllen.
bekomme leider immer Fehler wie zb. falscher bezeichner oder Dialogfeld erwartet
mfg Markus
Code:
Private Sub Kombinationsfeld15_Change()
Dim i, a, b As Integer
Dim pr, aufn As String
Dim Bta
Dim Bta1(1 To 30) As String
a = 0
b = 0
Bta = Array(Me!Aufnahme1, Me!Aufnahme2, Me!Aufnahme3, Me!Aufnahme4, Me!Aufnahme5, _
Me!Aufnahme6, Me!Aufnahme7, Me!Aufnahme8, Me!Aufnahme9, Me!Aufnahme10, _
Me!Aufnahme11, Me!Aufnahme12, Me!Aufnahme13, Me!Aufnahme14, Me!Aufnahme15, _
Me!Aufnahme16, Me!Aufnahme17, Me!Aufnahme18, Me!Aufnahme19, Me!Aufnahme20, _
Me!Aufnahme21, Me!Aufnahme22, Me!Aufnahme23, Me!Aufnahme24, Me!Aufnahme25, _
Me!Aufnahme26, Me!Aufnahme27, Me!Aufnahme28, Me!Aufnahme29, Me!Aufnahme30)
For i = 0 To [Kombinationsfeld15]
Bta(b + 1) = Bta(i)
aufn = Format("Aufnahme" & i)
pr = aufn.Value
b = b + 1
a = a + 1
pr = Me![Pr Nr] & Chr(Asc("A") + a)
Next i
End Sub
hoffe ihr könnt mir helfen,...
ich habe 30 Textfelder und ein Kombinatsionsfeld (sucht zahlen aus einer Tabelle "1-30")
jetzt möchte ich die Anzahl der Schleifendurchgänge aus dem Kombifeld entnehmen und die Anzahl an Textfeldern automatisch mit Inhalt füllen.
bekomme leider immer Fehler wie zb. falscher bezeichner oder Dialogfeld erwartet
mfg Markus
Code:
Private Sub Kombinationsfeld15_Change()
Dim i, a, b As Integer
Dim pr, aufn As String
Dim Bta
Dim Bta1(1 To 30) As String
a = 0
b = 0
Bta = Array(Me!Aufnahme1, Me!Aufnahme2, Me!Aufnahme3, Me!Aufnahme4, Me!Aufnahme5, _
Me!Aufnahme6, Me!Aufnahme7, Me!Aufnahme8, Me!Aufnahme9, Me!Aufnahme10, _
Me!Aufnahme11, Me!Aufnahme12, Me!Aufnahme13, Me!Aufnahme14, Me!Aufnahme15, _
Me!Aufnahme16, Me!Aufnahme17, Me!Aufnahme18, Me!Aufnahme19, Me!Aufnahme20, _
Me!Aufnahme21, Me!Aufnahme22, Me!Aufnahme23, Me!Aufnahme24, Me!Aufnahme25, _
Me!Aufnahme26, Me!Aufnahme27, Me!Aufnahme28, Me!Aufnahme29, Me!Aufnahme30)
For i = 0 To [Kombinationsfeld15]
Bta(b + 1) = Bta(i)
aufn = Format("Aufnahme" & i)
pr = aufn.Value
b = b + 1
a = a + 1
pr = Me![Pr Nr] & Chr(Asc("A") + a)
Next i
End Sub
Please also mark the comments that contributed to the solution of the article
Content-Key: 299885
Url: https://administrator.de/contentid/299885
Printed on: April 26, 2024 at 15:04 o'clock
2 Comments
Latest comment
Das sollte helfen
Gruß jodel32
For i = 0 To Cint(Me.Kombinationsfeld15.Value)