Bluemind

اخوي محمد

جرب اطفاء جدار الحماية

ماخوذ من هذه المقاله

http://msdn.microsoft.com/en-us/library/ms175043.aspx

تفضل المثال بعد التعديل عليه

sample.rar

اخوي رامي

ضع الكود التالي في زر ادراج بعد اول سطرين

Forms!invoiceselling!InvoiceSellingSubform.Form.Recordset.MoveLast

DoCmd.OpenQuery "Query3"

Me.Refresh

Forms!invoiceselling!InvoiceSellingSubform.Form.Recordset.MoveLast

السلام عليكم ...

بصراحة ... لا ادري ماذا أقول لك ...

غير ... الله يجزيك كل خير .. ويغفر لك ولأهلك جميعا ...

ألف شكر :fff: :fff: :fff:

اللهم امين

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

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

ان كانت المشكله في عرض البيانات فهذا له حل

قم بارفاق المثال

تفضل اخي الكريم مثالك بعد التعديل علية

Database3.rar

ماهي رساله الخطاء؟؟؟

هل جربت هذا الكود ؟؟؟؟؟

عندما تعطي امر فتح التقرير بدون كلمة acviewpreview يقوم الاكسسز مباشرة بطباعة التقرير

جرب الكود ووافينا بالرد

السلام عليكم

هذا للطباعة فقط

DoCmd.OpenReport "report1", acViewNormal

تستطيع ان تضع اكثر من سطر لاكثر من تقرير

كلا الكودين تعمل على الطباعة

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

اما اذا كان بالنجليزي فانستخدم الفاصله

استخدم التعبير التالي في الاستعلام

TotalTime: Format(Int([total]/3600);"00") & ":" & Format(Int(([total]-(Int([total]/3600)*3600))/60);"00") & ":" & Format((([total] Mod 60));"00")

تستخدم القائمه المنسدله لعرض البيانات و الاختيار منها وليس للدخال مباشره بالكتابه فيها

تفضلي المرفق حسب فهمي للمطلوب

combo.rar

بارك الله فيك

تم دمج الموضوعين لتعم الفائده من المثال

الحمد الله رب العالمين

تمت الاجابه

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

SQLVariable.rar

ارفق قاعده البيانات

اذا عليك تعريف متغير عام او globle variable و استدعائه عن تشغيل البرنامج من نموذج البداء

قم بالتالي

انشاء module جديد وضع الكود التالي به

Option Compare Database


' Access global variables definition

Global Gbl_Username As String


Option Explicit

Public Sub Start_Globals()

    Gbl_Username = Environ("username")


End Sub

Option Compare Database

Option Explicit

Private Sub Form_Open(Cancel As Integer)

    DoCmd.Maximize

    Call start_Globals

End Sub

و ان انت تستخدم اكسس 2007

فهناك Tempvars معرف وجاهز

الاخ محمد

اعتقد ان الكود ناقص او انك لم تضع كامل الكود

من اي تاتي قيمه UName بالاساس؟؟ اي من اي كائن تاخذ القيمه؟؟

على العموم هذا مثال بسيط لتوضيح اسناد القيمه الى متغير وهو غير مجرب

Dim varValue As Variant

varValue = me.TextUserName

If not IsNull(varvalue) Then

DoCmd.RunSQL ("insert into logaction (username) values (varValue)")

الاخ الفاضل

تم التعديل

ولكن لم استطع ادخال البيانات وفهم اليه عمل البرنامج

لذلك قم بادخال بيانات

AAAA.zip

لقد تم فتح المثال عن طريق اكسس 2010

المثال لا يعمل على 2007

الاخ علي

يوجد مشكله في المرفق كما ذكر الاخ ابو ادم

اخوي هاني بارك الله فيك

يوجد ملف نصي مع البرنامج وحقوق الفكريه لهذا البرنامج تعود لشبكة البرامج العربية والمعربة

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

وهذا نص الملاحظه الموجود مع البرنامج

بسم الله الرحمن الرحيم

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

تم التحميل من شبكة البرامج العربية والمعربة

http://www.ar-tr.com

اول شبكة عربية تهتم بالبرامج العربية والمعربة وتجمعها في موقع واحد

للمراسلة

http://www.ar-tr.com/raslna.htm

اخوي بارك الله فيك

ماهو الهدف من ذلك؟؟ لعل توضيح ذلك يكون مفيد للاجابه

لان النماذج والتقارير تختلف من حيث الغرض و الاهداف المرجو منها

ماينطبق على النماذج لا ينطبق على التقارير في اغلب الاوقات

الف شكر ابو خليل على تعاونك

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

هل هي من قناع الادخال

يعني مربع رقم 2 ابيه ينحصر على حرف واحد فقط وبعد كتابته ينتقل التركيز مباشرة للمربع رقم 3

وشكرا

اخوي ابو اثير

هل جربت المرفق في مشاركه الاخ الفاضل ابو خليل؟؟

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

بالنسبه لسؤالك عن الحقل رقم 5 و تحديد عدد الخانات المدخله

قم بوضع الداله التاليه في Validation Rule في علامه التبويب data من خصائص مربع النص 5 و 6

Is Null OR Between 1000 And 9999

اخوي محمد

جرب هذا الكود

Dim dd As Variant

Application.VBE.ActiveVBProject.VBComponents.Import (CurrentProject.Path & "\mod1.bas")

DoCmd.Save acModule, "mod1"

If dd <> "" Then

MsgBox dd


Else

MsgBox "áã íÊã ÇáÚËæÑ Úáì ÇáæÍÏÉ ÇáäãØíÉ ÇáãÍÏÏÉ"

End If

حسب فهمي للموضوع

قيمه الحقل a مربوطه بالحقل c

و الحقل b مربوط بالحقل d

اذا كان يوجد عدد قليل من الشروط فايمكن عملها بواسطه كود

ولكن الاخ ابو اثير يتكلم عن 30 شرط وهذا كثير بالنسبه لكود

من وجهه نظري لابد من عمل جدولين للشروط

شاهد المرفق و اكمل البيانات في كلا الجدولين A و B

FR-to.rar