Hi habe ein combobox (Anzahl_wochen), ein dpciker controll (abreise)
darin enthaltener code sht so aus
If anzahl_wochen.text = "1 Woche" Then
t = 7
t.Visible = False
ElseIf anzahl_wochen.text = "2 Wochen" Then
t = 14
t.Visible = False
ElseIf anzahl_wochen.text = "3 Wochen" Then
t = 21
t.Visible = False
ElseIf anzahl_wochen.text = "x Tage" Then
t.Visible = True
abreise = anreise + t
End Ifwenn anzahl_wochen umgestellt wird auf irgend ein wert passiert folgendes
abreise wird dementsprechen geändert ... mittels anreise wert.
dann wird eine funktion aufgerufen wo labels entladen und wieder geladen werden
nur da kommt der obige LFZ.
hier ein auszug
While (saisonzeit.Count - 1) > 0
Unload saisonzeit(saisonzeit.Count - 1) '<----Hier geschiet der Fehler!
Unload wochenpreisek(wochenpreisek.Count - 1)
Unload wochenpreisVK(wochenpreisVK.Count - 1)
Wend
Dim einzel_tag_ek, einzel_tag, gesammt_summe As Currency
If huettencode.text <> "" And anreise < abreise And Len( _
huettencode.text) > 9 Then
weiter:
sql = "Select * from Huetten_preis_zeit where huettencode='" & Mid( _
huettencode, 1, Len(huettencode) - 3) & "' and huetten_geschoss='" & Mid( _
huettencode, Len(huettencode) - 2, 1) & "' and personen=" & Mid( _
huettencode, Len(huettencode) - 1, 2) & " and von>=" & Format(anreise, _
"\#m\/d\/yy\#") & " and von<=" & Format(abreise, "\#m\/d\/yy\#") & _
" or huettencode='" & Mid( _
huettencode, 1, Len( _
huettencode) - 3) & "' and" & _
"huetten_geschoss='" & Mid( _
huettencode, Len(huettencode) - _
2, 1) & "' and personen=" & Mid( _
huettencode, Len(huettencode) - _
1, 2) & " and bis>=" & _
Format(anreise, "\#m\/d\/yy\#") _
& " and bis<=" & Format( _
abreise, "\#m\/d\/yy\#") & _
" or huettencode='" & Mid( _
huettencode, 1, Len( _
huettencode) - 3) & "' and" & _
"huetten_geschoss='" & Mid( _
huettencode, Len(huettencode) - _
2, 1) & "' and personen=" & Mid( _
huettencode, Len(huettencode) - _
1, 2) & " and " & Format( _
anreise, "\#m\/d\/yy\#") & "" & _
"between bis and von" & _
" or huettencode='" & Mid( _
huettencode, 1, Len( _
huettencode) - 3) & "' and" & _
"huetten_geschoss='" & Mid( _
huettencode, Len(huettencode) - _
2, 1) & "' and personen=" & Mid( _
huettencode, Len(huettencode) - _
1, 2) & " and " & Format( _
abreise, "\#m\/d\/yy\#") & "" & _
"between bis and von" & _
" order by von,bis"
Set preis_filter = Db.OpenRecordset(sql)
gesammt_summe = 0
gesammt_summe_ek = 0
If preis_filter.RecordCount <> 0 Then
von_int = anreise
bis_int = abreise
While preis_filter.EOF = False
If preis_filter.Fields("von") < preis_filter.Fields("bis") Then
tage_gesammt = DateDiff("d", preis_filter.Fields("von"), _
preis_filter.Fields("bis"))
tage_check_gesammt = tage_check_gesammt + tage_gesammt
If personen.text = "" Then
personen.text = 1
End If
Select Case preis_filter.Fields("huetten_geschoss")
Case "D":
einzel_tag = (preis_filter.Fields("vkpreis") / 7) * _
personen.text
.
.
.
.
.weis einer woran das liegen kann ?
und sorry für die ellenlangen sql befehle aber ich weis einfach nicht wie man sowas anders machen kann ....
MfG Sascha
Video Disk Rekorder marke eigenbau
http://www.vdrportal.de |
Forenübersicht Suchen Forumsregeln
Oktober 2025
Sie sind aktuell nicht angemeldet.
