copy record in subform (1 Viewer)

arnelgp said:

try this, and don't use Me.[cycle subform], i am already using it's Recordset so no need to use the Form.
Copy and Replace your code.

Code:Copy to clipboard

Private Sub Command1608_Click()
Dim bolWithBlank As Boolean
Dim bm As Variant
On Error GoTo new_Err

	With Me![cycle subform].Form.RecordsetClone
		If Not (.BOF And .EOF) Then
			.MoveFirst
			Do While Not .EOF
				If Len(Trim(!Cycle.Value & "")) = 0 Then
					bolWithBlank = True
					bm = .Bookmark
					Exit Do
				End If
				.MoveNext
			Loop
			If bolWithBlank then
				.Bookmark = bm
				.Edit
			Else
				.AddNew
			End If
			!Cycle = Me.No_of_Cycle.Value
			!date_ = Date
			.Update
		Else
				
			.AddNew
			!Cycle = Me.No_of_Cycle.Value
			!date_ = Date
			.Update
		End If
	End With
new_Err:
	Msgbox Err.Number & vbcrlf & Err.Description 
End Sub

Click to expand...

arnelgp said:

we will add it, what is the textbox name on the main form?

!Cycle = Me.Nf_Cycle.Value
!Date = Date
!Record_ID = Me.??????.Value (texboxname in mainform)

Click to expand...

arnelgp said:

ok, time for me to sleep

Click to expand...

arnelgp said:

ok, time for me to sleep

Click to expand...

arnelgp said:

insert here (red text):

Code:Copy to clipboard

			!Cycle = Me.No_of_Cycle.Value
			!date_ = Date
			.Update
                        [COLOR="red"]Msgbox "Updated"[/COLOR]
		Else
				
			.AddNew
			!Cycle = Me.No_of_Cycle.Value
			!date_ = Date
			.Update
                        [COLOR="Red"]Msgbox "Updated"[/COLOR]

Click to expand...