Hello,
I’m having a problem open a second form based on data in the first form. I want to open frmGrades when frmPermits closes to the record containing the same Permit_No. To open frmGrades accordingly I coded:
DoCmd.OpenForm "frmGrades", , , "[Permit_No] =" & Forms!frmPermits!Permit_No
I believe the problem is I must first save the Permit_No to tblGrades prior to opening frmGrades (Insert Into). However, it looks like that is working. So maybe I’ve got something wrong with my DoCmd.OpenForm
Here’s my CODE:
If Me.Grades = -1 Then
If Me.Request_No > 0 Then
GoTo GoodBye
Else
DoCmd.RepaintObject
DoCmd.RunSQL "INSERT INTO tblGrades ( Permit_No, RequestDate, RequestTime, Location, Contractor, RequestBy, Phone, ReceivedBy, OwnerName, Sidewalk, Driveway ) SELECT tblPermits.Permit_No, tblPermits.PermitDate, txtTime, tblPermits.Par_Addr, tblPermits.Contractor, tblPermits.RequestBy, tblPermits.Phone, tblPermits.ReceivedBy, tblPermits.Ownername, tblPermits.RepairSWK or tblPermits.ReplaceSWK or tblPermits.NewSidewalk, tblPermits.ReplaceApproach or tblPermits.NewApproach FROM (tblPermits INNER JOIN tblLegals ON tblPermits.Notice_ID = tblLegals.Notice_ID) LEFT JOIN tblContractor ON tblPermits.Contractor = tblContractor.Contractor WHERE ((([tblPermits.Permit_No])=[forms]![frmPermits]![Permit_No]))"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "frmGrades", , , "[Permit_No] =" & Forms!frmPermits!Permit_No
End If
Else
End If
Any suggestions would be appreciated.
Thanks,
SKK
I’m having a problem open a second form based on data in the first form. I want to open frmGrades when frmPermits closes to the record containing the same Permit_No. To open frmGrades accordingly I coded:
DoCmd.OpenForm "frmGrades", , , "[Permit_No] =" & Forms!frmPermits!Permit_No
I believe the problem is I must first save the Permit_No to tblGrades prior to opening frmGrades (Insert Into). However, it looks like that is working. So maybe I’ve got something wrong with my DoCmd.OpenForm
Here’s my CODE:
If Me.Grades = -1 Then
If Me.Request_No > 0 Then
GoTo GoodBye
Else
DoCmd.RepaintObject
DoCmd.RunSQL "INSERT INTO tblGrades ( Permit_No, RequestDate, RequestTime, Location, Contractor, RequestBy, Phone, ReceivedBy, OwnerName, Sidewalk, Driveway ) SELECT tblPermits.Permit_No, tblPermits.PermitDate, txtTime, tblPermits.Par_Addr, tblPermits.Contractor, tblPermits.RequestBy, tblPermits.Phone, tblPermits.ReceivedBy, tblPermits.Ownername, tblPermits.RepairSWK or tblPermits.ReplaceSWK or tblPermits.NewSidewalk, tblPermits.ReplaceApproach or tblPermits.NewApproach FROM (tblPermits INNER JOIN tblLegals ON tblPermits.Notice_ID = tblLegals.Notice_ID) LEFT JOIN tblContractor ON tblPermits.Contractor = tblContractor.Contractor WHERE ((([tblPermits.Permit_No])=[forms]![frmPermits]![Permit_No]))"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "frmGrades", , , "[Permit_No] =" & Forms!frmPermits!Permit_No
End If
Else
End If
Any suggestions would be appreciated.
Thanks,
SKK