Dbf Datei mit vb6 auswerten ?

Joe_515c88 · 10. November 2019 um 07:20

Guten Morgen Rainer,
Mein einziger lösungsansatz zu der 6mal kommen einmal gehen war den ersten datensatz kommen zu nehmen und bis zum nächstenmal gehen zu rechnen. wenn der mitarbeiter 6 man kommt und einmal geht würde man so auf 6 Datensätze kommen sie verschiedene eingangszeiten haben aber den selben austritt… Nun müssten diese nochmal verglichen werden ob Ausgangszeit = Ausgangszeit vom nächsten datensatz. Wenn ja den ersten behalten… Das das alles nicht „schön“ ist wusste ich schön als ich hörte " Kannst du nichtmal schauen ob du dafür ein Excal Makro schreiben kannst ? ich habe da eine dbf datei von einem LEsergerät … Mein tüddel Programm aus unserem Code war so schön, Nicht unbededingt Logisch und „sparsam“ gecoded aber es hatte Funktioniert. Argh ! Naja ein Neuer Tag ,

mfg Joe

Chewpapa_22ca98 · 10. November 2019 um 07:21

Hi Joe,

Nun müssten diese nochmal verglichen werden ob Ausgangszeit =
Ausgangszeit vom nächsten datensatz. Wenn ja den ersten
behalten…

Das ist so weit schon klar. Davon weißt Du aber noch nicht, wann der Mitarbeiter wirklich gekommen ist und berechnest eine falsche Zeit. Das System wird für fast alle Leute anzeigen, daß sie weniger gearbeitet hätten, als sie bezahlt wurden.

Das das alles nicht „schön“ ist wusste ich
schön als ich hörte " Kannst du nichtmal schauen ob du dafür
ein Excal Makro schreiben kannst?

Excel? Nein. Von Excel habe ich keine Ahnung und ich habe es privat auch gar nicht.

ich habe da eine dbf datei
von einem LEsergerät … Mein tüddel Programm aus unserem
Code war so schön, Nicht unbededingt Logisch und „sparsam“
gecoded aber es hatte Funktioniert. Argh ! Naja ein Neuer Tag
,

Das liegt nicht am Programm, sondern die unvollständigen Daten sind das Problem. Die Zeiten, die berechnet werden sollen, sind in der Datenbank nicht vollständig dokumentiert, die Auswertung kann nur falsch werden.

Ich bin übrigens noch nicht viel weiter gekommen, Kopfschmerzen. Vergessen habe ich Dich nicht.

Gruß, Rainer

Joe_515c88 · 10. November 2019 um 07:22

Nabend Rainer,
Ich stehe 1 Meter vor der Zielline: Also warte erstma.

Was passt hier nicht ???
If MA1 And MA2 And MA3 Data1.Recordset(2) And MA4 = „leer“ Then

Mein Problem ist das ich eine IF Zeile habe die in der Länge von Recht nach links nicht rein passt und somit einen Zeilenumbruch hat… kann man da was machen oder geht es doch wie ich es oben versuche

Chewpapa_22ca98 · 10. November 2019 um 07:22

N’Abend Joe,

Ich stehe 1 Meter vor der Zielline: Also warte erstma.

muss ich im Moment leider auch. Deshalb bin ich in letzter Zeit auch so oft zu Hause.

Was passt hier nicht ???
If MA1 And MA2 And MA3 Data1.Recordset(2) And MA4 =
„leer“ Then

Das kann VB nicht. Du kannst nur einen Wert mit einem anderen vergleichen und dann die Prüfungen mit AND verknüpfen.

If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 = „leer“ Then

Mein Problem ist das ich eine IF Zeile habe die in der Länge
von Recht nach links nicht rein passt und somit einen
Zeilenumbruch hat… kann man da was machen oder geht es doch
wie ich es oben versuche

Auch gegen den Zeilenumbruch kannst Du etwas tun. Mach mal hinter einen befehl ein Leerzeichen, einen ‚Unterstrich‘ "_’ und tipp dann [Enter]. Dann wird die Befehlszeile in der nächsten Textzeile fortgesetzt.

Gruß, Rainer

Joe_515c88 · 10. November 2019 um 07:22

zuviel Text ?
Procedure to Large ?

Private Sub Einlesen()
 n = 0
 Data1.Recordset.MoveFirst
 While Data1.Recordset.EOF = False
 n = n + 1
 Me.Caption = n
 If Data1.Recordset("ACCESS") = "Hintereingang au¯en" Then
 If MA1 = "leer" And MA1 Null Then
 MA1 = Data1.Recordset(2)
 Combo1.AddItem MA1
 End If
 If MA1 Data1.Recordset(2) And MA2 = "leer" Then
 MA2 = Data1.Recordset(2)
 Combo1.AddItem MA2
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 = "leer" Then
 MA3 = Data1.Recordset(2)
 Combo1.AddItem MA3
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 = "leer" Then
 MA4 = Data1.Recordset(2)
 Combo1.AddItem MA4
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 = "leer" Then
 MA5 = Data1.Recordset(2)
 Combo1.AddItem MA5
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 = "leer" Then
 MA6 = Data1.Recordset(2)
 Combo1.AddItem MA6
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 = "leer" Then
 MA7 = Data1.Recordset(2)
 Combo1.AddItem MA7
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 = "leer" Then
 MA8 = Data1.Recordset(2)
 Combo1.AddItem MA8
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 = "leer" Then
 MA9 = Data1.Recordset(2)
 Combo1.AddItem MA9
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 = "leer" Then
 MA10 = Data1.Recordset(2)
 Combo1.AddItem MA10
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 = "leer" Then
 MA11 = Data1.Recordset(2)
 Combo1.AddItem MA11
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 = "leer" Then
 MA12 = Data1.Recordset(2)
 Combo1.AddItem MA12
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 = "leer" Then
 MA13 = Data1.Recordset(2)
 Combo1.AddItem MA13
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 = "leer" Then
 MA14 = Data1.Recordset(2)
 Combo1.AddItem MA14
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 = "leer" Then
 MA15 = Data1.Recordset(2)
 Combo1.AddItem MA15
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 = "leer" Then
 MA16 = Data1.Recordset(2)
 Combo1.AddItem MA16
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 = "leer" Then
 MA17 = Data1.Recordset(2)
 Combo1.AddItem MA17
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 = "leer" Then
 MA18 = Data1.Recordset(2)
 Combo1.AddItem MA18
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 = "leer" Then
 MA19 = Data1.Recordset(2)
 Combo1.AddItem MA19
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 = "leer" Then
 MA20 = Data1.Recordset(2)
 Combo1.AddItem MA20
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 = "leer" Then
 MA21 = Data1.Recordset(2)
 Combo1.AddItem MA21
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 = "leer" Then
 MA22 = Data1.Recordset(2)
 Combo1.AddItem MA22
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 = "leer" Then
 MA23 = Data1.Recordset(2)
 Combo1.AddItem MA23
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 = "leer" Then
 MA24 = Data1.Recordset(2)
 Combo1.AddItem MA24
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 = "leer" Then
 MA25 = Data1.Recordset(2)
 Combo1.AddItem MA25
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 = "leer" Then
 MA26 = Data1.Recordset(2)
 Combo1.AddItem MA26
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 = "leer" Then
 MA27 = Data1.Recordset(2)
 Combo1.AddItem MA27
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 = "leer" Then
 MA28 = Data1.Recordset(2)
 Combo1.AddItem MA28
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 = "leer" Then
 MA29 = Data1.Recordset(2)
 Combo1.AddItem MA29
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 = "leer" Then
 MA30 = Data1.Recordset(2)
 Combo1.AddItem MA30
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 = "leer" Then
 MA31 = Data1.Recordset(2)
 Combo1.AddItem MA31
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 = "leer" Then
 MA32 = Data1.Recordset(2)
 Combo1.AddItem MA32
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 = "leer" Then
 MA33 = Data1.Recordset(2)
 Combo1.AddItem MA33
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 = "leer" Then
 MA34 = Data1.Recordset(2)
 Combo1.AddItem MA34
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 Data1.Recordset(2) And MA35 = "leer" Then
 MA35 = Data1.Recordset(2)
 Combo1.AddItem MA35
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 Data1.Recordset(2) And MA35 Data1.Recordset(2) And MA36 = "leer" Then
 Combo1.AddItem MA36
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 Data1.Recordset(2) And MA35 Data1.Recordset(2) And MA36 Data1.Recordset(2) And MA37 = "leer" Then
 Combo1.AddItem MA37
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 Data1.Recordset(2) And MA35 Data1.Recordset(2) And MA36 Data1.Recordset(2) And MA37 Data1.Recordset(2) And MA38 = "leer" Then
 Combo1.AddItem MA38
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 Data1.Recordset(2) And MA35 Data1.Recordset(2) And MA36 Data1.Recordset(2) And MA37 Data1.Recordset(2) And MA38 Data1.Recordset(2) And MA39 = "leer" Then
 Combo1.AddItem MA39
 End If
 If MA1 Data1.Recordset(2) And MA2 Data1.Recordset(2) And MA3 Data1.Recordset(2) And MA4 Data1.Recordset(2) And MA5 Data1.Recordset(2) And MA6 Data1.Recordset(2) And MA7 Data1.Recordset(2) And MA8 Data1.Recordset(2) And MA9 Data1.Recordset(2) And MA10 Data1.Recordset(2) And MA11 Data1.Recordset(2) And MA12 Data1.Recordset(2) And MA13 Data1.Recordset(2) And MA14 Data1.Recordset(2) And MA15 Data1.Recordset(2) And MA16 Data1.Recordset(2) And MA17 Data1.Recordset(2) And MA18 Data1.Recordset(2) And MA19 Data1.Recordset(2) And MA20 Data1.Recordset(2) And MA21 Data1.Recordset(2) And MA22 Data1.Recordset(2) And MA23 Data1.Recordset(2) And MA24 Data1.Recordset(2) And MA25 Data1.Recordset(2) And MA26 Data1.Recordset(2) And MA27 Data1.Recordset(2) And MA28 Data1.Recordset(2) And MA29 Data1.Recordset(2) And MA30 Data1.Recordset(2) And MA31 Data1.Recordset(2) And MA32 Data1.Recordset(2) And MA33 Data1.Recordset(2) \_
 And MA34 Data1.Recordset(2) And MA35 Data1.Recordset(2) And MA36 Data1.Recordset(2) And MA37 Data1.Recordset(2) And MA38 Data1.Recordset(2) And MA39 Data1.Recordset(2) And MA40 = "leer" Then
 Combo1.AddItem MA40
 End If
 End If
 Data1.Recordset.MoveNext

 Wend

End Sub

Chewpapa_22ca98 · 10. November 2019 um 07:22

Hi Joe,

zuviel Text ?
Procedure to Large ?

*gg* Die Meldung hatte ich noch nicht.

Aber es ist ja kein Problem mit copy and paste, die Prozedur in mehrere Prozeduren aufuuteilen und die in der Haupt-Prozedur aufzurufen. Ich sehe aber beim überfliegen viele Variablen MA1 … MA19 … Hättest Du da nicht ein Array MA(n) und Schleifen verwenden sollen?

Gruß, Rainer

Joe_515c88 · 10. November 2019 um 07:45

Moin Rainer,

Ich sehe aber beim überfliegen
viele Variablen MA1 … MA19 … Hättest Du da nicht ein Array
MA(n) und Schleifen verwenden sollen?

merkst du, wie du in der wunde rumbohrst ? P
ich muss mir unbedingt mal einen VB Liste mit den wichtigsten VB befehlen / Syntax machen… also so eine Art Kontenplan wie in der Buchhaltung… für c++ hatte ich sowas auch mal…

Ich Möchte mich hier nochmal für eure hilfe bedanken!!!
Ihr habt mir die „problematik Datenbank“ wieder ein ganzen stück näher gebracht… Auch wenn ich die Woche eine Cognos Schulung hatte wo gesagt wurde Datenbanken sind gemacht um daten schnell reinzuschreiben … beim auslesen sind die aber eher träge.

DANKE!!! DANKE !!! DANKE !!! und nochmals DANKE!!! Ein leben ohne WER-WEISS-WAS ist nich möglich !!!

Danke!!!

mfg jonny