[ Φόρμες ] Εύρεση Πρωτοκόλλου και μήνυμα "υπάρχει ήδη"

[Tasos]

Καλημέρα!

Δάφνη δες το συνημμένο παράδειγμα.

Ελπίζω να σε βοηθήσει να προχωρήσεις.

Με εκτίμηση

Τάσος

[Dafnh0106]

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

Καλημέρα!

Δάφνη δες το συνημμένο παράδειγμα.

Ελπίζω να σε βοηθήσει να προχωρήσεις.

Με εκτίμηση

Τάσος

Καλησπέρα στο forum

Τασο εκανα οτι μου ειπες στην test_T και ειναι ακριβως αυτο που θέλω :)

Σ ευχαριστω παρα πολυ για τη βοηθεια :)

Ευχαριστω ολους για την βοηθεια τους :)

με εκτιμηση

Δάφνη Μ.

[Dafnh0106]

Καλησπερα στο forum :)

Τασο συγγνωμη που σε ζαλιζω αλλα μου χτυπαει στο :
rs.FindFirst "[ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ] = " & Str(Nz(Me!cboProtokolo, 0))

υποθετω οτι χτυπαει επειδη ο αριθμος πρωτοκολλου ειναι text

Private Sub cboProtokolo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ] = " & StrcboProtokolo
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub cboProtokolo_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
Me.cboProtokolo.Undo
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
Me.ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ = NewData
Me.ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ = Null
Me.ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ.SetFocus
End Sub




Eυχαριστώ

Δαφνη

[Free_Ghost]

Γεια σου Δάφνη, επειδή έχω φτιάξει μια παρόμοια εφαρμογή με πολύ βοήθεια από το παρόν site.

Βασικά νομίζω πώς είσαι λάθος στην εισαγωγή του Πρωτοκόλλου, έπρεπε να παίρνει μόνο του τον αριθμό με ημερομηνία και ώρα από αυτόματη αρίθμηση την στιγμή που πατάς ένα πλήκτρο New, και δεν θα βάζεις εσύ νούμερο.

Εγώ έβαλα τον παρακάτω κώδικα στα εισερχόμενα και στο πρωτόκολλο εκδότη επειδή υπάρχει περίπτωση να εισάγω το ίδιο 2 φορές για αυτό με το που εισάγω το νούμερο του εκδότη και πάω σε άλλο πλαίσιο μου βγάζει μήνυμα, και διορθώνω η ακυρώνω.



Private Sub ProtokolloEkdoti_LostFocus()
If DCount("*", "[P_EGGRAFA]", "[ProtokolloEkdoti]='" & Me![ProtokolloEkdoti].Text & "'") > 1 Then
Cancel = True
MsgBox "Εδώ γράφεις το μήνυμα σου"
Me![ProtokolloEkdoti].Undo
End If
End Sub

[Dafnh0106]

Καλησπερα σας :)

Χρήστο σ ευχαριστω για την βοηθεια σου , θα το δοκιμασω την υποδειξη σου :) το πρωτοκολλο με την ημερομηνια δεν τα δινω εγω διοτι ειναι ήδη δοσμενα απο αλλη υπηρεσια σε παρελθοντα χρονο ................

Ευχαριστω και παλι για την βοηθεια :)

με εκτιμηση

Δαφνη Μ.

[SPHLIOS]

Καλημέρα, κατέβασα και εγώ το test_T, μπορώ να χρησιμοποιήσω κόμμάτια του για κάτι που θέλω να φτιάξω για το γραφείο; Δουλεύω στο δημόσιο. Ευχαριστώ

[Spirosgr]

Καλημέρα
Όλα τα παραδειγματικά αρχεία, στο ms-office.gr, είναι ελεύθερα για χρήση.

[SPHLIOS]

Ευχαριστώ πολύ