الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أحتاج مساعدة في Access

مغلق
بدأه هاني الأتاسي في 18 أبريل 2001 · 3 رد · 768 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أقوم بتصميم قاعدة بيانات أكسس ، ولكني مازلت مبتدئ بال Access وال VBA . والمشكلة أن هذا المشروع هو وظيفة للجامعة .

المشروع هو عبارة عن نظام تأجير ممتلكات وتتبع هذه الممتلكات والدخل .

بصراحة عندي العديد من الأسئلة سوف أبدء بالسؤال الأول وأرجو أن تساعدو أخوكم المسكين .

هذا وصف بسيط للقاعدة التي لدي :

Tables:

1) tblTenant : معلومات عن المستأجر ، تحتوي على حقل PropertyID لربط هذا الجدول مع الجدول الثاني.

2) tblProperty : معلومات عن الشقة تحتوي على PropertyID Key field.

Forms:

one form for each table.

السؤال هو :

I want to add a button in the tenant form that display a property form and then select an appropriate record and press ok. After the user presses OK, I want the ID for the selected property to be displayed in the propertyID text box in the tenant form.

How can I program that in VBA..??

for ex. the browse button in Windows programs. It shows you a selected folder after you select the folder..

أتمنى أن يكون سؤالي واضح وشكرا ،

Coding on the Cloud and for the Cloud!

My Blog

#2

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

الأخ هاني كيف الحال

أتمنى أن أقدم لك ماهو مطلوب

بفرض أن الفورم الأول هو tblTenant والفورم الثاني هو tblProperty

الفورم الأول يحوي الزر cmdfrmProperty

نضع له الكود الثالي

 
Private Sub cmdfrmProperty_Click()
On Error GoTo Err_cmdfrmProperty_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "tblProperty"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog

Exit_cmdfrmProperty_Click:
    Exit Sub

Err_cmdfrmProperty_Click:
    MsgBox Err.Description
    Resume Exit_cmdfrmProperty_Click

End Sub

والفورم الثاني يحوي الزر cmdOK

نضع له الكود التالي

 
Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click

    Form_tblTenant.PropertyID = Me.PropertyID 

    DoCmd.Close

Exit_cmdOK_Click:
    Exit Sub

Err_cmdOK_Click:
    MsgBox Err.Description
    Resume Exit_cmdOK_Click

End Sub

وقد جربتها واشتغلت وأنا جاهز لأي استفسار

أخوكم عامر

ملاحظة: الكود أنشأه الويزارد وقمت بتعديله ليقوم بالمطلوب

#3

أشكرك جدا يا أخ عامر،

أرجو أن لا أثقل عليك، ولكن عندي استفسار آخر .

في حال كان هناك قيمة في مربع النص PropertyID في tblTenant Form. أريد أن أقوم بفتح الفورم الثاني بجميع الRecords ولكن يظهر السجل الذي يتوافق مع الPropertyID المكتوب في الفورم الأول.

وأشكرك مرة أخرى،

Coding on the Cloud and for the Cloud!

My Blog

#4

ولو يا أخ هاني

لسه ماعملنا شي

بدنا خدمة تحرز لنعوض لك على فوائدك الكبيرة

يمكن الانتقال إلى السجل الذي تريده عن طريق وضع هذا الكود في حدث LOAD للفورم الثاني

Private Sub Form_Load()
    PropertyID.SetFocus
    DoCmd.FindRecord Form_tblTenant.PropertyID
End Sub

هذا الموضوع مغلق.

مواضيع مشابهة