Navigation

Sub Tekst1()

Se tekst i bunden:
---KLIP---

Sub Tekst1()
        '
        ' Opdates table "Faktura_Tekst" in database 
Fakturaer

        Dim X, Y, Hour As Integer
        Dim bib, StrSql As String
        Dim Cn3 As ADODB.Connection, Rs3 As ADODB.Recordset
        Dim Cn4 As ADODB.Connection, Rs4 As ADODB.Recordset

        'On Error GoTo Errorhandler

        bib = Range("Grundopsatning!A3").Value
        '
        '
         Set Cn3 = New ADODB.Connection
         Set Cn4 = New ADODB.Connection

        '
         Cn3.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" 
& bib & "fakturaer.mdb;"
         Cn4.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" 
& bib & "fakturaer.mdb;"
        '
         Set Rs3 = New ADODB.Recordset
         Set Rs4 = New ADODB.Recordset

        '
         Rs3.Open "Faktura_Tekst", Cn3, adOpenKeyset, adLockOptimistic, 
adCmdTable

'         StrSql = "(SELECT Max(Timer.Hour) AS Hour FROM 
Timer;)"

         Rs4.Open "Timer", Cn4, adOpenKeyset, adLockOptimistic, 
adCmdTable
        '

    With Rs3

        .AddNew
        .Fields("Adag") = Date
        .Fields("Firm1") = Range("B6").Value
        .Fields("Dato") = Range("C16").Value
        .Fields("FakturaNr") = Range("J16")
        .Fields("RegnskabsAar") = Range("D18").Value

        For X = 19 To 45
            .AddNew
            .Fields("Dato/Varenummer") = Range("A" & 
X).Value
            .Fields("Betegn") = Range("B" & X).Value
            .Fields("Linie") = X
            .Fields("Antal_Varer") = Range("H" & 
X).Value
            .Fields("Prisen") = Range("I" & X).Value
        Next X

        .Update    ' Saves record.

        X = 0
    End With

    With Rs4

        .AddNew
        .Fields("Adag") = Date

        For Y = 19 To 45

        .AddNew
        If InStr(1, Range("B" & Y).Value, "Fremstilling") > 1 
Then GoTo Timetaller
        If InStr(1, Range("B" & Y).Value, "Time") > 1 Then GoTo 
Timetaller
        If InStr(1, Range("B" & Y).Value, "Fejlretning") > 1 
Then GoTo Timetaller
        If InStr(1, Range("B" & Y).Value, "Stemning") > 1 Then 
GoTo Timetaller
        If InStr(1, Range("B" & Y).Value, "Overtid") > 1 Then 
GoTo Timetaller

        Next Y

Timetaller:

        .Fields("Hour") = .Fields("Hour") - Range("H" & 
Y).Value
        .Fields("Timer_Forb") = .Fields("Timer_Forb") + Range("H" & 
Y).Value

       .Update

       Next Y

        Y = 0

    End With

        Rs3.Close
        Set Rs3 = Nothing
        Cn3.Close
        Set Cn3 = Nothing

        Rs4.Close
        Set Rs4 = Nothing
        Cn4.Close
        Set Cn4 = Nothing

        '
        '
    Call GemCustomer

ExitHere:
    Exit Sub

Errorhandler:

    MsgBox "Tekst " & Err.Description
    Resume ExitHere
End Sub

---KLIP---

Det der er problemet er, at jeg vil have makroen (der omhandler  
fra koden: With Rs4) til at trække forbrugte timer fra en tabel, der hedder 
Timer, og i et feltnavn jeg har kaldt Hour. Men hvordan får jeg den til at 
genoptage næste Y, når den er færdig med at trække fra og lægge til og gør jeg i 
det hele taget rigtigt?

Navigation

Kan nogen gennemskue dette