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

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

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

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

حفظ.mdbFetching info...

[kkhalifa1960]

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

Save-1.mdbFetching info...

[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

 

[متقاعد]

  في 14‏/2‏/2023 at 16:59, kkhalifa1960 said:

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

Expand  

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

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

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

[Eng.Qassim]

  في 14‏/2‏/2023 at 17:44, متقاعد said:

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

Expand  

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

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

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

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

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

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

[متقاعد]

  في 14‏/2‏/2023 at 17:50, Eng.Qassim said:

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

Expand  

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

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

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

اما خلاف ذلك

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

[الحلبي]

  في 14‏/2‏/2023 at 18:09, متقاعد said:

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

Expand  

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

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

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

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

[متقاعد]

  في 14‏/2‏/2023 at 18:53, الحلبي said:

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

Expand  

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