البحث في الموقع
Showing results for tags 'شرح معنى الأرقام'.
تم العثور علي 1 نتيجه
-
الأساتذة الأفاضل بعد التحية ، أرجو منكم توضيح وشرح معنى الأرقام الذى بتحتها سطر بداخل هذين الكودين : ـ * الأول Private Sub RR_Click() Dim DB As Database Dim obj As AccessObject, dbs As Object Dim TDF As TableDef Set dbs = Application.CurrentData Set DB = CurrentDb For Each obj In dbs.AllTables Set TDF = DB.TableDefs(obj.Name) If Left(TDF.Name, 4) <> "msys" And TDF.Attributes <> 1073741824 Then TDF.Attributes = TDF.Attributes + dbHiddenObject End If Next DB.Close Set DB = Nothing End Sub ============================================================================== * الثانى Private Sub WW_Click() Dim dbs As Database, TDF As TableDef Set dbs = CurrentDb For Each TDF In dbs.TableDefs If Left(TDF.Name, 4) <> "msys" And TDF.Attributes <> 1073741824 _ And TDF.Attributes = 1 Then TDF.Attributes = TDF.Attributes - dbHiddenObject End If Next TDF Set dbs = Nothing End Sub ============================================================================== وهل هذة الأرقام ثايتة أم متغيرة وإلى ما تشيير الضبط ؟؟ وإن تغيرت فلماذا ؟ وفى أى الحالات ؟؟ ولكم فائق التقدير والإحترام ،
