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

استاذي ابو خليل اشتركت بالموقع اللي اشرت اليه ولكن لم اعرف كيف اطبق ما هو مشروح من الاكواد في هذا الرابط http://www.kingsms.ws/pages/61/أصحاب-المواقع/

بالعكس استاذي هذا ارخص موقع الموقع اللي رسلته سعرهم 12 هلله وهذا 8.5 هلله فرق 3.5 هلله بالرساله

الف شكر لك اخي رمهان

الرساله عندهم 8.5 هلله

للرفع

الف شكر لك استاذي القدير ابو خليل انا انشغلت لذلك لم ارد عليك البارح فعذرني استاذي انا استخدمت هذا الكود ولا اعرف هل هو صح ام خطاء انا اشوفه يطلع في النتايج صح ولكن ما اعرف ليه يرودني الشك انه خطاء والف شكر على نصيحه عدم استخدام الارقام في تسميه الحقول Set rs = CurrentDb.OpenRecordset("SELECT Count(Data.goal) AS Countãägoal, Data.goal, Data.date, Data.[57], Data.notaslem " & vbCrLf & _ "FROM Data " & vbCrLf & _ "GROUP BY Data.goal, Data.date, Data.[57], Data.notaslem " & vbCrLf & _ "HAVING (((Data.date)>=#" & Format([Forms]![Search3]![snddate], "yyyy/mm/dd") & "#) AND ((Data.[57])=True) AND ((Data.notaslem)=True));")

جرب استخدام Me.Requery

للاسف استاذي لم تنفع التجميع لاني في جدول الفواتير في اكثر من فاتورة بنفس رقم العميل انا استخدمت طريقتك من قبل بعده شروط وهي هكذا ولكن ما اعانيه هو الرقم المكرر فقط Set rs = CurrentDb.OpenRecordset("SELECT * FROM data WHERE date >=#" & Format([Forms]![Search3]![snddate], "yyyy/mm/dd") & "# And notaslem = True And 57 = True")

استاذنا الجليل ابو خليل كيف نضيف للكود حذف الارقام المكررة Dim AllTel As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("end") With rs .MoveFirst While Not .EOF If Len(.Fields("رقم الجوال")) = 10 Then AllTel = AllTel & "," & "966" & Right(.Fields("رقم الجوال"), 9) End If .MoveNext Wend .Close End With AllTel = Right(AllTel, Len(AllTel) - 1) txt1 = AllTel txt1.SetFocus

ماكنت عارف انه بسبب التاريخ الهجري جربته فضبط

الحمد لله وجدت الحل وهو اني اجعل التاريخ انجليزي قبل تنفيذ الامر ثم ارجعه عربي بعد تنفيذ الامر هكذا Application.SetOption "Use Hijri Calendar", False قبل Application.SetOption "Use Hijri Calendar", True Me.Refresh بعد

التنسيق هكذا تاريخ yyyy/mm/dd

نعم اخي ابو عارف هو شغال بس لا يلتزم بمعيار التاريخ

للرفع

السلام عليكم اخواني اين الخطاء في هذا الكود Set rs = CurrentDb.OpenRecordset("SELECT Data.goal " & vbCrLf & _ "FROM Data " & vbCrLf & _ "WHERE (((Data.Date)>=#" & [Forms]![Search3]![snddate] & "#) AND ((Data.notaslem)=True) AND ((Data.[57])=True));")

الف شكر اخي Elsayed Bn Gemy والشكر موصول للاستاذ ابو خليل ابوخليل جزاكم الله الف خير نعم هو هذا المطلوب

اخواني مشرفي واعضاء المنتدى الكرام كيف اجعل عده حقول في حفل واحد او استعلام بمعنى لدي حفل رقم الجوال واريد جميع ارقام الجوال مع بعض بملف تكست مثلا هكذا 966502312861,966503400258,966504938472,966541597848,966544680158,966552348984,966556735700,966557708464,966559359996,966559359996,966563146998 اريد استخدمها في موقع لارسال الرسايل عملت هذا في الاستعلام بقيت في التطبيق بالاكست هذا في الاستعلام رقم الجوال: Left("966" & [goal];3) & Right([goal];9) & "," استخدمت هذا الكود استخدمت هذا الكود ولكن طلع كماهو موضح بالصورة الاسفل DoCmd.OutputTo acOutputQuery, "tabl3", "TEXT FILES(*.Txt)", CurrentProject.Path & "\DATA\PassPort" & "\" & C & ".txt", False

اتفضل Private Sub Command4_Click() If [Text1] = " mo" And [Text2] = "3122" Then DoCmd.OpenForm "لوجان" Else DoCmd.Quit End If End Sub اتفضل

اتفضل واتمنى يكون حسب طلبك 990.Employee 07 .rar

اتفضل if me.txt=555 then DoCmd.OpenForm "AC3 ", acNormal DoCmd.Close acForm, "كلمة السر" Else MsgBox " كلمه السر خطاء " Exit Sub end if اسم الخانه اللي تضع فيها الرقم me.txt

اتفضل نجربة بيان.rar

تستدعيها هنا Call ImportRelations(myfile) وهنا تسدعي حذف delRelTbl

راجع هذا

ليس هكذا شوف نموذج date04 للتدريب.accdb

بس لازم تحدد نموذج في تاريخ