[Emam emam]

(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا

بارك الله فيك اخي علي مساعدتك

ولكن عندي سؤال علي كود مسح مربعات النصوص 

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

ثانيا سؤالي هو

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