Shivan Rekany

اتفضل اليك هذه الوحدة النمطية قم بعمل نسخ هذا الى وحدة نمطية Option Compare Database Option Explicit Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function UpdateLayeredWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Const ULW_COLORKEY = &H1 Private Const ULW_ALPHA = &H2 Private Const ULW_OPAQUE = &H4 Private Const WS_EX_LAYERED = &H80000 Public Function isTransparent(ByVal hwnd As Long) As Boolean On Error Resume Next Dim Msg As Long Msg = GetWindowLong(hwnd, GWL_EXSTYLE) If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then isTransparent = True Else isTransparent = False End If If Err Then isTransparent = False End If End Function Public Function MakeTransparent(ByVal hwnd As Long, Perc As Integer) As Long Dim Msg As Long On Error Resume Next If Perc < 0 Or Perc > 255 Then MakeTransparent = 1 Else Msg = GetWindowLong(hwnd, GWL_EXSTYLE) Msg = Msg Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA MakeTransparent = 0 End If If Err Then MakeTransparent = 2 End If End Function Public Function MakeOpaque(ByVal hwnd As Long) As Long Dim Msg As Long On Error Resume Next Msg = GetWindowLong(hwnd, GWL_EXSTYLE) Msg = Msg And Not WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hwnd, 0, 0, LWA_ALPHA MakeOpaque = 0 If Err Then MakeOpaque = 2 End If End Function وفي نموذج عند تحميل اكتب هذا Private Sub Form_Load() ' غير في الرقم Call MakeTransparent(Me.hwnd, 150) End Sub ولكي تتحكم بدرجة شفافية اكثر او اقل غير رقم 150 الى الاسفل او اعلى تحياتي

فقط غير "," بهذا ";"

استاذنا الوزير قام بالعمل المطلوب لكن لكي تعرف استخدام دالة If قمت بتعديل كودك السابق If Me.Option1.OptionValue = 1 Then DoCmd.OpenReport "Print Form buy", acViewPreview ElseIf Me.Option2.OptionValue = 2 then DoCmd.OpenReport "Print Form RF", acViewPreview ElseIf Me.Option3.OptionValue = 3 then DoCmd.OpenReport "Print Form PRO", acViewPreview End If

هذا هو الكود اللي تستخدمه Private Sub Command17_Click() On Error Resume Next On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String DoCmd.Close stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub غير مكان اغلاق النموذج اي غير الكود الى هذا Private Sub Command17_Click() On Error Resume Next On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576) DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, Me.Name Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub

اتفضل استخدم هذا Private Sub أمر28_Click() Dim RepName As String RepName = Me.frmsubSearch_sales.Form.Rjmfatwra DoCmd.OutputTo acOutputReport, "بحث في فواتير البيع", "TEXT FILES(*.Txt)", "E:\" & RepName & ".txt" End Sub سيحفظ كل تقرير باسم رقم الفاتورة Database1.accdb

اتفضل تحديث كامل الجدول.accdb

اليك هذا تحديث كامل الجدول.accdb

انتبه جيدا هل انا فهمت من قصدك بالضبط ام لا هل تريد مثلا لسجل اول اسمه حسن يبحث لهذا الاسم و بعدين يمسك باعلى تاريخ لهذا الاسم في الحقل dATE3 ويعطي هذا التاريخ للحقل DATE4 لهذا الاسم مثال : الاسم حسن .... التواريخ تابعه في حقل dATE3 هما 02/03/2000 و 01/11/2000 هل تريد ان يعطي التاريخ الاكبر وهو 01/11/2000 في الحقل DATE4 ؟ هذا صحيح ؟ وهذا لكل اسم

ما قصدك ؟ اخراج تقرير بالاسم ريبورت 1 هناك تقوم بتحديد نوعيته ( اكسل او وورد او تيكست او .... الخ ) وهنا مكان واسم للحفظ التقرير ريبورت1

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

في ذلك الاستعلام حضرتك بيقول قم بتحديث كافة السجلات الحقل DATE4 في جدول Table1 بـــــ هناك مهم جدي بأي شي قلت بـ DMin("[dATE3] ";"table1"; بأصغر قيمة للحقل dATE3 في جدول Table1 بشرط " [name11] ='" & [name11] & "'" الاسم في حقل الاسم بيكون يساوي الاسم " [name11] ='" & [name11] & "'" وايضا التاريخ في حقل داتا4 بيكون يساوي او اصغر من التاريخ داتا4 And "[date4] <#" & [date4] & "#") اي الاستعلام بيحضر لك اضغر قيمة ويعمل لك التحديث لان شروطك متواجدة لكن خاطئة ( يجب ان يكون هناك مثلا مربع نصي او كومبوبوكس للاسماء في النموذج وترتبط الشرط معه ) اذا انت تريد ان تقوم بتحديث السجلات حسب اسم المختارة في الكومبوبوكس او مكتوب في المربع النصي او ان تكتب التاريخ في المربع وتكتب فيه التاريخ اللي تريد لان الان عند تراوح بين السجلات البرامج يقوم بالبحث ما هو اصغر التاريخ يمسكه ويروح للسجل الاول هل الاسم بيكون يساوي بنفسه طبعا نعم وهل التاريخ في حقل داتا4 هو يساوي بنف التاريخ طبعا نعم لذلك يقوم بالتحديث ارجوا ان وصلت لك المفهوم لان انا ضعيف جدا باللغة العربية 🙂

افتح استعلام في وضع التصميم شوف الصفوف الاخيرين هما صفوف لكتابة الشروط فيه اذاً اعطيني اشرح لي شروطك اكثر لكي اعمل لك المطلوب باذن الله

قمت بفتح الجدول InvoiceTab في وضع التصميم والغيت مفتاح اساسي لكلا الحقلين الرقم الفاتورة والنوع الفاتورة وبعدين قمت بتغيير خاصية Indexed من Yes (No Duplicates) الى NO للحقل الرقم الفاتورة بعدين قمت بتحديد كلا الحقلين المذكورة وعملت كمفتاح اساسي

بعد ما وضحت لي بالضبط لكن حسب فهمي اليك هذا بشرطين Private Sub Command18_Click() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.DATE4 = DMin(""[dATE3]"",""table1"","" [name11] ='"" & [name11] & ""'"" And ""[date4] <#"" & [date4] & ""#"");" DoCmd.SetWarnings True Me.Requery End Sub وهذا بشرط واحد Private Sub Command19_Click() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.DATE4 = DMin(""[DATE3]"",""[Table1]"","" [name11]='"" & [name11] & ""'"");" DoCmd.SetWarnings True Me.Requery End Sub تحديث كامل الجدول.accdb

السبب يرجع لان رقم الفاتورة في جدول InvoiceTab لا يجوز التكرار في حين ان كلا من فاتورة الشراء والبيع يتم الحفظ في ذلك الجدول حضرتك عملت فاتورة واحدة بالرقم 1 والان جئت لكي تعمل فاترة الشراء برقم 1 ولكن لان لا يمكن التكرار الرقم لا يقدر ان تحفظه او تروح لسجل جديد والان انا تغيرت الوضعية واتفضل استمر في الشغل فاتورة المشتريات.rar

ممكن تشرح لنا المطلوب بالتفصيل اي تريد ان يتم تحديث اي حقل وبأي بيانات و بأي شروط

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

هل قصدك بصيغة تيكست فايل اذا نعم اليك هذا DoCmd.OutputTo acOutputReport, "Report1", "TEXT FILES(*.Txt)", "E:\DDD.txt"

حسب فھمی للموچوع وحسب رأيي ابتعد عن هذه الطريقة لان السعر راح يختلف كل مدة اذا تستخدم هذه الطريقة و بعدين صار تغيير في السعر اي سيتم التغيير في الباركود وهذا لا يجوز والله يعلم

اتفضل اليك الكود Private Sub أمر0_Click() Dim sql As String sql = "INSERT INTO tndim ( Rjmfatwra, NoEmp, Atarih, Aljmali, Alhasm, Asafi, Alban )" & _ "SELECT AfwtIar.Rjmfatwra, AfwtIar.NoEmp, AfwtIar.Atarih, AfwtIar.Aljmali, AfwtIar.Alhasm, AfwtIar.Asafi, AfwtIar.Alban FROM AfwtIar " & _ "WHERE (((AfwtIar.Rjmfatwra)=[Forms]![form_1]![Rjmfatwra]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub الحاق بكود.accdb

1 (1).accdb

اتفضل تم استخدام هذا الكود مع استعلامين استعلام الحاق والثاني استعلام حذف Private Sub ÃãÑ7_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "Q21", acViewNormal DoCmd.OpenQuery "Q21del", acViewNormal DoCmd.SetWarnings True DoCmd.Requery End Sub الحاق سجل1.rar

شكرا استاذنا الحبيب تم التجربة والحمد لله كل شيء مضبوط جزاك الله كل خير

اليك مشاركة للاستاذ جعفر بالصور كما قال استاذنا ابو خليل https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&amp;comment=423014