osama457

Dim MyDb As Database Dim MyRst As Recordset Dim I As Integer, U As Integer, MyRnd As Integer Dim MyNums As String, StrRnd As String Dim Jadeed As Boolean, MyFund As Boolean Set MyDb = CurrentDb Set MyRst = MyDb.OpenRecordset("MyTable1", dbOpenDynaset) ' استبدل…