Public Function

[bahasu]

Hi,

wenig Laufzeitfehler in 2013...

und besonders nicht den Fehler 2013  : Datenträger ist beinahe voll {http://support.microsoft.com/kb/112509/de}

Harald

[gcniva]

Hallo und vielen Dank erst mal...

Hab mal die #8 übernommen:

Public Function Schreiben(DatumVon As Date, DatumBis As Date)
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
   
    Dim i As Long
    i = 0    '1, wenn mit "N" beginnend

   
    Dim AktuellesDatum As Date
    Set db = CurrentDb
    Set rst = db.OpenRecordset("tbl_Kalender", dbOpenDynaset)
    For AktuellesDatum = DatumVon To DatumBis
        rst.AddNew
        rst!Datum = AktuellesDatum
        rst!Kalendertag = Format(AktuellesDatum, "ddd")
        rst!Jahr = Format(AktuellesDatum, "yyyy")
        rst!Monat = Format(AktuellesDatum, "mmmm")
        rst!KW = DatePart("ww", AktuellesDatum, vbMonday, vbFirstFourDays)

        If i Mod 2 Then
        rst!Schicht = "T"
        Else
        rst!Schicht = "N"
        Else
        End If
       
        rst.Update
        i = i + 1
         Next
   
    rst.Close
    Set rst = Nothing
   
End Function

Jetzt schreibt er aber 3 Jahre in die Tabelle?

Gruß Gerd

[gcniva]

Hi ich noch mal

Ein bissel Erklärung zu dem ganzen.

Habe vor eine Schichtplanung zu erstellen.

Mit den Kalendermodulen geht das nicht so richtig...

Also eine bissel gesucht und bin bei der Tabellen version hängen geblieben.

Natürlich brauche ich nicht alles wie Kalenderwoche, schaut aber gut aus :-)

Schicht system ist 4x12 h , also 6:00 bis 18:00 und nächsten Tag von 18:00 bis 6:00 Uhr dann 48h frei...

Danke das mit der Kalenderwoche ist mir jetzt noch garnicht aufgefallen, jetzt geht es.

Werde Morgen mal spielen.

Gruß Gerd

[gcniva]

Hi

Viel weiter bin ich noch nicht gekommen  .
Wollte die Zahlen in Text umwandeln, hab dazu auch ein Modul doch irgend wie bekomme ich das nicht zum laufen..

könnt ihr mal drüber schauen, Danke.

Function ZahlInWort(lngZahl As Long) As String

    On Error GoTo Fehler
    Dim i As Single
    Dim l As Single
    Dim x As Variant
   
    l = Len(CStr(lngZahl))
    For i = 1 To l
        Schicht = Mid(lngZahl, i, 1)
        If Schicht = 0 Then Schicht = "T"
        If Schicht = 1 Then Schicht = "N"
        If Schicht = 2 Then Schicht = "-"
        If Schicht = 3 Then Schicht = "-"
        If Schicht = "" Then Schicht = "-"
       
        ZahlInWort = ZahlInWort & "*" & x
         Next i
    ZahlInWort = ZahlInWort & "*"
Ende:
    Exit Function
Fehler:
' MsgBox Err.Description
    Resume Ende
   
End Function

[bahasu]

Hi,

schau Dir mal den replace-Befehl an. Der kann in einem String Zeichen austauschen.

Harald

[DF6GL]

Hallo,

was hast Du nun mit diesem Code vor??

Wenn Du sowas:

Schicht system ist 4x12 h , also 6:00 bis 18:00 und nächsten Tag von 18:00 bis 6:00 Uhr dann 48h frei...

abbilden willst, dann zeig mal ein Beispiel mit ein paar Datensätzen, wie die Tabelle aussehen soll.

[gcniva]

Hi

@Franz

hab dir mal eine Tabelle angehängt...


@Harald

Werd ich mal anschauen obs mit dem geht...

Danke

[gcniva]

Huch

Tabelle vergessen 

[Anhang gelöscht durch Administrator]