كيفية نقل قيمة default value من فاتورة الى فاتورة جديدة

[اأبو مصطفى]

السلام عليكم اخواني الاعزاء

لدي برنامج فواتير مبيعات عند الدخول الى شاشة fbillcr   اي  انني وضعت رقم الحساب وليكن 14 في default value في خصائص حقل رقم الحساب اي في تبويب data وعند الضغط على زر جديد لاضافة  فاتورة مبيعات جديدة اريد ان يظهر رقم الحساب الذي وضعته في ال default value في الفاتورة الجديدة اي ان يظهر اوتوماتيكيا ً مثلما يظهر رقم التاريخ اوتوماتيكيا عند اضافة فاتورة جديدة مع الشكرالجزيل

https://www.mediafire.com/?31e1zwxkconjeu0

تم تعديل مايو 20, 2016 بواسطه اأبو مصطفى

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

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

يبدو أننا سنعيد الكرة مرة أخرى أيضا 

  في 20‏/5‏/2016 at 20:37, اأبو مصطفى said:

default value

Expand  

جرب أن تصنع مثلما صنعت بالتاريخ 

ولكن ألا يجب أن يكون رقم الفاتورة متغير أى كل فاتورة لها رقم جديد فما الفائدة من تثبيت قيمة بال default value  اذا ؟ 

[اأبو مصطفى]

  في 20‏/5‏/2016 at 22:23, أبو عبدالله الحلوانى said:

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

يبدو أننا سنعيد الكرة مرة أخرى أيضا 

جرب أن تصنع مثلما صنعت بالتاريخ 

ولكن ألا يجب أن يكون رقم الفاتورة متغير أى كل فاتورة لها رقم جديد فما الفائدة من تثبيت قيمة بال default value  اذا ؟ 

Expand  

السلام عليكم اخي العزيز ابو عبد الله

اشكر اهتمامك بمشكلتي جربت مثلما فعلت في حقل التاريخ ولكن يظهر لي خطأ في حقل رقم الحساب الفكرة التي اقولها يا اخي العزيز عندما يقوم مستخدم الحاسبة بوضع رقم الحساب في اول فاتورة اريده عندما يدخل فاتورة جديدة مثلا ً ان لايكتب مرة اخرى رقم الحساب الذي ادخله اول مرة حيث ان رقم الحساب هذا هو اعتبره الحساب الذي يتجمع فيه كل مبالغ المبيعات في حالة فواتيرالمبيعات ومبالغ المشتريات في حالة فواتير المشتريات وهكذا ارجو المساعدة مع الشكرالجزيل

[اأبو مصطفى]

للرفع

[Elsayed Bn Gemy]

اخى الكريم

اضف هذه الوحدة النمطية

Public Function defaultvalue () As String

Dim strdefaultvalue As Integer
    strdefaultvalue = [Forms]![fbillcr]![acc_code]
        defaultvalue = strdefaultvalue
End Function

 

وفى ز ر فاتورة جديدة

اضف هذا الكود

Me.acc_code = defaultvalue()

 

تم تعديل مايو 21, 2016 بواسطه Elsayed Bn Gemy

[اأبو مصطفى]

  في 21‏/5‏/2016 at 08:58, Elsayed Bn Gemy said:

اخى الكريم

اضف هذه الوحدة النمطية

Public Function defaultvalue () As String

Dim strdefaultvalue As Integer
    strdefaultvalue = [Forms]![fbillcr]![acc_code]
        defaultvalue = strdefaultvalue
End Function

 

وفى ز ر فاتورة جديدة

اضف هذا الكود

Me.acc_code = defaultvalue()

 

Expand  

السلام عليكم اخي العزيز

اشكر اهتمامك بمشكلتي قمت باضافة الوحدة النمطية وقمت باستدعائها باضافة الكود الى زر فاتورة جديدة ولكن ظهرت لي قطعة باللغة الانكليزية invalide use of null فما هو السبب ؟؟؟؟

[Elsayed Bn Gemy]

الرسالة تخبرك بان مربع النص الذى تريد استداعء القيمة منه فارغ ؟؟

[اأبو مصطفى]

  في 21‏/5‏/2016 at 08:58, Elsayed Bn Gemy said:

اخى الكريم

اضف هذه الوحدة النمطية

Public Function defaultvalue () As String

Dim strdefaultvalue As Integer
    strdefaultvalue = [Forms]![fbillcr]![acc_code]
        defaultvalue = strdefaultvalue
End Function

 

وفى ز ر فاتورة جديدة

اضف هذا الكود

Me.acc_code = defaultvalue()

 

Expand  

السلام عليكم اخي العزيز

لقد حلت المشكلة اذ انني قمت باستدعاء الدالة في زر فاتورة جديدة وفي الدالة showdata1() بارك الله فيك يا اخي العزيز وحفظك الله واطال الله في عمرك مع الشكرالجزيل