[γιώργοςΚ]

Γιώργο γειά σου,

Δηλαδή να μπορούσε ο κώδικας να δουλέψει έτσι?

Private Sub cmdDublicateRec_Click()
On Error GoTo Err_cmdDublicateRec_Clicκ

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

!brTime = brTime
!brTimeÔï = brTimeÔï
!BrSnTime = BrSnTime
!BrSnTimeÔï = BrSnTimeÔï
!LunTime = LunTime
!LunTimeÔï = LunTimeÔï
!AftTime = AftTime
!AftTimeÔï = AftTimeÔï
!DinTime = DinTime
!DinTimeÔï = DinTimeÔï
!NightTime = NightTime
!NightTimeÔï =NightTimeÔï
!DrnkTime = DrnkTime
!DrnkTimeÔï = DrnkTimeÔï

!DietCalories = DietCalories
!pCarbs = Carbs
!pProtein = Protein
!pFat = Fat
!Notes = Info

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

Φιλικά,