ناقل

الدوران عن طريق الجدول او الاستعلام افضل من النموذج .... والله اعلم

ابحث عن هذا With imsg With imsg .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = "ÔåÇÏÉ" .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With واستبدله بهذا ..... With imsg .BodyPart.Charset = "UTF-8" .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = "ÔåÇÏÉ" .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With تم اضافة هذا السطر .BodyPart.Charset = "UTF-8"

ادخل على حسابك من خلال الرابط التالي وفعل التطبيقات الاقل امانا ويعمل معك https://www.google.com/settings/security/lesssecureapps

ادخل على المكتبات وطبق الصورة ....

طيب غير الفانكشن الى عندك بهذا الكود .... On Error GoTo Error_Handler Dim MyFile As String Dim db As Database Dim sSQL As String Set db = CurrentDb() If Right(strPath, 1) <> "" Then strPath = strPath & "" If strFilter = "" Then strFilter = "*" MyFile = Dir$(strPath & "*." & strFilter) Do While MyFile <> "" myfile1 = Left([MyFile], InStrRev([MyFile], ".") - 1) sSQL = "INSERT INTO [BASIC_DATE] (crn) VALUES(""" & myfile1 & """)" db.Execute sSQL, dbFailOnError MyFile = Dir$ Loop Error_Handler_Exit: On Error Resume Next Set db = Nothing Exit Function Error_Handler: MsgBox "The following error has occured" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: ImportDirListing" & vbCrLf & _ "Error Description: " & Err.Description, vbCritical, _ "An Error has Occured!" Resume Error_Handler_Exit

هل هذا ماتريد ... ناقل.mdb

تفضل

تقضل .... WhatsApp2003.mdb

تفضل اخي العزيز .... بس رجاءا لا تكرهني .... ههههههه yyyyyyyyyy.accdb

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

يا اخي ايش اللفظ هذا ...

تفضل .....

ممكن ترفق لمثال للمشكلة لديك

هل تقصد هذه .....

تفضل المرفق ..... استعلام حركة البع والسداد.rar

طيب انت الان هجولتنا .... موضوعين حول نقطة واحدة .... هلا صبرت علينا حتى نفهم ما تريد ونستطيع الاجابة ......

هل تصوري للموضوع صحيح انظر الصورة ...

هل تريدها هكذا

استخدم هذا الكود للشق الاول من السؤال لاني اكتب من الجوال ضع هذا الكود في النموذج الرئيسي ... Private Sub Form_Current() Me.FRM_RMZ_X.Visible = Me.FRM_RMZ_X.Form.Recordset.RecordCount > 0 Me.Frm_TF.Visible = Me.FRM_TFX.Form.Recordset.RecordCount > 0 End Sub وقد تجد الاجابة للشق الثاني من الزملاء إن شاء الله تعالى ...

اعتقد الكود مقتطع من هنا للاستاذ رضا عقيل ...

اعتقد لديك مشكلة في التشفير وفك التشفير انظر المرفق ..... prog.accdb

المقياس المعتمد هو التويب و 1440 تويب يساوي واحد بوصة لذلك عندك 1440/100 = 0.69444444 والله الموفق ... مزيد من المعلومات هنا اضغط هنا

وعليكم السلام ورحمة الله لو استخدمت خاصية البحث في المنتدي هناك العديد من البرامج مثل التي تسأل عنها

تفضل .... ضع علامة على تاكيد ....

مشاركة مع الاستاذ الفاضل .... يمكن استخدام هذا الفانك وتستدعيه في الاستعلام Public Function delTshkeel(tshkeel As String) Dim i As Integer Dim fld As String, wr As String, spa As String wr = "" fld = tshkeel i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop delTshkeel = wr End Function وتسدعيه في الاستعلام هكذا .... expr1: delTshkeel([text1])