[γιώργοςΚ]

Καλησπέρα στην παρέα,

Προσπαθώ να δημιουργήσω την υποδομή έτσι ώστε να μπορώ να αντιγράφω τα δεδομένα απο ένα Record σε ένα νέο, και αντιμετωπίζω πρόβλημα με το πεδίο [Notes] επειδή το format του είναι Memo.
Σημειώστε ότι ο κώδικας και η όλη διαδικασία δουλεύει εάν ακυρώσω την γραμμή κώδικα που αφορά το συγκεκριμένο πεδίο

Παραθέτω αυτούσιο τον κώδικα έτσι ώστε να μπορέσω να γίνω πιο κατανοητός:

Private Sub cmdDublicateRec_Click()
On Error GoTo Err_cmdDublicateRec_Click

Dim lngID As Long, dbs As DAO.Database
Dim lngDietType As Long
Dim lngNewDietID As Long
Dim lngBreakfastMeals As Long
Dim lngSnack1Meals As Long
Dim lngLunchMeals As Long
Dim lngSnack2Meals As Long
Dim lngDinnerMeals As Long
Dim lngNightMeals As Long
Dim lngBefSleepMeals As Long
Dim lngNotes As Long (εδώ είναι το πρόβλημα διότι πιστεύω πως δεν πρέπει να έχω As Long αλλά κάτι άλλο εφόσον το πεδίο αυτό είναι Memo)

If Not Me.NewRecord Then
lngID = Me.DietID
lngDietType = Me.DietType
lngBreakfastMeals = Me.BreakfastMeals
lngSnack1Meals = Me.Snack1Meals
lngLunchMeals = Me.LunchMeals
lngSnack2Meals = Me.Snack2Meals
lngDinnerMeals = Me.DinnerMeals
lngNightMeals = Me.NightMeals
lngBefSleepMeals = Me.BefSleepMeals
lngNotes = Me.Notes

Set dbs = CurrentDb
With Me.RecordsetClone
.AddNew
![Customer No] = Me.txtCustomer
!DietType = lngDietType
!BreakfastMeals = lngBreakfastMeals
!Snack1Meals = lngSnack1Meals
!LunchMeals = lngLunchMeals
!Snack2Meals = lngSnack2Meals
!DinnerMeals = lngDinnerMeals
!NightMeals = lngNightMeals
!BefSleepMeals = lngBefSleepMeals
!Notes = lngNotes

lngNewDietID = !DietID
.Update
.FindFirst ("DietID=" & lngNewDietID)
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With

Αισιοδοξώ προς θα μπορέσει κάποιος πιο έμπειρος φίλος στο φόρουμ να με βοηθήσει και ευχαριστώ εκ προτέρων.

Φιλικά