01-03-14, 12:14 AM
السلام عليكم
- بدل كود الزر بهذا :
- تحياتي .
- بدل كود الزر بهذا :
كود :
Private Sub Command3_Click()
Set rs = Nothing
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT Nn, WW, WW * .07 AS dd, iif(WW + dd>12,12,WW + dd) AS eee, iif(WW + dd>12,12,WW + dd) AS rr FROM Table1", Adodc1.ConnectionString, 1, 3
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next