alexb_10 Δημοσ. 29 Μαρτίου 2006 Δημοσ. 29 Μαρτίου 2006 filtatoi kalimera, na kanw mia erwtisi se mia access, mporw na toy dinw egw mia imerominia simera kai mia se 10 meres kai na mou grafei thn diafora se meres? kati antistoixo kai se wres? px tou dinw 15/2/04 kai 15/3/04 kai na mou bgazei ena minima, exoun perasei 30 meres An mporeite tha voithousate poly, euxaristw
realestate Δημοσ. 29 Μαρτίου 2006 Δημοσ. 29 Μαρτίου 2006 filtatoi kalimera' date=' na kanw mia erwtisise mia access, mporw na toy dinw egw mia imerominia simera kai mia se 10 meres kai na mou grafei thn diafora se meres? kati antistoixo kai se wres? px tou dinw 15/2/04 kai 15/3/04 kai na mou bgazei ena minima, exoun perasei 30 meres An mporeite tha voithousate poly, euxaristw[/quote'] συγγνώμη αλλα δεν κατάλαβα καλά .Γράψε πιο αναλυτικά το σκεπτικό σου!
alexb_10 Δημοσ. 30 Μαρτίου 2006 Μέλος Δημοσ. 30 Μαρτίου 2006 isws kai na mh bgainei noima auto pou thelw na kanw einai na pernaw shmera thn hmeromhnia kai meta apo kapoies meres na xanapernaw mia deuteri imerominia kai na mou bgazei ena minima kai na leei, exoun perasei x meres. kati tetoio exw sto nou mou. symplirwnw tis imerominies kai patwntas ena koumpi( to opoio xexasa na valw) na mou emfanizei tin diafora tvn imerwn euxaristw se opoion mpei ston kopo
realestate Δημοσ. 30 Μαρτίου 2006 Δημοσ. 30 Μαρτίου 2006 isws kai na mh bgainei noimaauto pou thelw na kanw einai na pernaw shmera thn hmeromhnia kai meta apo kapoies meres na xanapernaw mia deuteri imerominia kai na mou bgazei ena minima kai na leei' date=' exoun perasei x meres. kati tetoio exw sto nou mou. symplirwnw tis imerominies kai patwntas ena koumpi( to opoio xexasa na valw) na mou emfanizei tin diafora tvn imerwn euxaristw se opoion mpei ston kopo[/quote'] πρώτα γίνεται με μακροεντολή. ενα αλλο πιο εύκολο , στην φόρμα και στην επιλογή προβολή συγκεντρωτικού πίνακα ,τοποθετείς τα δύο πεδία ημερομηνιών και δίνεις ολικά και μερικά υπόλοιπα .( ανα μήνα ανα εβδομάδα ανα ημέρα ) με ερώτημα και visual basic ( μπορώ να σου βρώ την ακολουθία ) δεν μπορώ να σκεφτώ κάτι αλλο ..
alexb_10 Δημοσ. 30 Μαρτίου 2006 Μέλος Δημοσ. 30 Μαρτίου 2006 πρώτα γίνεται με μακροεντολή.ενα αλλο πιο εύκολο ' date=' στην φόρμα και στην επιλογή προβολή συγκεντρωτικού πίνακα ,τοποθετείς τα δύο πεδία ημερομηνιών και δίνεις ολικά και μερικά υπόλοιπα .( ανα μήνα ανα εβδομάδα ανα ημέρα ) με ερώτημα και visual basic ( μπορώ να σου βρώ την ακολουθία ) δεν μπορώ να σκεφτώ κάτι αλλο ..[/quote'] i alitheia einai oti den katalava tipota apo osa mou eipes. Omws epeidi se empisteuomai file mou an mporeis na mou vreis tin akolouthia mazi me merikes odigies pws thatin efarmosw, tha me eswzes, se euxaristw
koYkoY_koYkoY Δημοσ. 31 Μαρτίου 2006 Δημοσ. 31 Μαρτίου 2006 Στον παρακάτω κώδικα θα πρέπει να προσθέσεις και κάποιους χειρισμούς για τα λάθη που πιθανότατα μπορούν να συμβούν. Option Compare Database Option Explicit Private dtStartDate As Date Private dtEndDate As Date Private Sub Ημερομηνία_Αποστολής_Exit(Cancel As Integer) If IsDate(Me.[Ημερομηνία Αποστολής].Text) = True Then dtStartDate = CDate(Me.[Ημερομηνία Αποστολής].Text) End If End Sub Private Sub Ημερομηνία_Παραλαβής_Exit(Cancel As Integer) If IsDate(Me.[Ημερομηνία Παραλαβής].Text) = True Then dtEndDate = CDate(Me.[Ημερομηνία Παραλαβής].Text) CalculateDays dtStartDate, dtEndDate End If End Sub Private Function CalculateDays(dtStartDate, dtEndDate) As Date Dim lngTotalDays As Long If dtEndDate <= dtStartDate Then lngTotalDays = 0 Else lngTotalDays = DateDiff("d", dtStartDate, dtEndDate) End If Forms!'ΟνομαΦόρμας![Διαφορά Ημερών].SetFocus Forms!ΌνομαΦόρμας![Διαφορά Ημερών].Text = CStr(lngTotalDays) End If End Function
realestate Δημοσ. 31 Μαρτίου 2006 Δημοσ. 31 Μαρτίου 2006 Στον παρακάτω κώδικα θα πρέπει να προσθέσεις και κάποιους χειρισμούς για τα λάθη που πιθανότατα μπορούν να συμβούν. Option Compare Database Option Explicit Private dtStartDate As Date Private dtEndDate As Date Private Sub Ημερομηνία_Αποστολής_Exit(Cancel As Integer) If IsDate(Me.[Ημερομηνία Αποστολής].Text) = True Then dtStartDate = CDate(Me.[Ημερομηνία Αποστολής].Text) End If End Sub Private Sub Ημερομηνία_Παραλαβής_Exit(Cancel As Integer) If IsDate(Me.[Ημερομηνία Παραλαβής].Text) = True Then dtEndDate = CDate(Me.[Ημερομηνία Παραλαβής].Text) CalculateDays dtStartDate' date=' dtEndDate End If End Sub [b']Private Function CalculateDays(dtStartDate, dtEndDate) As Date[/b] Dim lngTotalDays As Long If dtEndDate <= dtStartDate Then lngTotalDays = 0 Else lngTotalDays = DateDiff("d", dtStartDate, dtEndDate) End If Forms!'ΟνομαΦόρμας![Διαφορά Ημερών].SetFocus Forms!ΌνομαΦόρμας![Διαφορά Ημερών].Text = CStr(lngTotalDays) End If End Function καλό! ωραία λύση
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.