Hi,
I have a unbound form and unbound sub-form in it. I can save my record in main form with vba codes no issue. The issue is with Unbound Subform.
I have placed on btn with below code on main form to get relevant dependents (family members of our employee) of the emp I select on main form. It is selecting also but problem is it is going to get second dependent, first dependents data replacing with first dependent record and appearing twice in subform. Saving of subform record shall be another question but not now...
Dim db As DAO.Database
Dim rst, DRst As DAO.Recordset
Dim Rec As Integer
Set rst = CurrentDb.OpenRecordset("Select * from T_Dependents where Cno = " & Me.CNo)
If rst.EOF And rst.BOF Then
MsgBox ("No Records In Found"), vbInformation, "Null Records Inf."
Exit Sub
Else
rst.MoveFirst
Rec = Rec + 1
Do Until rst.EOF = True
Set DRst = CurrentDb.OpenRecordset("Select * from T_TicketDetails")
DRst.AddNew
SF_Dependents!depenname = rst!depenname
SF_Dependents!DepenRelation = rst!DepenRelation
SF_Dependents!AllowedTicket = rst!AllowedTicket
SF_Dependents!VacNum = Forms!F_Vacations!VacNum
SF_Dependents!CNo = Forms!F_Vacations!CNo
SF_Dependents!ID = Rec
Rec = Rec + 1
rst.MoveNext
Loop
End If
Please help me. Thanks in Advance.
I have a unbound form and unbound sub-form in it. I can save my record in main form with vba codes no issue. The issue is with Unbound Subform.
I have placed on btn with below code on main form to get relevant dependents (family members of our employee) of the emp I select on main form. It is selecting also but problem is it is going to get second dependent, first dependents data replacing with first dependent record and appearing twice in subform. Saving of subform record shall be another question but not now...
Dim db As DAO.Database
Dim rst, DRst As DAO.Recordset
Dim Rec As Integer
Set rst = CurrentDb.OpenRecordset("Select * from T_Dependents where Cno = " & Me.CNo)
If rst.EOF And rst.BOF Then
MsgBox ("No Records In Found"), vbInformation, "Null Records Inf."
Exit Sub
Else
rst.MoveFirst
Rec = Rec + 1
Do Until rst.EOF = True
Set DRst = CurrentDb.OpenRecordset("Select * from T_TicketDetails")
DRst.AddNew
SF_Dependents!depenname = rst!depenname
SF_Dependents!DepenRelation = rst!DepenRelation
SF_Dependents!AllowedTicket = rst!AllowedTicket
SF_Dependents!VacNum = Forms!F_Vacations!VacNum
SF_Dependents!CNo = Forms!F_Vacations!CNo
SF_Dependents!ID = Rec
Rec = Rec + 1
rst.MoveNext
Loop
End If
Please help me. Thanks in Advance.