[egyman]

---------------------------
Address_Book
---------------------------
No value given for one or more required parameters.
---------------------------
OK
---------------------------
تظهر بذالك الكود

بعد تعديلة بالشكل التى

كود :

sSQL = "INSERT INTO [Main] ( [txtcode],  [drname], [dtpDOB], [area], [line], [note] )"
            sSQL = sSQL & " VALUES ( @fileno  , @drname, @date, @area, @line, @note )"
            cmd.CommandText = sSQL

            ' في التعامل مع الأكسس ترتيب أسطر البارامترات يجب أن يكون بنفس ترتيب اسمائها في جملة إسكيوإل
            cmd.Parameters.AddWithValue("@fileno", Val(Me.txtcode.Text))
            cmd.Parameters.AddWithValue("@drname", Me.txtLastName.Text.Trim)
            cmd.Parameters.AddWithValue("@date", Me.dtpDOB.Value)
            cmd.Parameters.AddWithValue("@area", Me.area.Text.Trim)
            cmd.Parameters.AddWithValue("@line", Me.line.Text.Trim)