Έκθεση με παραμέτρους.

[dratsaki]

φίλε Ζαχαρία θα σου πρότεινα να καταργήσεις το συνημμένο και να το επαναφέρεις
ΧΩΡΙΣ γνησία στοιχεία.
Αν είναι ορθά! (IBAN) κτλ. αν κατάλαβα λάθος συγνώμη.

Ευχαριστώ.

[Hayate]

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

φίλε Ζαχαρία θα σου πρότεινα να καταργήσεις το συνημμένο και να το επαναφέρεις
ΧΩΡΙΣ γνησία στοιχεία.
Αν είναι ορθά! (IBAN) κτλ. αν κατάλαβα λάθος συγνώμη.

Ευχαριστώ.

Είναι εντελώς τυχαία... Τώρα τι να σου πώ αν πέτυχα σωστά στοιχεία πάω για τζόκερ..

[ασχετος]

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

Ζαχαρία,

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

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

[ασχετος]

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

Την καλημέρα μου στο 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