I have a form that everything works on except adding records when called from another form. I am trying to add with the bindingsource.addnew. Which I like because it doesn't save until they hit the save button. This is what I have but I read it doesn't work. The bindingsource addnew only creates a detached record so this wont work.
Code:
If Application.OpenForms().OfType(Of OperShiftLog).Any _
Or Application.OpenForms().OfType(Of OperShiftLog1).Any Then
Me.Laser_Status_InfoBindingSource.Filter = "Printer = '" & Pass_Printer & "'"
If Pass_AddMod = "M" Then
BindingNavigatorDeleteItem.Enabled = False
BindingNavigatorAddNewItem.Enabled = False
Me.Laser_Status_InfoBindingSource.Filter = "Shift_FKey = '" & Pass_Shift_Key & "' AND Printer = '" & Pass_Printer & "'"
Else
Add_New = True
Me.Laser_Status_InfoBindingSource.AddNew()
tbStatus_key.Text = Int32.MaxValue
tbShift_FKey.Text = Pass_Shift_Key
chkbSerReq.Checked = False
tbSvcReq.Text = ""
tbMeter.Text = 0
cmbStatus.Text = "Up"
dtpErr_time.Value = DateTime.Now
cmbPrinter.SelectedValue = Pass_Printer
cmbOperator.SelectedValue = Pass_Operator
cmbStatus.Focus()
'Save_Current()
End If
cmbSelPrinter.Visible = False
'.visible = False
chkbActiveSel.Visible = False
'cmbSelPrinter.SelectedValue = Pass_Printer
'cmbSelPrinter.Enabled = False
'chkbActiveSel.Enabled = False
cmbPrinter.Enabled = False
cmbOperator.Enabled = False
dgvLaser_Status_Info.Enabled = False
Else
Me.Laser_Status_InfoBindingSource.Filter = "Printer = '" & cmbSelPrinter.SelectedValue & "'"
Me.Laser_Status_InfoBindingSource.Sort = "Err_Time"
Me.Laser_Status_InfoBindingSource.MoveLast()
chkbActiveSel.Checked = True
fillSelPrinter()
End If