خالي نگذاشتن فرم

[mohamadali110]

سلام
فرض كنيد يه فرم داريم كه بايستي يه سري از سلول ها حتما پر بشه
حالا فرض كنيد طرف هنگام پر كردن فرم اون قسمت رو نبينه و پر نكنه حالا ميخوايم موقعي كه ميخواد فايلو ببنده يا ذخيره كنه در صورتي كه اون قسمت رو پر نكرده باشه يه پيغام خطا بده يا اصلا نتونه ذخيرش كنه تا اون قسمت رو پر نكرده بهتره

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Alexis]

شما می تونید برای اینکار کنترل های مربوطه را اعمال کنید مثلا اگه قرار هست ثبت اطلاعات انجام بشه قبل از عملیات ثبت حتما چک بشه اطلاعات مورد نظر حتما پر باشه در غیر اینصورت اخطار بده
بهتره فایلتونا پیوست کنید تا روی اون بحث بشه

[mohamadali110]

شما می تونید برای اینکار کنترل های مربوطه را اعمال کنید مثلا اگه قرار هست ثبت اطلاعات انجام بشه قبل از عملیات ثبت حتما چک بشه اطلاعات مورد نظر حتما پر باشه در غیر اینصورت اخطار بده
بهتره فایلتونا پیوست کنید تا روی اون بحث بشه

اينم فايلم

توضيحات در فايل اومده

فرض كنيد اطلاعات اين فرم در اختيار فرد قرار ميگيرد
فرد در هنگام تكميل فرم قبل از خروج و يا سيو تمامي اطلاعات را تكميل كند و گرنه بهش اخطار بده
اخطار هم بصورت msgbox يا datavalidation باشهفرض كنيد اطلاعات اين فرم در اختيار فرد قرار ميگيرد
فرد در هنگام تكميل فرم قبل از خروج و يا سيو تمامي اطلاعات را تكميل كند و گرنه بهش اخطار بده
اخطار هم بصورت msgbox يا datavalidation باشه

[Alexis]

ببخشید نمی تونم فایل پیوست کنم یه فرم درست کنید با سه تا تکست باکس و یه باتون و کد زیر را تو ایونت باتون بنویسید

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Sheet1.Range("b2:b100")
    If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
        If c = "" Then
            c = TextBox1.Text
            c.Offset(0, 1).Value = TextBox2.Text
            c.Offset(0, 2).Value = TextBox3.Text
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            MsgBox "اطلاعات ثبت شد"
            TextBox1.SetFocus
            Exit Sub
        End If
    Else
        MsgBox "پر کردن تمامی اطلاعات الزامیسیت"
        Exit Sub
    End If
Next c
End Sub 

[mohamadali110]

تست كردم جواب نداد اينم فايلم
لطفا رو فايلم اصلاح صورت بگيرد
با سپاس

[علی فاطمی]

با سلام لطفا فایل پیوست رو ملاحظه بفرمائید.