ارجو المساعدة في اضافة فورم الى برنامجي

[VirusWorld]

السلام عليكم اساتذتي واخوتي الكرام

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

New AP.zip

[سليم حاصبيا]

لم استطع تحميل الملف للاطلاع عليه

يرجى رفعه مرة ثانية

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

أخي الكريم

أهلا بك في المنتدى ونورت بين إخوانك

يرجى إرفاق الملف مرة أخرى لأنه غير موجود بالفعل ، كما يرجى تغيير اسمك المريب أيها الفيروس العالمي إلى اللغة العربية كما هو موصى به في التوجيهات

[VirusWorld]

تم الرفع مجددا 

New AP.zip

تم تجربة التحميل بنجاح مع العلم ان الملف بصيغة accdb اوفيس 2010

اما بالنسبة لاستاذي الكريم 

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

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

بإنتظار تعديلاتكم اخوتي الكرام كونني قد تركت الاكسل منذ مدة طويلة والآن احببت ارجع واكتسب الخبرة في الاكسل منكم 

شكرا اساتذتي الكرام 

[VirusWorld]

ارحو المساعدة لو سمحتم 

[أبو حنــــين]

السلام عليكم 

هذه الملامح الاولى للبرنامج

 

New AP 1.rar

[VirusWorld]

1 ساعه مضت, أبو حنــــين said:

السلام عليكم 

هذه الملامح الاولى للبرنامج

 

New AP 1.rar

شكرا استاذ 

أبو حنــــين

جاري التجربة 

[VirusWorld]

بارك الله فيك استاذي الغالي ابو حنين

لكن عندي سؤال 

عندما يتم تعبئة الداتا في الفورم وعند الحفظ تظهر مسج ان الشيت غير موجودة مع العلم ان البرنامج يقوم بحفظ الداتا بشكل صحيح وفي المكان الصحيح يوجد صورة مرفقة

ايضا ليست كل الحقول اجبارية لذلك اريد ان الغي خاصية الاجباري من بعض الحقول فكيف يمكن ذلك ؟

عمل رائع استاذي الغالي جعله الله في ميزان حسناتك

بانتظار اكمال المطلوب من اضافة وتعديل وحذف وفورم للبحث 

بارك الله فيك استاذ

وشكرا  لمنتدانا الغالي ولكل من شارك وسيشارك معي لاكمال الملف 

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

بارك الله فيك أخي الحبيب أبو حنين وجزيت خيراً على كل مساهماتك الرائعة والجميلة

وبصراحة أنت ملك الفورم

لي رجاء عندك ويا ريت تلبيه .. أرجو دائماً في كل مشاركاتك أن تضع الكود في المشاركة للإطلاع عليه قبل تحميل الملف

 

أخي السائل (حتى منعرفش اسمه لحد الآن)

روح للكود في الفورم وابحث عن هذا السطر

Me.Controls("T" & I) = ""

وغير I إلى xx ...

ولي رجاء أن تقسم موضوعك إلى نقاط بسيطة لكي تجد الاستجابة من قبل إخوانك بالمنتدى (وراجع التوجيهات لتعرف كل الأمور التي يستحب الالتزام بها)

[أبو حنــــين]

بالفعل كان هناك خطأ كما أشار اليه اخي ياسر

كود الحفظ سيصبح بهذا الشكل

Private Sub CommandButton1_Click()

    Dim x As Byte, xx As Byte
    On Error GoTo 100
    With Sheets(TextName.Text)
    Last = .Cells(Rows.Count, "H").End(xlUp).Row + 1
    For x = 1 To 9
    .Cells(Last, x).Value = Me.Controls("T" & x).Value
    Next
For xx = 1 To 7
Me.Controls("T" & xx) = ""
T1.SetFocus
Next
    End With
    Exit Sub
100
    MsgBox "The sheet " & TextName.Text & "  does not exist", vbExclamation, "Error"
    
End Sub

 

أما في ما يخص البحث فيجب ان توضح المعيار 

هل سيكون عن طريق : Name , Mac , Ip , Rmac  . . . . .

[VirusWorld]

بارك الله فيك استاذي الغالي ابو حنين

واعتذر منك مشرفنا 

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

لعدم التعريف بنفسي . انا وائل من لبنان 

الملف بعد تعديل الكود من استاذنا الغالي ايو حنين  New AP 2.rar

100% المطلوب

اما بالنسبة الى فورم البحث فيجب ان يكون عن طريق  Name , Mac , Ip  هذه هي الاهم 

عندي فورم بحث جاهز وجميل جدا سوف اقوم بارفاقه ليستفيد منه الجميع ولكنني اريد شيء جديد في برنامجي هذا

New AP 3 with search.rar