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

ارفق مثال

اتفضل On Error Resume Next DoCmd.SetWarnings False LoadKeyboardLayout "00000401", 1 retry: TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه") If TempVars!xv = "" Then If MsgBox(" يـجـب ادخـال رقـم الـتـلـفـون ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else TempVars.Add "mv", InputBox(Space(5) & " ادخـل الـمـعـدل ", Space(5) & " تنبيه") If TempVars!mv = "" Then If MsgBox(" يـجـب ادخـال الـمـعـدل ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10) End If End If DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class,Degree ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.class, [TempVars]![mv] AS Expr2 " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));" DoCmd.SetWarnings True Me.Text0 = "" End Sub

بالتوفيق اخي النهر العطشان

اتفضل هذا حسب طلبك Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer On Error GoTo ErrorHandler If IsNull(Me.txtImportFile) Then MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation, "تبيه" DoCmd.CancelEvent Me.txtImportFile.SetFocus Else Set dbOther = OpenDatabase(txtImportFile) Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset) Set dbCurrent = CurrentDb Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset) If rs1.EOF Then Exit Sub intI = 1 rs1.MoveFirst Do While Not rs1.EOF With rs2 .AddNew !Name = rs1![Name] !Id = rs1![Id] !tel = rs1![tel] !country = rs1![country] .Update rs1.MoveNext intI = intI + 1 End With Loop MsgBox (" تم نقل " & intI - 1 & " سجل "), vbInformation, "تبيه" MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation, "تبيه" End If rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing Exit Sub ErrorHandler: ' MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

شوف هذا Microsoft Access قاعدة بيانات جديد (1).accdb

اتفضل هذا لتقرير DoCmd.OpenReport "rep", acViewPreview

اعمل في معيار الالحاق هذا Not In (SELECT master.catcod FROM master)

اتفضل اتمنى يكون كما طلبت Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer On Error GoTo ErrorHandler If IsNull(Me.txtImportFile) Then MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation DoCmd.CancelEvent Me.txtImportFile.SetFocus Else Set dbOther = OpenDatabase(txtImportFile) Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset) Set dbCurrent = CurrentDb Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset) If rs1.EOF Then Exit Sub intI = 1 rs1.MoveFirst Do While Not rs1.EOF With rs2 .AddNew !Name = rs1![Name] !Id = rs1![Id] !tel = rs1![tel] !country = rs1![country] .Update rs1.MoveNext intI = intI + 1 End With Loop MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation End If rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

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

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

ايش هو الاكسس اللي عندك انا اكسس 2010 شوف الفيديو bandicam 2018-10-15 21-14-38-432.rar

بالتوفيق اخي ابو زاهر

كل شي بالممارسه والخبرة ان لم تغلط لن تتعلم ولكن لازم تستفيد من الاخطاء تحياتي

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

مشكلتك اخي انك تقع بنفس الاخطاء تريد تبحث عن شي وهو اسمه غير الشرط اتفضل On Error Resume Next Dim aboyaseen As String Dim farFilter As Variant farFilter = Null If Not IsNull(Me.n1) Then farFilter = "[Expr6] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If If Not IsNull(Me.k1) Then farFilter = (farFilter + " AND ") & "[Stype] LIKE '*" & [Forms]![Sersh_F]![k1] & "*'" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If ' كود البحث بين تاريخين If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then aboyaseen = (farFilter + " AND ") & "[Sdate] Between [Forms]![Sersh_F]![Date1] And [Forms]![Sersh_F]![Date2]" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If With Me.SershExpense_Sub.Form If Not IsNull(farFilter) Then .DataEntry = False .Filter = farFilter .FilterOn = True Else .FilterOn = False End If .Requery End With بدل Mostvid غيرتها الى Expr6 وبامكانك تغير Expr6 الى Mostvid

Database25.accdb

وهو كذلك

اخي Khalf انا جربت هذا الكود عملته بداله ثم استدعيته عند الفتح وهو شغال Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll" .AddFromFile "C:\Program Files\Microsoft Office\Office\msacc9.olb" .AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll" .AddFromFile "C:\Program Files\Common Files\System\ado\msado25.tlb" .AddFromFile "C:\Program Files\Common Files\System\ado\msadox.dll" .AddFromFile "C:\WINNT\System32\stdole2.tlb" .AddFromFile "C:\WINNT\System32\scrrun.dll" .AddFromFile "C:\windows\syswow64\scrrun.dll" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function

فلا يوجد امل

امين يارب ولك بالمثل بارك الله فيك اخي qathi

اولا الله يسامحك انك تجيب تسميات غير موجود في الجدول المطلوب اتفضل شوف التعديل Expr6: IIf([Stype]="سند صرف موظف";DLookUp("[EmployeeName]";"Employee_T";"[EmID]= " & [EmployeeID] & " ");IIf([Stype]="سند صرف عميل";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & [CustomersID] & " ");IIf([Stype]="سند صرف المصروفات";DLookUp("[ExpenseName]";"ExpenseName";"[ExpenseID]= " & [ExpenseID] & " ");IIf([Stype]="سند صرف مورد";DLookUp("[SupplierName]";"SuppliersT";"[SupplierID]= " & [SuppliersID] & " ")))))

بارك الله في الجميع اخي kanory

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

عند ضغط على ملف بتلاقي حفظ قاعده البينات الحاليه وحفظ باسم وتحت بتلاقي حفظ & نشر تختار حفظ & نشر فتختار 2007 او 2003 اللي هي =mdb