it seems problem solved if so .please go to thread tools .and click Mark Thread resolved .else
Code:Private Sub DataReport_Initialize() If frmReferral.txtFields(49).Text = "Male" Then DataReport11.Sections("Section1").Controls("Label60").Caption = "" DataReport11.Sections("Section1").Controls("Label61").Caption = "" Elseif frmReferral.txtFields(49).Text = "Female" then DataReport11.Sections("Section1").Controls("Label60").Caption = "Preganancy" 'i am not sure .how you are input the data using form. End If End Sub




Reply With Quote