المساعدة بان احضر قيمة من فورم اخر

[ahmedhassan1948]

بعمل برنامج اكسس

عاوز اختار twitter و Click من الفورم TBLPLATEFORM

يذهب  ياتي القيمة من p1 من الفورم PlatPrice

 

If ComPlat.Value = Twitter & comType.Value = Click Then
TargetPlas.Value = PlatPrice.NP1.Value  * 0.5

ملف الاكسس

platform.rar

شكرا لكم 

[ناقل]

عدلها بهذا الشكل ...

If ComPlat.Value = "Twitter" And Me.comType = "Click" Then
TargetPlas.Value = [Forms]![PlatPrice]![NP1] * 0.5

ولكن .... ملاحظة يجب ان يكون النموذجين مفتوحين ......!!!!!!!

 

[ابو جودي]

مشاركة مع استاذى الحبيب الاستاذ @ناقل  انا ايضا ناقل  من استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr 

Dim MyWher As String

Dim A As String
Dim x() As String
    
    A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
    x = Split(A, "|")
        
        MyWher = x(0)
        If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = MyWher * 0.5

 

تم تعديل يناير 16, 2022 بواسطه ابو جودي

[ابو جودي]

الاستاذ @ahmedhassan1948  شكله نايم ما شاف الحلول الى الان 

واستاذى القدير ومعلمى الاستاذ @ناقل يبدو انه زعلان لانى لم انقل عنه  كما تعودنا 

[ناقل]

منذ ساعه, ابو جودي said:

 

واستاذى القدير ومعلمى الاستاذ @ناقل يبدو انه زعلان لانى لم انقل عنه  كما تعودنا 

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

تم تعديل يناير 17, 2022 بواسطه ناقل

[ahmedhassan1948]

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

 

@ابو جودي جربت الكود بس انا عاوز ياخذ القيمة من الفورم الثانية 

Dim MyWher As String

Dim A As String
Dim x() As String
    
    A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
    x = Split(A, "|")
        
        MyWher = x(0)
        If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = MyWher * 0.5

كدة هو بيضرب القيمة ثابته في 0.5 انا محتاج اضربها حسب القيمة الموجودة في p1 او p2 او p3 وهكذا 

[أبو عبدالله الحلوانى]

1 ساعه مضت, ahmedhassan1948 said:

انا محتاج اضربها حسب القيمة الموجودة في p1 او p2 او p3 وهكذا 

اذا لم يكن فهمي خاطئا فلم يتسع وقتي لتحميل المرفق 

واذا اردت ان تمرر احد هذه القيم من فورم الي اخر ولا يشترط ان يكون كلاهما مفتوحا بنفس الوقت اليك هذه الفكرة.

قم بانشاء وحدة نمطية واكتب بها هذا السطر

Public Myvalue as integer

وبهذا الشكل يمكنك تمرير اي قيمة من الفورم اليها لتستعملها بأي فورم آخر تريده بالكيفية التي تريدها مثال

من الفورم الأول مثلا اكتب هذا الكود

Myvalue = p1  'Or p2 or p3 as you want

ومن الفورم الثاني اكتب هذا الكود 

TargetPlas= Myvalue * 0.5  'أو اي معادلة حسابية تريد ان تجريها علي هذا المتغير

وانتهي الأمر

[ahmedhassan1948]

جزاك الله خير

يبدوا ان المشكلة عندي

 

انا عملت Modual 

Option Compare Database

Public Myvalue As Integer
Public MyP2 As Integer

الفورم الاول 

Myvalue = NP1.Value
MyP2 = Np2.Value

الفورم الثاني 

    If ComPlat.Value = Twitter & comType.Value = Click Then
        
        TargetPlas.Value = txtCost.Value * Myvalue
        Else
ComPlat.Value = Twitter & comType.Value = engagement
TargetPlas.Value = txtCost.Value * MyP2
       
        End If

 

و لم يعمل 

 

[Eng.Qassim]

22 ساعات مضت, أبو عبدالله الحلوانى said:

واذا اردت ان تمرر احد هذه القيم من فورم الي اخر ولا يشترط ان يكون كلاهما مفتوحا بنفس الوقت

ياريت تشرح الفكرة بأكثر تفصيل استاذنا العزيز @أبو عبدالله الحلوانى

[أبو عبدالله الحلوانى]

12 دقائق مضت, ahmedhassan1948 said:

Option Compare Database

Public Myvalue As Integer
Public MyP2 As Integer

الفورم الاول 

Myvalue = NP1.Value
MyP2 = Np2.Value

الفورم الثاني 

    If ComPlat.Value = Twitter & comType.Value = Click Then
        
        TargetPlas.Value = txtCost.Value * Myvalue
        Else
ComPlat.Value = Twitter & comType.Value = engagement
TargetPlas.Value = txtCost.Value * MyP2
       
        End If

جرب هذا التعديل

Option Compare Database

Public Myvalue As Integer
Public MyP2 As Integer

الفورم الاول 
private sub Zer1_Click()
  Myvalue = NP1.Value
  MyP2 = Np2.Value
End sub

الفورم الثاني 

    If ComPlat.Value = "Twitter" And comType.Value = "Click" Then
        TargetPlas.Value = txtCost.Value * Myvalue
    Elseif ComPlat.Value = "Twitter" And comType.Value = "engagement" then
		TargetPlas.Value = txtCost.Value * MyP2
	End If

ووافني بالنتائج

اذا لم تزل تواجه مشكلة ارفق مرفق للتعديل.

11 دقائق مضت, Eng.Qassim said:

ياريت تشرح الفكرة بأكثر تفصيل

الفكرة بكل بساطة هي:

1- انشاء متغير عام يمكن استدعائه من اي مكان بالبرنامج ( عن طريق انشاء وحدة نمطية عامة وكتابة تصريح عام بها باسم المتغير كما هو موضح بالمشاركة الأولي)

2- نمرر قيمة الي هذا المتغير العام من اي فورم او تقرير او ... 

3- نقرأ قيمة المتغير من اي مكان كذلك سواء فورم او تقرير او ...

وانتهي الأمر

[ahmedhassan1948]

جزاك الله خير

لم يعمل بعد التعديل 

 

مرفق الملف بعد التعديل

platform.rar

[ابو جودي]

في ١٧‏/١‏/٢٠٢٢ at 21:16, ahmedhassan1948 said:

كدة هو بيضرب القيمة ثابته في 0.5 انا محتاج اضربها حسب القيمة الموجودة في p1 او p2 او p3 وهكذا 

انسى الاجابات اللى فاتت 

انسى اى شئ وما تفكرش انك تطلب الحل على افكارك انت
لان انت ممكن تكون ما فكرت بطريقة صحيحة وممكن توجهنا بالخطأ تبعا لافكارك 
 

ركز فى الاتى ايه المعطيات والثوابت عندك وما هى النتيجة التى تريد الحصول عليها تبعا للمعطيات والثوابت

ياريت الاجابة تكون مصحوبة بالقيم الحالية الموجودة بالجداول 

في ١٧‏/١‏/٢٠٢٢ at 21:16, ahmedhassan1948 said:

كدة هو بيضرب القيمة ثابته في 0.5 انا محتاج اضربها حسب القيمة الموجودة في p1 او p2 او p3 وهكذا 

انا اقدر اغير الكود زى ما انا اريد ولكن انا لا ادرى ماذا تريد انت 

[ahmedhassan1948]

السلام عليكم 

مرفق الملف

بيه الجدول 

[ahmedhassan1948]

test.xlsx

[ابو جودي]

يا اخى الله يرضى عليك تعالى نمشى خطوة بعد خطوة فى المطلوب تنفيذه 

هو حضرتك مكسل تكتب ؟!

لو الموضوع كبير 

خلينا نمشى خطوة خطوة

[ahmedhassan1948]

تمام اخي 

المطلوب عندما يختار البلاتفورم و النوع و يضيف القيمة (x) يذهب للفورم الثاني و يحضر القيمة و يضربها في x

مثال 

اختار تويتر و كليك و قيمة x  مثلا 500 يذهب للفورم الاخري يحضر القيمة الذي امام تويتر و كليك (0.5) و يحضرها للفورم الاول

ثم يضرب القيمة في x 

500 في 0.5 و تظهر في المربع target 

 

تمام اخي 

[ابو جودي]

القيمة (x) فين مكانها ؟!

من اين تأتى بهذه القيمة 

[ابو جودي]

اتفضل تجربة 

Dim MyWher As String

Dim A As String
Dim x() As String
    
    A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
    x = Split(A, "|")
        
        'MyWher = x(0)
        'Debug.Print MyWher
        
       Select Case Nz(comType, "")
        Case Is = "": MyWher = ""
        Case Is = "click": MyWher = x(0)
        Case Is = "Engagement": MyWher = x(1)
        Case Is = "impressions": MyWher = x(2)
        Case Is = "IGTV": MyWher = x(3)
       End Select
       
        Dim Myx As String
        Myx = "2.5"
        TargetPlas.Value = MyWher * Myx

 

غير قيمة Myx  كما تريد

[Eng.Qassim]

استاذي @ابو جودي... انا افتر دماغي

جربت كود الاستاذ @أبو عبدالله الحلوانى لكنه كان يعطيني اول حقل فقط .. حاولت ان اعمل حلقة تكرار ولم تنفع

كما في الصورة

اعتقد تحتاج شوية بخور ...

[ابو جودي]

11 دقائق مضت, Eng.Qassim said:

حاولت ان اعمل حلقة تكرار ولم تنفع

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

قد يكون فقط الان لان السجلات لم تأخذ القيم المفروضة

واانا والله الى الان مش فاهمه لو فهمت هو عاوز ايه ان شاء الله اضع له الاجابة تفصيلا

 

انا احاول وضع الاجابة بدون التعرض لادراج قيم الى متغيرات والتى تستوجب فتح الفورم الاول 

ولا حتى بدون متغيرات والتى تستلزم فتح الفورم الاول اثناء العمل 

انا عملت له كود يحضر كل القيم على طريقة استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr 

بس باقى توظيف الكود للتعامل مع الحالات المختلفة 

وهو مصر انه ياخدنا جميعا للارتباط بقيم الفورم والجميع جزاهم الله خيرا فكروا بناء على طلبه انا شايف ان القيم ثابته وسجل واحد فقط لذلك اخرجت نفسى من العمل مع التعاطى للبيانات من خلال الفورم

 

[ابو جودي]

فى هذا الكود 

x(0) = p1
x(1) = p2
x(2) = p3
x(3) = p4
x(4) = p5
x(5) = p6
x(6) = p7
x(7) = p8
x(8) = p9

Dim MyWher As String

Dim A As String
Dim x() As String
    
    A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
    x = Split(A, "|")
        
        'MyWher = x(0)
        'Debug.Print MyWher
        
       Select Case Nz(comType, "")
        Case Is = "": MyWher = ""
        Case Is = "click": MyWher = x(0)
        Case Is = "Engagement": MyWher = x(1)
        Case Is = "impressions": MyWher = x(2)
        Case Is = "IGTV": MyWher = x(3)
       End Select
       
        Dim Myx As String
        Myx = "2.5"
        TargetPlas.Value = MyWher * Myx

 

[Eng.Qassim]

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

انظر الى النموذج الاول

 

في النموذج الثاني .. حينما يتم اختيار مثلا Twitter and Click

تصبح قيمة TargetPlas (Target)= قيمة   txtcost  * قيمة ال twitter and clickالموجودة في النموذج الاول والتي قيمتها 5

18 دقائق مضت, ابو جودي said:

انا شايف ان القيم ثابته وسجل واحد فقط لذلك اخرجت نفسى من العمل مع التعاطى للبيانات من خلال الفورم

كلامك عين الصواب ولا اعرف لماذا يريد ان يأخذها من النموذج وليس من سجلات الجدول!!

تم تعديل يناير 19, 2022 بواسطه Eng.Qassim

[ابو جودي]

تمام الان جرب الكود الاتى يا باش مهندس @Eng.Qassim 

 

Dim A As String
Dim x() As String
    
    A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
    x = Split(A, "|")
        
        'MyWher = x(0)
        'Debug.Print MyWher
        
       Select Case Nz(comType, "")
        Case Is = "": MyWher = ""
        Case Is = "click": MyWher = x(0)
        Case Is = "Engagement": MyWher = x(1)
        Case Is = "impressions": MyWher = x(2)
        Case Is = "IGTV": MyWher = x(3)
       End Select
       
        TargetPlas.Value = MyWher * txtCost.Value

 

 

المرفق

ACC_2.accdb

[Eng.Qassim]

7 دقائق مضت, ابو جودي said:

تمام الان جرب الكود الاتى يا باش مهندس @Eng.Qassim 

ممتاز وشغال زي الفل

[ابو جودي]

شهادة اعتز بها جزاكم الله خيرا 

بس تعديل بسيط لو كان مربع السرد  comType  بلا قيم 

Dim MyWher  As String
Dim A       As String
Dim x()     As String
    
    A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
    x = Split(A, "|")
        
       Select Case Nz(comType, "")
        Case Is = "": MyWher = ""
        Case Is = "click": MyWher = x(0)
        Case Is = "Engagement": MyWher = x(1)
        Case Is = "impressions": MyWher = x(2)
        Case Is = "IGTV": MyWher = x(3)
       End Select
        
        If MyWher = "" Then TargetPlas.Value = "": Exit Sub
        TargetPlas.Value = MyWher * txtCost.Value