ابو ياسين المشولي

D1.accdb كل الطرق تودي الى روما

اتفضل بطريقه الاخ kha9009lid بس عملتها في الاستعلام 55.accdb

مشاركة مع اخي كاسر D1.accdb

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

اتاكد من هذه انا متاكد مافي شي غير اللغه

اذا كان في الاستعلام جرب هذا IIf([AGA3]=null;[AGA1]) او هذا IIf([AGA3]="";[AGA1]) ويفضل ترفق مثال مصغر

حملت الملف ومافي اي مشكله المشكله من عندك من اعداد لغه وندوز

حملت الملف وما فهمت اي حاجه هههههههههه والمثل يقول فهم السوال نصف الاجابة

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

تسلم اخي جعفر انا استخدم هذا On Error GoTo MyErr ثم الكود MyErr: If Err.Number = 7847 Then MsgBox " الرساله ", vbInformation, " : عنوان الرساله " End If وهو ممتاز جدا يعرفك في الاخطاء وكما قلت في حجات استخدم اخفاء الاخطاء اللي نتعلم عنه

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

يمكنك استخدام هذا قبل الكود اذا كان الكود كما تقول On Error Resume Next Me![ImageFrame1].Picture = Me![Picture1] Me![ImageFrame2].Picture = Me![Picture2] Me![ImageFrame3].Picture = Me![Picture3] Me![ImageFrame4].Picture = Me![Picture4] End Sub

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

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

جرب هذا RepairType2: IIf([RepairType]=1;"صيانة";IIf([RepairType]=2;"برمجة";IIf([RepairType]=3;"صيانة وبرمجة")))

ان شاء الله يكون طلبك Expr1: IIf([Movement]="بيع" Or [Movement]="مرتجع بيع" Or [Movement]="هدية" Or [Movement]="تالف" Or [Movement]="مفقود";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & DLookUp("[CustomerNum]";"InvoiceHT";"[InvoiceNum]= '" & [InvoiceNum] & "'"));IIf([Movement]="شراء";DLookUp("[SupplierName]";"SuppliersT";"[SupplierID]= " & DLookUp("[SuppliersNum]";"InvoiceHT";"[InvoiceNum]= '" & [InvoiceNum] & "'"));IIf([Movement]="مرتجع شراء";DLookUp("[SupplierName]";"SuppliersT";"[SupplierID]= " & DLookUp("[SuppliersNum]";"InvoiceHT";"[InvoiceNum]= '" & [InvoiceNum] & "'"))))) Inv1.accdb

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

اتمنى يكون المطلوب Dim FirstDayInWeek, LastDayInWeek As Variant Dim dtmDate As Date dtmDate = Date FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 1 Me.weekfir = FirstDayInWeek LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 7 Me.weekend = LastDayInWeek FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) - 1 Me.txtV_DATE1 = FirstDayInWeek LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) - 14 Me.txtV_DATE2 = LastDayInWeek Me.firstdaymonth = DateSerial(Year(firstdaymonth), DatePart("m", Enddaymonth), 1) UMfirestWeekandlastweek.rar

اخي kaser906 لايوجد مرفق راجع هذا لعله يفي بالغرض بدايه الاسبوع

نعم هو نفس الكود ولكن كا ينقصه هذا المتغير Dim StrFileParh As String

جرب هذا exa 4.accdb

الاخ Io Emad انت من يقدر يحدد سعره لانك انت من صنعته بيدك وتقدر تقارنه بسعر ماهو مثله او شبيه له في بلدك وكما قال الاخ ابو خليل ليس سعر العرض كسعر الخاص اذا صممته لجه خاصه بيكون سعره مخصوص ومتفق عليه سابقا ام اذا كان معروض للجميع فسعرة ما يحدده السوق تحياتي

Dim StrFileParh As String 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" With Me.List1 ' فتح الملف بعد أخذ اسمه من قائمة التحرير والسرد Me.AcroPDF1.Object.LoadFile (StrFileParh & Trim(Str(.Column(0))) & ".PDF") ' الانتقال إلى الصفحة المطلوبة lngPageNo = CLng(Mid(.Column(2), 1, 3)) Me.AcroPDF1.setCurrentPage (lngPageNo) End With