اذهب الي المحتوي
أوفيسنا

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


VirusWorld

الردود الموصى بها

أخي الكريم

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

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

رابط هذا التعليق
شارك

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

New AP.zip

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

لكن عندي سؤال 

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

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

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

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

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

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

Error.png

رابط هذا التعليق
شارك

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

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

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

 

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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  . . . . .

رابط هذا التعليق
شارك

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

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

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

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

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

100% المطلوب

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

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

New AP 3 with search.rar

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information