Shivan Kurdi - شڤان کوردی

قم بتحويل القاعدة الى صيغة Accde او Mde والسلام

اتفضل اليك وهذا واليك قائمة البحث عن الموضوعات شبيه https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=username

ابحث ابحث اسأل سؤال بالتوضيح مع عنوان توضيحي ارفق مثال مصغر اشرح مكان الخلل ستجد ما تريد بالردود ان شاء الله

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

اتفضل هل هذا ما تبحث عنه Private Sub Form_Load() Call GetPrinterList(cboDestination) DoCmd.SetWarnings False DoCmd.RunSQL "DELETE pirent.Number, pirent.printerName FROM pirent;" For i = 0 To Me.cboDestination.ListCount - 1 Me.cboDestination = Me.cboDestination.ItemData(i) DoCmd.RunSQL "INSERT INTO pirent ( [Number], printerName ) SELECT Nz(DMax(""[number]"",""Pirent""),0)+1 AS Expr1, [Forms]![Print]![cboDestination]" Next i DoCmd.SetWarnings True Me.cboDestination = Me.cboDestination.ItemData(0) End Sub اليك المرفق تحديد واختيار الطابعة الافتراضية - تغيير الطابعة الافتراضية.accdb

اضغط على السهم الاسود في اللي ظاهرة في المربع الاحمر وقم باختيار الخيار الاول (Run From My Computer) بالعربی احتمال ان یکون تشغيل من جهاز الكمبيوتر الخاص بي واضغط على زر متابعة

ما الفرق بين هذا الموضوع و هذا

اتفضل استخدمت هذه المجموعة Private Sub Form_Load() Me.Helbijartin = Null Me.Form.Repaint Me.Helbijartin.RowSource = "SELECT table1." & "[" & Me.Heqil & "]" & "FROM table1;" End Sub Private Sub Helbijartin_AfterUpdate() On Error Resume Next Me.Eded = DCount("*", "Table1", "[" & Me.Heqil & "]=" & Me.Helbijartin) Me.Eded = DCount("*", "Table1", "[" & Me.Heqil & "]='" & Me.Helbijartin & "'") End Sub Private Sub Heqil_AfterUpdate() Me.Helbijartin = Null Me.Eded = Null Me.Form.Repaint Me.Helbijartin.RowSource = "SELECT table1." & "[" & Me.Heqil & "]" & "FROM table1;" End Sub Private Sub RpleceAll_Click() If IsNull(Me.Heqil) = True Then MsgBox "اختر الحقل المراد استبدال فيه اولا" Me.Heqil.SetFocus ElseIf IsNull(Me.Helbijartin) = True Then MsgBox "قم باختيار الکلمة او الرقم المراد استبداله" Me.Helbijartin.SetFocus ElseIf IsNull(Me.GohorinBo) = True Then MsgBox "قم بكتابة كلمة او رقم الاستبدال به" Me.GohorinBo.SetFocus Else DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE table1 SET table1." & "[" & Me.Heqil & "]" & "= [Forms]![form]![GohorinBo] WHERE (((table1." & "[" & Me.Heqil & "]" & ")=[Forms]![form]![Helbijartin]))") DoCmd.SetWarnings True MsgBox "تم استبدال" & "(" & Me.Eded & ")" & "سجلات " & vbCrLf & vbCrLf & vbCrLf & _ " من " & " ( " & Me.Helbijartin & " ) " & " الى " & " ( " & Me.GohorinBo & " ) " & "بنجاح ", vbOKOnly + vbMsgBoxRtlReading, "تم" Me.Helbijartin = Null Me.GohorinBo = Null Me.Eded = Null Me.Form.Repaint End If End Sub واليك المرفق بعد تعديل test.accdb

وعليكم السلام ورحمة الله وبركاته نعم و هذا مختصر العمل اعمل 2 كومبوبوكس او مربع النص احد منها لكي نبحث عنه و الاخر لاستبدال واعمل مربع نصي اخر لكي يظهر لك عدد الكلمات الموجودة وسيتم استبدالها بواسطة دالة ديكوانت\

في الحقيقة لا اعرف وين كان المشكلة في النماذجك لكن انا عملت نماذج اخرى وعملت المطلوب عليها اتفضل مشكلة الجمع.rar

القي نظرتا الى هذا الموضوع

هناك وحدة نمطية بها فانكشن باسم Search وهذه هو كامل في وحدة نمطية Option Compare Database Public Sub AddToWhere(FieldValue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer) ' create criteria for WHERE clause. If FieldValue <> "" Then If ArgCount > 0 Then MyCriteria = MyCriteria & "and" End If MyCriteria = (MyCriteria & FieldName & " like " & Chr(39) & FieldValue & Chr(42) & Chr(39)) ArgCount = ArgCount + 1 End If End Sub Public Function Search() On Error Resume Next Dim MySQL As String Dim MyCriteria As String, MyRecordSource As String Dim ArgCount As Integer ArgCount = 0 MySQL = "select * from temp WHERE " MyCriteria = "" AddToWhere Forms![Search]![name1], "[Temp]![اسم الموظف] ", MyCriteria, ArgCount AddToWhere Forms![Search]![id], "[Temp]![رقم الموظف] ", MyCriteria, ArgCount MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2 DESC" Forms![Search]![f2].Form.RecordSource = MyRecordSource End Function وقمت بتغير السطر الثاني قبل الاخير وايطا سطر الرابع القبل الاخير قمت بتغير اسم name الى name1 لان انا غيرت اسم مربع البحث في النموذج البحث من name الى name1

اذا غير بهذا السطر MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2 DESC" ت1426.rar

ممكن تعطينا النتائج تريد ان يكون كل واحد منهم يساوي كم ؟

فقط غير هذا السطر في فانكشن MyRecordSource = MySQL & MyCriteria الى MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2" اما بالنسبة طلبك هذا كان من المفروض ان تعمل تقرير حسب حاجتك وكان علينا التعديلات لكن انا عملت لك تقرير واستخدمت هذا لفتح التقرير Private Sub Command16_Click() On Error GoTo Err_Command16_Click Dim stDocName As String stDocName = "Rep1" DoCmd.OpenReport stDocName, acPreview Exit_Command16_Click: Exit Sub Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub وفي التقرير استخدمت هذا الكود Private Sub Report_Open(Cancel As Integer) Me.RecordSource = Form_f2.RecordSource DoCmd.Maximize End Sub اليك المرفق ت1426.rar

الان تقدر تحذف زر في نموذج الفرعي الزر الاحمر يقوم بعمل زر النموذج الفرعي البرنامج.rar

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

ليس مثل برنامج وورد لكن تقريبا شبه ذلك عند الضغط سيحذف 5 حروف الاخيرة كل مرة وتقدر تتغير الرقم 5 الى اي رقم تريد اليك الكود Private Sub writing_KeyDown(KeyCode As Integer, Shift As Integer) Select Case True Case ((Shift = acCtrlMask) And (KeyCode = vbKeyZ)) KeyCode = 0 With writing .SelStart = Len(.Text) - 5 .SelLength = Len(.Text) DoCmd.RunCommand acCmdDelete End With End Select End Sub Database1.accdb

اليك هذا Private Sub writing_KeyDown(KeyCode As Integer, Shift As Integer) Select Case True Case ((Shift = acCtrlMask) And (KeyCode = vbKeyZ)) KeyCode = 0 End Select End Sub

السلام عليكم ورحمة الله عطل جهازي قبل كم يوم والبارحة باليل تم تصليحه ... واليوم انا عملت له تحديثات وفي العصر اقدرت ان افتح الموقع واليوم انا نزلت المرفق لكن بعد ما اشتغلت عليه لكن الحمد لله لانك وصلت للمطلوب لكن لماذا بطريقة مركبة ؟ ماذا تريد ان يعمل لك كل واحد منهم ؟

كم يتأخر عندك عندي يتأخر تقريبا ثانيتين فقط وهذا جيد حسب مواصفات الجهازي شوف الفيديو عند الضغط على open حتى فقتح النموذج يبدأ من ثانية 2 الى 4 2018-09-19_20-13-52.rar

تم الجواب على ها السؤال اليك الرابط

اتفضل اليك هذا عند تحميل النموذج get استخدم هذا الكود و لا تهتم بالاستعلام اي تقدر تحذف الاستعلام Private Sub Form_Load() If CurrentProject.AllForms("نموذج_التنقل").IsLoaded = True Then Me.RecordSource = "SELECT ged.num_modaf, ged.num_adarh, ged.num_ged, ged.n_t_m, ged.date_ged, ged.Year, ged.num_mudkrh, ged.mostfed, ged.sader, ged.[adarh-mrfua], ged.mony, ged.subject, ged.mrfgt, ged.moment, ged.date_out, ged.adarh_out, ged.halah, ged.moment2, ged.out FROM ged WHERE (((ged.num_ged)=[Forms]![نموذج_التنقل]![NavigationSubform].[Form]![y]) AND ((ged.n_t_m)=[Forms]![نموذج_التنقل]![NavigationSubform].[Form]![t]));" Else Me.RecordSource = "SELECT ged.num_modaf, ged.num_adarh, ged.num_ged, ged.n_t_m, ged.date_ged, ged.Year, ged.num_mudkrh, ged.mostfed, ged.sader, ged.[adarh-mrfua], ged.mony, ged.subject, ged.mrfgt, ged.moment, ged.date_out, ged.adarh_out, ged.halah, ged.moment2, ged.out FROM ged WHERE (((ged.num_ged)=[Forms]![ged]![y]) AND ((ged.n_t_m)=[Forms]![ged]![t]));" End If End Sub اليك المرفق عنصر التنقل.accdb

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

دائما انا استخدم هذه الطريقة Form_FormName بدل هذه الطريقة Forms!FormName لكن هناك شرط في طريقة اللي استخدمه وهو يجب ان يكون محرر فيجوال للفورم مفتوحة