قاعدة بيانات - فورم .

[عامر ياسر]

هذ ملف قمت بعمله من خلال متابعتي لهذا المنتدى ومواضيعه الشيقة قمت بهذا العمل البسيط الذي هو قطرة في بحر علمكم ارجو اعطائي رأيكم بالعمل واتمنى ان يكون ذا فائدة لبعض الاخوان 

واخذا ً بنصيحة الاستاذ ياسر خليل أبو البراء

 

الرقم السري هو 11111

 

قاعدة بيانات المدرسة 1.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز عامر وجزيت خيراً

واصل بلا فواصل ..

 

[محمد الورفلي1]

السلام عليكم

ممتاز  استاذ عامر

 

[ياسر العربى]

مجهود رائع اخي  الكريم عامر ياسر

وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم 

حبيت اسهل عليك بعض  الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال  يبسط ليك الترحيل في كام سطر كدا صغيرين

بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا  والوقت 

الكود

Private Sub CommandButton1_Click()
    Dim LR As Long
    Dim I As Long
    LR = Cells(Rows.Count, 1).End(xlUp).Row + 1
    For I = 1 To 20
        Application.ScreenUpdating = False
        Cells(LR, I).Value = Me.Controls("TextBox" & I).Value
        Me.Controls("TextBox" & I) = ""
    Next
    Application.ScreenUpdating = True
End Sub

الكود بسيط باذن الله 

عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس

وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I   وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20

 

ترحيل.rar

[عامر ياسر]

4 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي العزيز عامر وجزيت خيراً

واصل بلا فواصل ..

 

شهادة اعتز بها من استاذ مبدع ورائع

4 ساعات مضت, محمد الخازمي said:

السلام عليكم

ممتاز  استاذ عامر

 

وعليكم السلام .... تقديري واحترامي اخي الكريم  محمد الخازمي 

3 ساعات مضت, ياسر العربى said:

مجهود رائع اخي  الكريم عامر ياسر

وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم 

حبيت اسهل عليك بعض  الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال  يبسط ليك الترحيل في كام سطر كدا صغيرين

بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا  والوقت 

الكود

Private Sub CommandButton1_Click()
    Dim LR As Long
    Dim I As Long
    LR = Cells(Rows.Count, 1).End(xlUp).Row + 1
    For I = 1 To 20
        Application.ScreenUpdating = False
        Cells(LR, I).Value = Me.Controls("TextBox" & I).Value
        Me.Controls("TextBox" & I) = ""
    Next
    Application.ScreenUpdating = True
End Sub

الكود بسيط باذن الله 

عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس

وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I   وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20

 

ترحيل.rar

شكري وتقديري استاذ ياسر العربى

شهادة اعتز بها من استاذ مبدع وشكرا لكم لدعمنا بالكود جزاك الله كل خير منكم نتعلم