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

[اأبو مصطفى]

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

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

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

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

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

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

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

1 ساعه مضت, اأبو مصطفى said:

default value

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

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

[اأبو مصطفى]

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

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

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

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

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

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

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

[اأبو مصطفى]

للرفع

[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

[اأبو مصطفى]

منذ ساعه, 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()

 

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

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

[Elsayed Bn Gemy]

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

[اأبو مصطفى]

منذ ساعه, 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()

 

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

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