felder automatisch ausfüllen

[DF6GL]

Hallo,


naja, so hab ich die Bedeutung des Feldes "Faktor" verstanden, dass es ein Multiplikationsfaktor (was "Faktor" normalerweise bedeutet) für die in den einzelnen Textfeldern stehenden Werte sein soll.  Wenn der Wert in "Faktor" lediglich in die einzelnen Felder übergeben werden soll, dann muss es halt so heißen:

Private Sub FelderVorbelegen(ByVal intVon As Integer, ByVal intBis As Integer, ByVal dblFaktor As Double)
Dim ctl As Control  
For Each ctl In Me.Controls
On Error Resume Next
If Mid(ctl.Name, 3, 2) >= intvon And Mid(ctl.Name, 3, 2) <= intbis Then
ctl.Value =  dblfaktor
End If
Next
End Sub


PS: soll auch ein "leeres" Faktor-Feld übernommen werden (NULL), dann so (Voraussetzung dabei ist, dass die Tabellenfelder NULL-"Werte" zulassen):

Code [Auswählen] Erweitern

Private Sub Befehl173_Click()

Dim intVon As Integer
Dim intBis As Integer
Dim dblFaktor As Double
If IsNumeric(Me!von) Then
intVon = Me!von
Else
MsgBox "Wert Von ist nicht numerisch!   ", vbCritical
Exit Sub
End If
If IsNumeric(Me!bis) Then
intBis = Me!bis
Else
MsgBox "Wert Bis ist nicht numerisch!   ", vbCritical
Exit Sub
End If
If intVon > intBis Then
MsgBox "Von größer bis!   ", vbCritical
Exit Sub
End If
Call FelderVorbelegen(intVon, intBis, Me!faktor)
End Sub
   
Private Sub FelderVorbelegen(ByVal intVon As Integer, ByVal intBis As Integer, ByVal faktor)
Dim ctl As Control

For Each ctl In Me.Controls
On Error Resume Next
If Mid(ctl.Name, 3, 2) >= Me!von And Mid(ctl.Name, 3, 2) <= Me!bis Then
ctl.Value = faktor
End If
Next



End Sub

[georg5]

@DF6GL vielen Dank du bist der BESTE es funktioniert wie geplant
sorry wegen meiner Unerfahrenheit