قائمة بأسماء الجداول

alsalam 3alaykom

Me.Combo0.RowSourceType = "Value List"
rows = ""
For Each T In CurrentDb.TableDefs
   If T.Attributes = 0 Then
	  rows = rows + IIf(rows = "", "", ";") & T.Name
   End If
Next
Me.Combo0.RowSource = rows

عشت ، ودمت لأخيك.

جاري التجربه ...