[kapetang]

Καλησπέρα

Στράτο, υπάρχουν ασάφειες τόσο στο ερώτημα, όσο και στη λογική της βάσης δεδομένων που ανέβασες.
Για παράδειγμα δεν ξεκαθάρισες πως παρακολουθείς και τι γίνεται με τις ανεξόφλητες υποχρεώσεις.
Στις ασάφειες αυτές πιστεύω ότι οφείλεται και η καθυστέρηση στη λήψη κάποιας βοήθειας.
Αν κατάλαβα καλά, κάθε πρωτομηνιά , οι εγγραφές που υπάρχουν στον πίνακα των ασθενών«tblMainData» θέλεις να προσθέτονται στον πίνακα «tblPay».
Αυτό μπορεί να γίνει πατώντας το κουμπί «Εισαγωγή εγγραφών» στη φόρμα «frmInsert», που έχω προσθέσει στη ΒΔ που ανέβασες.
Η λειτουργικότητα της φόρμας στηρίζεται στον παρακάτω κώδικα:

Private Sub cmdInsert_Click()
    Dim strSQL As String
    If MsgBox("Αν έχουν εισαχθεί οι εγγραφές για το συγκεκριμένο μήνα" & vbCrLf _
        & "και συνεχίσεις οι εγγραφές θα ξαναπροστεθούν!!!!!!!!!!!" & vbCr & vbCr & _
        "                              Θα συνεχίσεις;", vbYesNo, "ΠΡΟΣΟΧΗ") = vbNo Then
        Exit Sub
    End If
    If IsDate(Me.txtDate) Then
        If Day(Me.txtDate) = 1 Then
            DoCmd.SetWarnings False
            strSQL = "Insert Into tblPay ( PatientID, DatePay, [Value], Amount )" & _
            " Select tblMainData.PatientID, #" & Format(Me.txtDate, "mm-dd-yyyy") & "#," & _
            "'2', 200 From tblMainData"
            DoCmd.RunSQL strSQL
            DoCmd.SetWarnings True
            Exit Sub
        End If
    End If
        MsgBox "Πρέπει να δοθεί έγκυρη ημερομηνία πρωτομηνιάς"
End Sub

Πρέπει να προσέξεις τα εξής:
1. Το κουμπί θα πατιέται μία φορά το μήνα, αφού συμπληρώσουμε την κατάλληλη ημερομηνία. Αν κάνουμε λάθος και το ξαναπατήσουμε θα προσθέσουμε πάλι τις εγγραφές.
2. Στον κώδικα και στη γραμμή: "'2', 200 From tblMainData" , κάθε ασθενής χρεώνεται με 200 €, αν είναι το ποσό διαφορετικό θα πρέπει να αντικαταστήσεις το 200 με το σωστό ποσό.
3. Για να λειτουργήσουν οι συνδέσεις των πινάκων ο φάκελος «συντάξεις» θα πρέπει να αντιγραφεί στον C:\

Φιλικά/Γιώργος