ارجوا المساعدة في برمجة هذه القاعدة

[ahmadalali]

السلام عليكم ورحمة الله وبركاته

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

واذا ممكن صفحة البداية تكون بيوزر وكلمة سر

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

اخوكم مبتدأ ارجو المعذرة

 

قاعدة بيانات1.rar

[أبو إيمان]

وعليكم السلام ورحمة الله وبركاته 

هل تريد عند فتح الملف يطلب كلمة سر 

أم عند الضغط على الاستعلام عن بيانات العاملين 

وهل ترغب في أن يظهر الفور تلقائي عن الفتح أم ماذا 

[ahmadalali]

جزاك الله كل خير اخي الكريم على الاهتمام

نعم اريد عند فتح الملف ان يظهر لي اسم مستخدم وكلمة سر للقاعدة

وتشغيل زر الاضافة من اجل ترحيل المعلومات وان يظهر الفور تلقائي عند فتحه

وكتب الله أجرك ورفع قدرك

[أبو إيمان]

يمكن الاطلاع على الموضوع التالي يمكن يفيدك

https://www.officena.net/ib/topic/39376-ملف-به-شاشة-دخول-بسيطه-ومنها-الى-شاشة-صلاحيات-متطوره/#comment-218345

[محمد هشام.]

تفضل جرب اخي

اسم المستخدم: admin

كلمة المرور :   12345

 

Private Sub CommandButton1_Click()
    
        Dim sh As Worksheet
        Set sh = Sheet1
        Dim lr As Long
        lr = sh.Range("A" & Rows.Count).End(xlUp).Row
        
'''''''''''''''Validation'''''''''
       
       With sh
            .Cells(lr + 1, "A").Value = Me.TextBox2.Text
            .Cells(lr + 1, "B").Value = Me.TextBox3.Text
            .Cells(lr + 1, "C").Value = Me.TextBox4.Text
            .Cells(lr + 1, "D").Value = Me.TextBox5.Text
            .Cells(lr + 1, "E").Value = Me.TextBox6.Text
            .Cells(lr + 1, "F").Value = Me.TextBox7.Text
            .Cells(lr + 1, "G").Value = Me.TextBox8.Text
            .Cells(lr + 1, "H").Value = Me.TextBox9.Text
            .Cells(lr + 1, "i").Value = Me.TextBox10.Text
            .Cells(lr + 1, "j").Value = Me.TextBox11.Text
            .Cells(lr + 1, "k").Value = Me.TextBox12.Text
       End With
For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i
ListBox1.ColumnCount = 11
ListBox1.RowSource = "A1:K100000"

MsgBox "تمت اضافة البيانات بنجاح"

End Sub

قاعدة بيانات1.xlsm

تم تعديل فبراير 14, 2023 بواسطه Mohamed Hicham