23-04-15, 11:56
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-04-2013 Περιοχή: Κύπρος
Μηνύματα: 738
| |
Γειά σου Σπύρο και ευχαριστώ για την βοήθεια,
Ωστόσο, έχω τροποποιήσει τον κώδικα όπως εισηγείσαι αλλά εντούτις λαμβάνω 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
Κάθε βοήθεια είναι σημαντική.
Ευχαριστώ πολύ
|