Σύνδεση πινάκων - φορμών

[jamman]

Καλησπέρα σε όλους. Θα ήθελα τη βοήθειά σας. Έχω φτιάξει μια πολύ απλή βάση για έναν φίλο που δουλεύει σε οδοντιατρείο.

Η βάση έχει δύο πίνακες (ΑΣΘΕΝΗΣ , ΕΞΕΤΑΣΗ). Στον πρώτο πίνακα έχω βάλει όλα τα πεδία σχετικά με έναν Ασθενή-Πελάτη και στον δεύτερο πίνακα πεδία που αφορούν μία εξέταση (είδος , ημερομηνία κτλ).

Σε ερώτημα έχω βάλει να αναζητεί ραντεβού με Ημερομηνίες ( Between [Από Ημερομηνία] And [Έως Ημερομηνία] ) και μία φόρμα από το συγκεκριμένο ερώτημα. Όλα καλά μέχρι εδώ.

Θέλω στην ίδια φόρμα σε 2 textfield , να εμφανίζεται το χρονικό διάστημα που αναζητεί. Προσπάθησα με DMin και DMax αντίστοιχα αλλά που βγάζει σφάλμα.

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

[jamman]

Άκυρο. Το βρήκα.

Στο ερώτημα , πρόσθεσα 2 πεδία , startdate , enddate και τα textfields παίρνουν από κει τις τιμές που πληκτρολογεί ο χρήστης.

Το μεγάλο μου θέμα τώρα είναι το εξής. Αν το ιατρείο είναι ανοιχτό από 09:00 έως 20:00 , με ποιον τρόπο μπορώ να βάλω ένα cmb το οποίο θα περιλαμβάνει τις ώρες έτσι ώστε όταν θέλει να κλείσει ένα ραντεβού για μια μέρα , να φαίνονται οι διαθέσιμες ώρες; Τα ραντεβού θα κλείνονται ανά μισάωρο.

Είδα ένα βίντεο που κάποιος το έκανε με macro αλλά με μπέρδεψε πιο πολύ. Ανεβάζω και ένα δείγμα της εφαρμογής.

Δεν ξέρω αν αυτό γίνεται και μέσω outlook.

Ευχαριστώ εκ των προτέρων.

[jamman]

Καλημέρα και πάλι σε όλους.

Μάλλον όλοι διακοπάρουν.

Με πολύ κόπο γιατί γνωρίζω τα βασικά πάνω στη VB , κατάφερα να φτιάξω τα παραπάνω.

Αυτό που αντιμετωπίζω τώρα είναι ότι έχω μία φόρμα ΡΑΝΤΕΒΟΥ με subForm ΕΞΕΤΑΣΗ.
Στη main form έχω ένα combo box με τιμές που παίρνει από την έναρξη - λήξη του ιατρείου (δλδ. 09:00 - 09:30 έως 20:00). Μόλις επιλέγω από εκεί την τιμή , αυτή αποθηκεύεται στην subform.

Όμως , αν η καταχώρηση γίνει από τη φόρμα ΕΞΕΤΑΣΗ , δεν αναγνωρίζεται στη φόρμα ΡΑΝΤΕΒΟΥ , έτσι ώστε να αποκλείεται η τιμή από το combo box.

Βρήκα τον παρακάτω κώδικα και προφανώς κάτι πρέπει να μετατρέψω. Αυτό καταλαβαίνω τουλάχιστον. Για ημερομηνία χρησιμοποιώ τη σύντομη ημερομηνία με μορφή dd\mm\yyyy και για την ώρα HH:mm.

Private Sub cboTime_Enter()

Dim i As Date, n As Integer, oRS As DAO.Recordset, sSQL As String
Dim dLowerbreak As Date, dUpperBreak As Date, dDuration As Date
Dim dLowerPrecision As Date, dUpperPrecision As Date

cbotime.RowSourceType = "Value List"
cbotime.RowSource = ""

If IsNull(txtStart) Then Exit Sub Else i = txtStart
If Me.NewRecord = True Then
DoCmd.RunCommand acCmdSaveRecord
End If

sSQL = "SELECT ID, ΗΜΕΡΟΜΗΝΙΑ, ΩΡΑ"
sSQL = sSQL & " FROM qrySubformAppoints"
sSQL = sSQL & " WHERE ID= " & Me.ID & _
" AND ΗΜΕΡΟΜΗΝΙΑ=#" & Me.txtAppointDate & "#"

Set oRS = CurrentDb.OpenRecordset(sSQL)

dDuration = TimeValue("00:30:00")
dLowerbreak = Break - TimeValue("00:30") 'Break is a field
dUpperBreak = Break + TimeValue("03:30")

If oRS.RecordCount = 0 Then
Do
If i <= dLowerbreak Or i >= dUpperBreak Then
cbotime.AddItem i
End If
i = i + dDuration
Loop Until i >= txtEnd
Else
Do
If i <= dLowerbreak Or i >= dUpperBreak Then
dLowerPrecision = i - TimeValue("00:05")
dUpperPrecision = i + TimeValue("00:05")
oRS.FindFirst "[ΩΡΑ] Between #" & dLowerPrecision & "# And #" & dUpperPrecision & "#"
If oRS.NoMatch Then cbotime.AddItem i
End If
i = i + dDuration
Loop Until i >= txtEnd
End If
oRS.Close

End Sub

Μπορεί κάποιος να βοηθήσει; Ξέρω είναι πολύ προχωρημένο για μένα αλλά αφού τα κατάφερα μέχρι τώρα , θέλω να το παλέψω. Ευχαριστώ.

[kapetang]

Καλησπέρα

Στη συνημμένη ΒΔ παρουσιάζω μία πρόταση για την καταχώρηση ραντεβού.

Η ΒΔ περιέχει:

1) Τον πίνακα tblRantevou, όπου αποθηκεύονται τα προσωπικά στοιχεία του ατόμου που αφορά το ραντεβού, η αιτία του ραντεβού η ημερομηνία και η ώρα.

Σημειώνεται ότι τα ραντεβού κλείνονται ανά μισή ώρα από τις 09:00 μέχρι και τις 21:00.

2) Τη φόρμα frmRantevou η οποία βασίζεται στον πίνακα tblRantevou.

Η φόρμα εμφανίζει τα στοιχεία των ραντεβού και διευκολύνει στην καταχώρηση των στοιχείων τους.

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

Το σύνθετο πλαίσιο είναι αδέσμευτο και η ιδιότητά του Row Source Type έχει οριστεί σε:
Value List.

Με κλικ σε κάποια ώρα του πλαισίου, αυτή αντιγράφεται στο δεσμευμένο πλαίσιο κειμένου fTime, για να αποθηκευτεί μαζί με τα άλλα στοιχεία στον υποκείμενο πίνακα.

Λεπτομέρειες στον κώδικα.

[jamman]

Καλησπέρα Γιώργο και ευχαριστώ για την απάντησή σου.

Επειδή για τον Ασθενή υπάρχουν περισσότερα πεδία δεν ήθελα να υπάρχει μόνο ένας πίνακας , γι'αυτό δημιούργησα ξεχωριστό για την Εξέταση. Υπάρχει περίπτωση να δοθεί άλλη λύση;

Συνολικά υπάρχουν 3 Ασθενείς. Α,Β,Γ.

Οι Α και Β καταχωρήθηκαν μέσα από τη φόρμα ΡΑΝΤΕΒΟΥ. Ο Γ καταχωρήθηκε από τη φόρμα Ασθενής και δεν εμφανίζεται στη subform Εξέταση.

Επισυνάπτω τη σχετική εφαρμογή έως εκεί που την έχω φτάσει.

[kapetang]

Καλησπέρα Βασίλη

Για τη σωστή δημιουργία μιας βάσης δεδομένων, απαιτείται κάποια υποδομή γνώσεων.

Πριν συνεπώς προχωρήσεις, θα πρότεινα, να μελετήσεις προσεκτικά το παρακάτω άρθρο:

https://support.microsoft.com/el-gr/...4-bd4f9c9ca1f5

Αυτό θα σου λύσει τις περισσότερες απορίες και θα σου δώσει τη δυνατότητα να οργανώσεις σωστά (σε πίνακες) τα δεδομένα, που θα παρακολουθείς στη ΒΔ του Ιατρείου.

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

Ο πίνακας tblRantevou (και η αντίστοιχη φόρμα) θα μπορούσε στη θέση των προσωπικών στοιχείων να έχει μόνο το ID του ασθενή και να παίρνει τα στοιχεία από το πίνακα των ασθενών.

[jamman]

Ευχαριστώ και πάλι Γιώργο. Θα το μελετήσω.