Hotline: 0351 26561113 Über 270.
Schwimmbad Einbauleiter aus Edelstahl V4A, Holmdurchmesser 40 mm, poliert, klappbar, mit Flanschbefestigung, enge Holm Ausladung Ausführung - integrierte Flanschmontage: 2-stufig 3-stufig 4-stufig 5-stufig Produktinformationen Schwimmbadleiter - Poolleiter in V4A Edelstahl zum Einsatz im Schwimmbad, Schwimmbecken, Pool. Edelstahl *V4A*, poliert, Holm ø 40 mm gleitsichere, profilierte Stufen Auftritt-Tiefe 75 mm senkrechter Stufenabstand 250/280 mm Breite Mitte Mitte Holm 485 mm Ausladung hinter Beckenkante 150 mm Holmhöhe über dem Beckenrand 600 mm Optional: Ausführung: als Sicherheitsstufe 180 x 485 cm breit, V4A Kunden, die diesen Artikel gekauft haben, kauften auch Weitere Artikel aus dieser Kategorie Produktinformationen einholen
Die Poolleiter wird dann im Sommer zum Poolsaugen herausklappbar und für die Überwinterung komplett herausnehmbar sein. Läßt sich doch so die Winterplane besser um den Pool verspannen. :):):) #8 AW: Hochbeckenleiter 2 x 4 Stufen V2A klappbar machen Etwas Sonne bzw. trockenes Wetter gab es am 05. 04. 2008 doch noch. Diese Zeit wurde zum neu Pflastern des Bereiches um die Leiter genutzt. Einige Steine müssen nun "nur" noch passend geflext werden. fertig:):):) #9 AW: Hochbeckenleiter 2 x 4 Stufen V2A klappbar machen warum werden die schwarzen Befestigungshülsen zuerst in den grünen Kunststoffrohre mit Beton vergossen und diese dann wiederum zusammen in Beton? Warum die schwarzen Hülsen nicht sofort in Beton befestigen - ohne die Kunststoffrohre? danke für Antwort! #10 AW: Hochbeckenleiter 2 x 4 Stufen V2A klappbar machen Ganz einfach - da ich damit mit der Pflaster Oberkante einen schönen Abschluß machen kann. Besser oben ein rundes Rohr als einen unförmigen Betonklumpen zwischen den Pflastersteinen.
Enabled = True TimePicker3. Location = New (462, 50) = "DateTimePicker3" 'CboxFahrzeug rmattingEnabled = True Me. CboxFahrzeug. Location = New (262, 100) = "CboxFahrzeug" Index = 13 in der CheckBox sollen die Fahrzeuge aufgeliste werden mit dem String: dbcmd = New OleDbCommand("SELECT * FROM tblfahrzeuge", conn) geht das sehr gut aber halt nur alle Fahrzeuge in der Access sind die Spalten ABHOLUNG_DATUM und ABGABE_DATUM als DATUM/ZEIT gesetzt mit Format Datum, kurz und Eingabe Format 99. Vba string vergleichen. 99. 0000;0;_ Danke für deine Hilfe #6 Danke für den Hinweis, werde es mir merken habe gerade mal alles was zusammengehört gepostet #7 Das Format ist egal, das ist nur Anzeige. Du hast Date/Time und übergibst String. Mit dem Rest kann ich nicht helfen, weil a) Ich nicht weiss was für eine DB dahinter steckt b) Ich deine Daten nicht kenne und es schwer zu sagen ist, warum da nix gefunden wird c) Ich nicht kann Der Ansatz mit dem Prepared Statement ist auf alle Fälle dem zusammengesetzten SQL-String vorzuziehen.
#21 Doch wieder als String? Was machen die = im Between? Was soll das Format DD-MM-YYYY in den Fixen Datumswerten? Entweder MM/DD/YYYY oder YYYY-MM-DD. Visual Basic: 'Wert aus DateTimePicker1 als SQL-String sqlStrDt1 = "#" & ("yyyy-MM-dd H:mm:ss") & "#" sqlStrDt2 = "#" & ("yyyy-MM-dd H:mm:ss") & "#" 'Hier kannst du sqlDt1 debuggen. VBA - Aktive Zeile ermitteln - MS-Office-Forum. Schauen mal wie die aussehen 'Das SQL zusammenstellen sql = "SELECT * " & "FROM tblfahrzeuge " & "WHERE " & " KFZ_NAME NOT IN ( " & " SELECT KFZ_NAME " & " FROM tblreservierung " & " WHERE " & " ( " & sqlStrDt1 & " BETWEEN abholung_datum AND abgabe_datum) " & " OR ( " & sqlStrDt2 & " BETWEEN abholung_datum AND abgabe_datum) " 'Das SQL debuggen 'Das SQL ausführen dbcmd = New OleDbCommand(sql, conn) Weiterer Tipp: SQL debuggen unter VBA/Access.
Mit F8 lässt Du den Code Schritt für Schritt durchlaufen. Mit offenen Lokalfenster (Ansicht, Lokalfenster) hast Du dann ein guten Blick auf die Objekte, Eigenschaften und sonstige Variablen und ihre Werte. Das ist ein Booster um VBA zu beherrschen. von: GerdL Geschrieben am: 11. Vba string vergleichen function. 2022 18:11:44 Moin, Schleifen Teil II - ( Teil I = und; Teil III =) Sub Test() Dim lngLetzteZeile As Long, lngZeile As Long lngLetzteZeile = Cells(, 1)(xlUp) 'Zeile der untersten Zelle in Spalte A mit Wert If Cells(, 2)(xlUp) > lngLetzteZeile Then lngLetzteZeile = Cells(, 2)(xlUp) 'Zeile der untersten Zelle in Spalte B mit Wert End If For lngZeile = 2 To lngLetzteZeile If Left$(Cells(lngZeile, 2)) = "01" Then Cells(lngZeile, 4) = Cells(lngZeile, 2) ElseIf Left$(Cells(lngZeile, 1)) = "01" Then Cells(lngZeile, 4) = Cells(lngZeile, 1) Gruß Gerd Geschrieben am: 14. 2022 13:22:08 Hey ihr beiden, danke für eure Hilfe. Das hat bisher echt super funktioniert. Jetzt kam mir allerdings noch eine Frage auf... Kann man in der If-Bedingung ergänzen, dass nicht nur geprüft wird, ob die Nummer mit "01" beginnt, sondern auch mindestens 9 Ziffern enthält?