حفظ سجل من النموذج الى سجل جديد فى جدول

[محمد احمد لطفى]

كيف يمكن جفظ سجل من النموذج الى سجل جديد فى جدول 

حيث يتم ادخال الاسم و العنوان فى النموذج و الضغط على حفظ يتم الحفظ فى سجل جديد فى جدول

حفظ.mdb

[kkhalifa1960]

تفضل أخي بطريقتان  .

Save-1.mdb

[Eng.Qassim]

اضافة لما تفضل به الاستاذ @kkhalifa1960..لم أتي بشيء جديد

لكني أفضل كتابة الكود للفائدة..لان تعلم كتابة الكود ومعرفة كل سطر امر مهم لكل مبرمج

Dim rs As DAO.Recordset
    Dim sql As String
    
    sql = "select * from tb1 "
    Set rs = CurrentDb.OpenRecordset(sql)
    
        rs.AddNew
        rs!NameX = Me.txtName
        rs!Adress = Me.txtAddress
        
        Me.txtName = ""
        Me.txtAddress = ""
        
        rs.Update
    Set rs = Nothing

 

[Eng.Qassim]

نسيت شيئا ...في حالة اردنا عدم طباعة نفس الاسم مرة اخرى ..

    Dim fullName As String
    Dim strSQL As String
    Dim rs As DAO.Recordset
    
    fullName = Me.txtName.Value
    strSQL = "SELECT * FROM tb1 WHERE NameX = '" & fullName & "';"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    If rs.RecordCount > 0 Then
        MsgBox "الاسم مكرر"
        Me.txtName = ""
        Me.txtAddress = ""
        Me.txtName.SetFocus
    Else
        rs.AddNew
        rs!NameX = fullName
        rs!Adress = Me.txtAddress
        
        Me.txtName = ""
        Me.txtAddress = ""
        rs.Update
        MsgBox "تم التسجيل بنجاح"
    End If
    
    rs.Close
    Set rs = Nothing

 

[متقاعد]

44 دقائق مضت, kkhalifa1960 said:

تفضل أخي بطريقتان  .

عمل جميل بارك الله فيك

بطريقتين الباء حرف جر طريقتين اسم مجرور باليا لانه مثنى

بالألف ارفع المثنى وكلا .. إذا بمضمر مضافا وصلا
كلتا كذاك اثنان واثنتان .. كابنين وابنتين يجريان
وتخلف اليا في جميعها الألف .. جرًا ونصبًا بعد فتح قد ألف

[Eng.Qassim]

3 دقائق مضت, متقاعد said:

بطريقتين الباء حرف جر طريقتين اسم مجرور باليا لانه مثنى

هل تعلم اخي استاذ خالد اني قرأتها (بطريقتين) ولم اعلم انها مكتوبة (بطريقتان)

رغم اني ضعيف باللغة العربية !!!

لكننا احيانا اصحاب القواعد الضعيفة نكتب مانشاء ..ونحن معذورين على كل حال

[محمد احمد لطفى]

جزاكم الله كل خيرا 

شكراً أستاذى @kkhalifa1960 على الطريقتين 
شكراً أستاذى @Eng.Qassim على منع التكرار 
                                        

[متقاعد]

18 دقائق مضت, Eng.Qassim said:

لكننا احيانا اصحاب القواعد الضعيفة نكتب مانشاء ..ونحن معذورين على كل حال

ياهلا باخي الحبيب قاسم

نحن معذورون معذورون خبر مرفوع بالواو "لانها جمع مذكر سالم" ولو سبقت بال التعريف جاز نصبها على اعتبارها مفعول به منصوب على الاختصاص بفعل محذوف وجوبا مع فاعله

كقوله تعالى (قالوا إِنَّ لَنا لَأَجرًا إِن كُنّا نَحنُ الغالِبينَ)

اما خلاف ذلك

وارفع بواو و بيا اجرر وانصب .. سالم جمع عامر و مذنب
وشبه ذين و به عشرونا .. وبابه ألحق و الأهلونا
أولو و عالمون علييونا.. وأرضون شذ و السنونا
وبابه ومثل حين قد يرد .. ذا الباب و هو عند قوم يطرد

[الحلبي]

40 دقائق مضت, متقاعد said:

وبابه ومثل حين قد يرد .. ذا الباب و هو عند قوم يطرد

ماشاء الله ولاحول ولا قوة الا بالله

هل انت فى اللغة الانجليزية مثل حالتك فى العربية 

هذا تدخل منى وفضول ارجو ان تعذرنى وربنا يقوى علمك ويهدى بصيرتك الى ما هو نافع ولوجه الله تعالى

اخى العزيز الحبيب / سامحنى لهذا الفضول

[متقاعد]

10 ساعات مضت, الحلبي said:

هل انت فى اللغة الانجليزية مثل حالتك فى العربية 

لغتي الانجليزية جيدة ولكن العربية عشق واعتزاز وفخر