ارسال اطلاعات از یک فرم به چندین فرم

[shima_hamedi]

با سلام مجدد
در برنامه من یک فرم اصلی وجود دارد که اطلاعات اولیه از جمله نام ،سال مورد نظر وماه را انتخاب می کنیم بعد روی همین فرم پارامتر های دیگری از جمله دما ، رطوبت .... وجود دارد که وقتی نام و سال و ماه مورد نظر را انتخاب می کنیم در فرم بعدی اطلاعات مربوطه را به صورت روزانه و یا ماهانه نمایش می دهد .
نکته اصلی اینجا است که اگر پارامتر یکی فعال باشد اصلاعات نمایش داده می شود اما اگر اطلاعات فر م های دیگر نیز فعال باشد با کلیک کردن روی ان دکمه اطلاعات جدید نمایش داده نمی شود. کد مربوط به دو فرم را در زیر قرار می دهم اما اگر یکی از این کد ها فعال باشد خروجی نمایش داده می شود .با تشکر



Private Sub Command1_Click()
Form6.DataGrid1.Refresh
Form6.Adodc1.Refresh
Form6.Adodc1.RecordSource = "select month_m,day_m ,drymean ,wetmean ,min,max ,meandaily from temp where code= '" & Form5.Text2.Text & "' and year_m='" & Form5.Combo3.Text & "' and month_m='" & Form5.Combo2.Text & "' order by day_m "
Form6.Show
End Sub

Private Sub Command8_Click()
Form7.DataGrid1.Refresh
Form7.Adodc8.Refresh
Form7.Adodc8.RecordSource = "select month_m,day_m ,DEWmean ,HUMmean ,TGTG,sunshine from hum where code= '" & Form5.Text2.Text & "' and year_m='" & Form5.Combo3.Text & "' and month_m='" & Form5.Combo2.Text & "' order by day_m "
Form7.Adodc8.Refresh
Form7.Show
End Sub