النقل بين جداول مختلفة من خلال النموذج

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

السلام عليكم ورحمة الله و بركاته 
فى هذا النموذج يوجد ثلاث جداول 
جدول Main وهو يأخذ بياناته من جدولين 
TableA and TableB

حيث من خلال النموذج Main عند كتابة اسم بعد التحديث ينقل المدينة من الجدولين 
المطلوب 
عند كتابة اسم اذا كان موجود فى جدول TableA ينقل المدينة
اذا كان غير موجود بجدول TableA ينقله المدينة من جدول TableB 

وكذلك اذا كان غير موجود فى TableB 
يضع فى المدينة "غير موجودة"

مع العلم أن TableA و TableB مختلفى البيانات اى لا يوجد بينهما تكرار 

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

 

testcopy.mdb

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

للرفع

[ابو جودي]

15 ساعات مضت, محمد احمد لطفى said:

السلام عليكم ورحمة الله و بركاته 
فى هذا النموذج يوجد ثلاث جداول 
جدول Main وهو يأخذ بياناته من جدولين 
TableA and TableB

حيث من خلال النموذج Main عند كتابة اسم بعد التحديث ينقل المدينة من الجدولين 
المطلوب 
عند كتابة اسم اذا كان موجود فى جدول TableA ينقل المدينة
اذا كان غير موجود بجدول TableA ينقله المدينة من جدول TableB 

وكذلك اذا كان غير موجود فى TableB 
يضع فى المدينة "غير موجودة"

مع العلم أن TableA و TableB مختلفى البيانات اى لا يوجد بينهما تكرار 

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

 

testcopy.mdb 436 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

عروستــــــــــــــــــــــــــــــــــــــى 

انا لم افهم

ممكن توضح عملى مثال على كل طلب 

وبم تقصد ينقل المدينه ؟

اتمنى منك الاخذ فى الحسبان اننا صائمون  ههههههههههه 

 

 

تم تعديل مايو 28, 2019 بواسطه ابا جودى

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

استاذى @ابا جودى

 

Me.city = Nz(DLookup("city", "[TableA]", "[namex]='" & Me.[namex] & "'"), "")


Me.city = Nz(DLookup("city", "[TableB]", "[namex]='" & Me.[namex] & "'"), "")

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

اذا (محمد) موجود فى Table ينقل المدينة الى النموذج فى خانة المدينة و اذا لم يكن موجود فى الجدول ينتقل الى الجدول TableB  واذا لم يكن موجود ايضا فيه يكتب فى خانة المدينة غير موجودة

😂😂

تم تعديل مايو 28, 2019 بواسطه محمد احمد لطفى

[د.كاف يار]

 

On Error Resume Next

If Me.city = DLookup("city", "[TableA]", "[namex]=[Forms]![main]![city]") Then
Me.city = Nz(DLookup("city", "[TableA]", "[namex]=[namex]=[Forms]![main]![city]"), "")
Else


If MsgBox("المدينة غير مسجلة مسبقا هل تريد تسجيلها الآن ؟" & vbCrLf & "", vbYesNo, " مدينة غير مسجلة") = vbYes Then

Dim x As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("TableA")
         Rs.AddNew
         Rs!city = [Forms]![main]![city]
         Rs.Update
       Set Rs = Nothing
MsgBox "تم التسجيل بنجاح", vbOKOnly, "تأكيد التسجيل"
End If

End If

فقط الصق الكود في حدث بعد التحديث

ان كانت المدينة غير مسجلة مسبقا سيتم تسجيلها

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

بداية انا عاوز اكتب 
اذا كان الاسم مطابق للاسم فى جدول TableA 

اذن 
 

Me.city = Nz(DLookup("city", "[TableA]", "[namex]='" & Me.[namex] & "'"), "")

elseif
الاسم مطابق للاسم فى جدول TableB
اذن 
 

Me.city = Nz(DLookup("city", "[TableB]", "[namex]='" & Me.[namex] & "'"), "")

elseif
 

Me.city = "مدينة غير موجودة "

end if 

كود أستاذى @د.كاف يار

لم يعمل و شكرا للمساعدة 

[د.كاف يار]

تفضل المرفق  و به التعديل

testcopy.mdb

[ابو جودي]

Dim i As Long
Dim Countnamex(0 To 1) As Integer
  Countnamex(0) = DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]")
  Countnamex(1) = DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]")
    i = 0
      Do While (i < UBound(Countnamex) + 1)
          i = i + 1
      Loop
If Countnamex(0) = 1 Then city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]")
If Countnamex(1) = 1 Then city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]")
If Countnamex(0) = 0 And Countnamex(1) = 0 Then city = "غير موجودة"

استخدم هذا الكود

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

17 دقائق مضت, د.كاف يار said:

تفضل المرفق  و به التعديل

testcopy.mdb 600 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

لم يحدث شىء بعد كتابة اسم محمد كان مفترض ان تكون المدينة القاهرة ولكن لم يحدث شيىء

9 دقائق مضت, ابا جودى said:

Dim i As Long
Dim Countnamex(0 To 1) As Integer
  Countnamex(0) = DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]")
  Countnamex(1) = DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]")
    i = 0
      Do While (i < UBound(Countnamex) + 1)
          i = i + 1
      Loop
If Countnamex(0) = 1 Then city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]")
If Countnamex(1) = 1 Then city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]")
If Countnamex(0) = 0 And Countnamex(1) = 0 Then city = "غير موجودة"

استخدم هذا الكود

شكرا ً استاذى @ابا جودى

هذا هوه المطلوب 

اضافة 

If DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]") Then
Me.city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]")
ElseIf DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]") Then
Me.city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]")
Else
Me.city = "مدينة غير موجودة"
End If

 

تم تعديل مايو 28, 2019 بواسطه محمد احمد لطفى