محمد القدسي

نفس الخطأ استاذي @د.كاف يار يظهر الخطأ حتة عند وضع كومتين "" بدون مسافات بينهم

up

استاذي ابو عبد الله ظهر عندي هذا الخطأ

غريب انا بمجرد اضغط مفتاح كيبورد يظهر الخطأ

عندي بمجرد الضغط على اي زر كيبور تظهر هذه الرسالة

ظهر هذا الخطأ الذي باللون الاحمر strFilter = strFilter & " or " & FieldName & " Like '" & SearchText & "'" Next i Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(1)) FieldName = "[" & Cntl.ControlSource & "]" Rst.Filter = FieldName & " Like '" & SearchText & "'" & strFilter Set Rst = Rst.OpenRecordset

وعليكم السلام استاذي @husamwahab على تجاوبك ولاكن استاذي جربت المرفق وعند الكتابة للبحث لا تتم اي عملية للبحث نهائيا وكأن الكود غير موجود

up

up

up

up

up

up

up

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

up

up up

up up

السلام عليكم اساتذتي الافاضل ارجو منكم التعديل على كود البحث في النموذج الرئيسي frmSearch في حقل txtSearchText ليبحث في جميع الحقول في النموذج الفرعي frmSearch_Sub ولم جزيل الشكر Search&Sort.rar

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

السلام عليكم اساتذتي الكرام عند تشغل هذا الكود الخاص بضغط قاعدة البيانات فانه تظهر شاشة ال WinRAR Shell "C:\Program Files\WinRAR\WinRAR.exe a -hp1 D:\bb\abolllll69.rar D:\bb\aboosama.accdb" والمطلوب هل بالامكان عند تشغيل الكود اخفاء شاشة الWinRAR التي تظهر عند ضغط اي ملف

الحمدلله توصلت للحل بحيث يكون الاستعلام بهذا الشكل Set rs2 = CurrentDb.OpenRecordset("SELECT nik_N_estelamerasael.noAccIDcash, nik_N_estelamerasael.idnoalohad , nik_N_estelamerasael.id_offic," _ & " nik_N_estelamerasael.cod_num_taslsol, nik_N_estelamerasael.nopolesa, nik_N_estelamerasael.namostalem, nik_N_estelamerasael.phomostalem," _ & " nik_N_estelamerasael.nammorsel, nik_N_estelamerasael.phomorsel," _ & " nik_N_estelamerasael.date_input," _ & " nik_N_estelamerasael.total" _ & " nik_N_estelamerasael.namtadelrasael," _ & " nik_N_estelamerasael.from_where," _ & " nik_N_estelamerasael.albyan," _ & " nik_N_estelamerasael.monydriver1," _ & " nik_N_estelamerasael.to_fragat, nik_N_estelamerasael.mony_kadasi_ersal," _ & " nik_N_estelamerasael.chang_color, import_N_MoneyMoves1.albyan," _ & " nik_N_estelamerasael.nopolesa, nik_N_estelamerasael.omolapolesa, nik_N_estelamerasael.nopolesaohad," _ & " nik_N_estelamerasael.dd1," _ & " FROM nik_N_estelamerasael" _ & " WHERE ((nik_N_estelamerasael.nopolesa) > 0)" _ & " AND ((nik_N_estelamerasael.name_open_shasha)= """ & [Forms]![ersal_estlam]![ersal_estlam1]![name_shasha].Value & """)" _ & " AND ((nik_N_estelamerasael.id_date_estelame)= #" & [Forms]![ersal_estlam]![ersal_estlam1]![id_date_time].Value & "#)" _ & " ORDER BY nik_N_estelamerasael.nopolesa;", dbOpenDynaset) والبحث عن الموضع كان في هذا الموقع https://stackoverflow.com/search?page=2&tab=Relevance&q=error 3061 فلله الحمد والمنة واشكر اساتذتي الكرام على ما يقومون به من خدمة وتعليم اخوانهم فجزاهم الله عنا خير الجزاء

هذا خطا عند النسخ وهو هكذا rs1!coderesala1 = (CurrentDb.OpenRecordset("select Max([coderesala1]) from N_estelamerasael in '" & [Forms]![started]![All_save_delet]![txt2Path] & " ' ")(0)) + 1 وهذا للتوضيح اخواني فهل من حل

السلام عليكم اخواني واساتذتي الافاضل عند تنفيذ هذا الكود للتصدير لجدول قاعدة خارجية تظهر رسالة بالخطأ رقم 3061 ( معلمات قليلة جدا المتوقع هو 2 ) Sub exporttablefromto() ' تصدير بيانات الى جدول خارجي مع رقم تسلسلي Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer Dim strSQL As String Dim intMax As Integer On Error GoTo ErrorHandler Set dbOther = OpenDatabase([Forms]![started]![All_save_delet]![txt2Path]) Set rs1 = dbOther.OpenRecordset("N_estelamerasael", dbOpenDynaset) Set dbCurrent = CurrentDb strSQL = "SELECT nik_N_estelamerasael.noAccIDcash, nik_N_estelamerasael.idnoalohad , nik_N_estelamerasael.id_offic " & vbCrLf & _ ", nik_N_estelamerasael.cod_num_taslsol, nik_N_estelamerasael.nopolesa, nik_N_estelamerasael.namostalem, nik_N_estelamerasael.phomostalem " & vbCrLf & _ ", nik_N_estelamerasael.nammorsel, nik_N_estelamerasael.phomorsel " & vbCrLf & _ ",nik_N_estelamerasael.date_input " & vbCrLf & _ ", nik_N_estelamerasael.total,import_N_MoneyMoves1.codhesam1 " & vbCrLf & _ ", nik_N_estelamerasael.namtadelrasael " & vbCrLf & _ ", nik_N_estelamerasael.from_where " & vbCrLf & _ ", nik_N_estelamerasael.albyan " & vbCrLf & _ ", nik_N_estelamerasael.monydriver1 " & vbCrLf & _ ", nik_N_estelamerasael.to_fragat, nik_N_estelamerasael.mony_kadasi_ersal " & vbCrLf & _ ", nik_N_estelamerasael.chang_color, import_N_MoneyMoves1.albyan " & vbCrLf & _ ", nik_N_estelamerasael.nopolesa, nik_N_estelamerasael.omolapolesa, nik_N_estelamerasael.nopolesaohad " & vbCrLf & _ ", nik_N_estelamerasael.dd1 " & vbCrLf & _ "FROM nik_N_estelamerasael " & vbCrLf & _ "WHERE (((nik_N_estelamerasael.nopolesa)>0) AND ((nik_N_estelamerasael.addrasael)>0) AND ((nik_N_estelamerasael.no_tadel_delet)=Yes) AND ((nik_N_estelamerasael.name_open_shasha)=[Forms]![ersal_estlam]![name_open_shasha]) AND ((nik_N_estelamerasael.id_date_estelame)=[Forms]![ersal_estlam]![id_date_time])) " & vbCrLf & _ "ORDER BY nik_N_estelamerasael.nopolesa " & vbCrLf & _ "WITH OWNERACCESS OPTION;" Set rs2 = CurrentDb.OpenRecordset(strSQL) rs2.MoveLast: rs2.MoveFirst RC = rs2.RecordCount For i = 1 To RC rs1.AddNew rs1!coderesala1 = (CurrentDb.OpenRecordset("select Max([coderesala1]) from N_estelamerasael in '" & [Forms]![الاستقبال]![All_save_delet]![txt2Path] & " ' ")(0)) + 1 rs1!noAccIDcash = rs2!noAccIDcash rs1!idnoalohad = rs2!idnoalohad rs1!id_offic = rs2!id_offic rs1!AccID = Me.AccID rs1!ArAccDes = Me.ArAccDes rs1!AccID1 = Me.AccID rs1!ArAccDes1 = Me.ArAccDes rs1!no_record = 0 rs1!no_resala = rs2![nopolesa] rs1!no_taslsol_estelame = rs2!cod_num_taslsol rs1!namostalem = rs2!namostalem rs1!phomostalem = rs2!phomostalem rs1!nammorsel = rs2!nammorsel rs1!phomorsel = rs2!phomorsel rs1!typeresala = "0" rs1!noterasael = Me.typefatora rs1!usernam = Me.sss rs1!date_input = rs2!date_input rs1!total = rs2!total rs1!codhesab = Me.codhesam1 rs1!namtadelrasael = rs2!namtadelrasael rs1!no_estelam = Me.ID rs1!addrasael = 1 rs1!years = Me.years rs1!tarheel = -1 rs1!fatoratasleme = Me.typefatora rs1!no_safha = Me.no_safha rs1!from_where = rs2!from_where rs1!no_sanad = 0 rs1!albyan = rs2!albyan rs1!monydriver = -1 rs1!codhesab1 = Me.codhesam1 rs1!to_fragat = rs2!to_fragat rs1!mony_kadasi_ersal = rs2!mony_kadasi_ersal rs1!chang_color = Me.name_shasha rs1!rabtkaeda_close = rs2!albyan rs1!typ_estelam_ersal = -1 rs1!nopolesa = rs2![nopolesa] rs1!coderes_tahdeth = 0 rs1!omolapolesa = rs2!omolapolesa rs1!nopolesaohad = rs2!nopolesaohad rs1!dd1 = rs2!dd1 rs1!dd2 = 0 rs1!dd3 = 0 rs1.Update rs2.MoveNext Next i MsgBox "Done", vbInformation, "تبيه" rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub فما هو الحل اخواني بارك الله فيكم وفي علمكم

اشكرك استاذي جمال اشتغل الكود بنجاح