27-12-13, 08:56 PM
السلام عليكم
- هذا كود المثال بعد تعديله , أنسخه وألصقة بدل الكود كله الموجود في داخل الفورم .
- تحياتي .
- هذا كود المثال بعد تعديله , أنسخه وألصقة بدل الكود كله الموجود في داخل الفورم .
كود :
Private Sub Command1_Click()
Adodc1.Recordset.MoveNext
DoEvents
If Adodc1.Recordset.EOF = True Then
MsgBox "This is the last record.", vbExclamation, "Note it..."
Adodc1.Recordset.MoveLast
DoEvents
End If
End Sub
Private Sub DataCombo1_Click(Area As Integer)
Adodc1.Recordset.Find "[nom] = '" & DataCombo1.Text & "'", 0, adSearchForward, 1
End Sub- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next