[ασχετος]

Αρχική Δημοσίευση από ασχετος

Την καλημέρα μου στο forum.

Ζαχαρία,

σου στέλνω πίσω την Βάση με κάποιες αλλαγές.
θέλω να κοιτάξεις τις κινήσεις οδηγών και το νέο δρομολόγιο

κοίτα αν σου κάνει

όποιος κατέβασε την βάση
ας πάει στην φόρμα frm_truckroute σε προβολή σχεδίασης
και στο φύλλο ιδιοτήτων στο tab συμβάν του πεδίου notes
να αντικαταστάση τον κώδικα με τον παρακάτω

    On Error Resume Next
    
    Dim sql As String
    Dim squ As String
    Dim dcs As String
    Dim dt As Date
    Dim x As String
    Dim dl As Variant
    
    dl = DLookup("[fkidtruckroute]", "tbl_Transaction", "[fkidtruckroute]=" & Me.idtruckroute & _
                                                    "AND [fkidodigoutrans]=" & Me.fkidodigou)
    
    If IsNull(Me.dateend) Then
        dt = DateAdd("d", 1, Me.datestart)
    Else
        dt = Me.dateend
    End If
    
    x = "0"
    dcs = IIf(IsNull(Str(Me.datestart)), "Δρομολόγιο από χωρίς ημερομηνία ", "Δρομολόγιο από " & Str(Me.datestart)) & " έως και " & _
          IIf(IsNull(Str(dt)), " Δρομολόγιο έως χωρίς ημερομηνία ", Str(dt)) & _
          IIf(IsNull(Me.trucknum), " χωρίς αριθμό "," με τον τράκτορα" & Me.trucknum) & _
          " με σημείωση " & IIf(IsNull(Me.notes), "@", Me.notes)
          
    sql = "INSERT INTO tbl_Transaction (fkidodigoutrans, fkidtruckroute, datetrans, dscr, xp, amount)" & _
          "SELECT tbl_TruckRoute.fkidodigou," & _
          "       tbl_TruckRoute.idtruckroute," & _
          "       tbl_TruckRoute.datestart,'" & dcs & "'," & x & "," & _
          "       tbl_TruckRoute.totalmoney" & _
          "  FROM tbl_TruckRoute" & _
          " WHERE tbl_TruckRoute.idtruckroute=" & Me.idtruckroute & _
          "   AND tbl_TruckRoute.fkidodigou=" & Me.fkidodigou
    
    squ = "UPDATE tbl_Transaction" & _
          "   SET tbl_Transaction.datetrans =#" & Me.datestart & "#," & _
          "       tbl_Transaction.dscr ='" & dcs & "'," & _
          "       tbl_Transaction.xp ='" & x & "'," & _
          "       tbl_Transaction.amount =" & Me.totalmoney & _
          " WHERE tbl_Transaction.fkidodigoutrans=" & Me.fkidodigou & _
          "   AND tbl_Transaction.fkidtruckroute=" & Me.idtruckroute
          
    If IsNull(dl) Then
        CurrentDb.Execute sql
    Else
        CurrentDb.Execute squ
    End If