أسعدكم الله يا كرام هل بالإمكان التعديل على هذا الكوود ليبدأ من أول صف في جدول وليس من صف جديد،،
بمعنى لا أريد أن يكون في الجدول صف للعنوان
Set rs = CurrentDb.OpenRecordset("SELECT * FROM BRation where noob=" & Me.noa)
If Not rs.BOF And Not rs.EOF Then
rs.MoveFirst
While (Not rs.EOF)
Set oTable = Wapp.ActiveDocument.Tables(1) 'تحديد الجدول
Set NewRow = oTable.Rows.Add ' اضافة سطر جديد للجدول
NewRow.Cells(1).Range.Text = Nz(rs.Fields(4), "-")
' NewRow.Cells(2).Range.Text = Nz(rs.Fields(4), "فارغ")
' NewRow.Cells(3).Range.Text = Nz(rs.Fields(2), "-")
' NewRow.Cells(4).Range.Text = Nz(rs.Fields(3), "-")
rs.MoveNext
Wend
End If
rs.Close