[γιώργοςΚ]

Γειά σου Σπύρο και ευχαριστώ για την βοήθεια,

Ωστόσο, έχω τροποποιήσει τον κώδικα όπως εισηγείσαι αλλά εντούτις λαμβάνω error msg (το οποίο επισυνάπτω). Έχω δηλαδή κάνει το πιο κάτω:

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 lngDietCalories As Single
Dim lngCarbs As Single
Dim lngProtein As Single
Dim lngFat As Single
Dim IngInfo As String

Dim lngbrTime As Single
Dim lngbrTimeÔï As Single
Dim lngBrSnTime As Single
Dim lngBrSnTimeÔï As Single
Dim lngLunTime As Single
Dim lngLunTimeÔï As Single
Dim lngAftTime As Single
Dim lngAftTimeÔï As Single
Dim lngDinTime As Single
Dim lngDinTimeÔï As Single
Dim lngNightTime As Single
Dim lngNightTimeÔï As Single
Dim lngDrnkTime As Single
Dim lngDrnkTimeÔï As Single


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

lngbrTime = Me.brTime
lngbrTimeÔï = Me.brTimeÔï
lngBrSnTime = Me.BrSnTime
lngBrSnTimeÔï = Me.BrSnTimeÔï
lngLunTime = Me.LunTime
lngLunTimeÔï = Me.LunTimeÔï
lngAftTime = Me.AftTime
lngAftTimeÔï = Me.AftTimeÔï
lngDinTime = Me.DinTime
lngDinTimeÔï = Me.DinTimeÔï
lngNightTime = Me.NightTime
lngNightTimeÔï = Me.NightTimeÔï
lngDrnkTime = Me.DrnkTime
lngDrnkTimeÔï = Me.DrnkTimeÔï

lngDietCalories = Me.DietCalories
lngCarbs = Me.pCarbs
lngProtein = Me.pProtein
lngFat = Me.pFat
IngInfo = 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

!brTime = lngbrTime
!brTimeÔï = lngbrTimeÔï
!BrSnTime = lngBrSnTime
!BrSnTimeÔï = lngBrSnTimeÔï
!LunTime = lngLunTime
!LunTimeÔï = lngLunTimeÔï
!AftTime = lngAftTime
!AftTimeÔï = lngAftTimeÔï
!DinTime = lngDinTime
!DinTimeÔï = lngDinTimeÔï
!NightTime = lngNightTime
!NightTimeÔï = lngNightTimeÔï
!DrnkTime = lngDrnkTime
!DrnkTimeÔï = lngDrnkTimeÔï

!DietCalories = lngDietCalories
!pCarbs = lngCarbs
!pProtein = lngProtein
!pFat = lngFat
!Notes = IngInfo

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


Κάθε βοήθεια είναι σημαντική.

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