thisform.txtID.Refresh IF THISFORM.txtSite.ReadOnly = .f. MESSAGEBOX('You must save before viewing the reports form!',16,'WAIT!') ELSE IF thisform.txtID.Value < 10000 STORE ALLTRIM(STR(thisform.txtID.Value,8,3)) TO m.reportid STORE ALLTRIM(thisform.txtSite.Value) TO m.reportsite ELSE STORE ALLTRIM(STR(thisform.txtID.Value)) TO m.reportid STORE ALLTRIM(thisform.txtSite.Value) TO m.reportsite ENDIF DO FORM frmreports.scx ENDIFTherefore, I similarly made the code for the frmvwrptnts as:
thisform.txtID.Refresh IF THISFORM.txtSite.ReadOnly = .f. MESSAGEBOX('You must save before viewing the reports form!',16,'WAIT!') ELSE IF thisform.txtID.Value < 10000 STORE ALLTRIM(STR(thisform.txtID.Value,8,3)) TO m.notesid STORE ALLTRIM(thisform.txtSite.Value) TO m.notessite ELSE STORE ALLTRIM(STR(thisform.txtID.Value)) TO m.notesid STORE ALLTRIM(thisform.txtSite.Value) TO m.notessite ENDIF DO FORM frmviewrptnts.scx ENDIFIn the grid, I have set the control source to reports.rptname, etc. (reports is the table where the data is stored). However, this does not populate any of the needed data for me. Obviously I am missing at least one step, but I am not sure of what it is. Hopefully this all made sense.