[γιώργοςΚ]

Γιώργο επανέρχομαι φίλε μου για ένα ακόμη θέμα,

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

Public Function Concatenate(strS As String) As String
Dim strAll As String
With Me.RecordsetClone
If .RecordCount Then
.MoveFirst
Do Until .EOF
strAll = strAll & ", " & !Field1.Column(1)
.MoveNext
Loop
Concatenate = Mid(strAll, 3)
End If
End With
End Function

το θέμα είναι ότι μου δείχνει τον κωδικό του αξιωματικού και όχι το όνομα του όπως θα θέλαμε.Δηλαδή αντί να έχω "ΥΠ/ΣΤΥΛΙΑΝΟΥ 1152" μου δίνει τον κωδικό 1 που είναι το ID στον πίνακα αξιωματικών

Επισυνάπτω παράγειγμα

Ευχαριστώ και πάλι