ياخرااشييييييي ده كله :23:

أنا مسخنه وزادت علي السخونه هههههههههههههههه

طيب مو مشكله الكودات اللي أعرفها راح أكتبها ولايصير خاطرك إلا طيب :21:

أنتظريني بكره إذا شاء الرحمن 000

معلش يختي غصب عني و الله اعمل ايه إه إه إه:06: :06: :06: اعمل ايه اعمل اييييييييييييييييييييييييييييه

أعذريني أختي وربي مادخلت النت إلا عشانك لأني تعبانه شوي

بسم الله نبدأ:

1) عرض بيانات العمال

Private Sub Command1_Click
Set db = DBEngine.OpenDatabase("c:\empdata.mdb")
Set rs = db.OpenRecordset("employee", dbOpenDynaset)
display
rs.MoveFirst
End Sub

طبعا تربطين قاعدة البيانات بواسطة أداة Data وتكتبين في الــ General

Sub display
Text1.Text = rs.Fields("empno")
Text2.Text = rs.Fields("empname")
Text3.Text = rs.Fields("job")
Text4.Text = rs.Fields("salary")
Text5.Text = rs.Fields("comm")

End Sub

rs هنا إختصار لكلمة recordset
الأقواس طايره غرب !! عدليها أنتي لما تكتبي الكود

2) إدخال بيانات العمال

Private Sub Command2_Click()
Recordset.AddNew
display
End Sub

3) زر الحذف

Private Sub Command3_Click()
Recordset.Delete
display
End Sub



4) زر البحث

Private Sub Command4_Click()
b=Input Box("أدخل الأسم اللذي تريد البحث عنه")
Recordset.FindFirst "empname='" + b + "'"
If rs.NoMatch = True Then
MsgBox ("لاتوجد بيانات خاصه بالأسم اللذي أدخلته الرجاء التأكد من صحة البيانات المدخله")
Else
MsgBox ("السجل هو ")
End If
display

وهنا كمان الكلام اللي بالعربي طبعا يكون بعد الكلام اللي بالأنجليزي بس لأن عندي هنا مو راضي يضبط والسطر الثالث يبدأ بــ Recordset وينتهي بأربع علامات تنصيص بعد الـــb


6) إغلاق

إذا كان المطلوب منكِ إنهاء البرنامج ككل تضعين End لكن إذا طلب منك إغلاق الفورمه الثانيه مثلا والعوده للفورمه الرئيسيه الأولى عندها تكتبن هذا الكود


Private Sub Command6_Click()
Form1.Show
Form2.Hide
End Sub

هنا يخفي لك الفورمه الثانيه ويظهر لك النوذج الأول


النوذج الثــــــــــــــاني

Private Sub Command1_Click()
Dim m, b, n
("أدخل كلمة المرور ")m = InputBox
If m = ("welcome") Then
Form2.Show
Else
n = vbExclamation
("عــــــــذرا")= Title
(n,Title ,(كلمة المرور غير صحيحه)) b=MsgBox
End If
End Sub


دعواتك وبالتوفيق 000

و الله مررررررررررره شكرا مره و معليش من جد عشان تعبتك معايا و الله يشفيك بسرعه لا بأس طهورا ان شاء الله وجعله الله تخفيف من ذنوبك
و تسلمييييييييييييييلي
ودمتي بود
زورو:26:

حبيبتي رحيق انا ما عندي command عندي button عادي و لا كيف