نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته يمكن استخدام النص كمصفوفة واستخدام دالة Split وتقسيم النص كالتالي If Not IsNull(Me.txtQR) Then Dim X As String Dim Y() As String X = Me.txtQR Y = Split(X) Me.txtFrisnam = Y(0) Me.txtlastname = Y(1) Me.txtOBD = Y(2) Me.txtID = Y(3) End If انظر المثال المرفق db3.rar تحياتي

اخي الكريم فتحت ملفك اكثر من مرة ولكن لم افهم طلبك اظن ينقصك المزيد من التوضيح حاول شرح ما تريد بلغة الاكسيل مثلا: اريد ترحيل البيانات بناء على كذا في تيكست بوكس كذا او خلية كذا في الشيت كذا حاول ادخال بيانات يدويا في الفورم كما تتصورها وارفع صورة لذلك. ونفس الشيء للشيت الهدف

تفضل هذا التعديل: If Not IsNull(Me.txtQR) Then Dim X As String Dim Y() As String X = Me.txtQR Y = Split(X, vbcrlf) Me.txtFrisnam = trim(mid(Y(0),instr(Y(0),":")+1)) Me.txtlastname = trim(mid(Y(1),instr(Y(1),":")+1)) Me.txtOBD = trim(mid(Y(2),instr(Y(2),":")+1)) Me.txtID = trim(mid(Y(3),instr(Y(3),":")+1)) End If . اما الشطر الثاني ، فرجاء عمل سؤال خاص به ، ورجاء وضع مثال او اي شيء آخر ، وصورة منه ، حتى نعرف كيف تم عمل الباركود 🙂 جعفر

الآن الموضوع اصبح واضح 🙂 الطريقة التي تجي على بالي: في الجدول تعمل حقل نص اسمه col_width ، لعرض الاعمدة ، ويكون فيه الادخال هكذا: Col_width 4cm;4cm;4cm;3cm;3cm 3cm;3cm;3cm;3cm;3cm;3cm;3cm 4cm;4cm;4cm;3cm;3cm 3cm;3cm;3cm;3cm;3cm;3cm;3cm 3cm;3cm;3cm;3cm;3cm;3cm;3cm;3cm بحيث كل نكتب عرض كل عمود ، وحسب ترتيبهم ، وبعدها تغير فيهم الى ان تصل الى الرقم الصحيح ، وفي النموذج ، في حقل اختيار التصنيف MyTabols ، تضيف هذا العمود اليه : . . وفي دالة myData ، نضيف السطر الاخير التالي: Me.SmartList.RowSource = MyTb Me.SmartList.ColumnCount = rs.Fields.Count Me.SmartList.ColumnWidths = Me.MyTabols.Column(2) . والنتيجة . قراءة الارقام من الجدول تكون اليسار الى اليمين ، ولكن تطبيقها على الاعمدة يعتمد على اعدادت طريقة القراءة لمربع القائمة : جعفر 1390.nabil2322.accdb.zip

ممكن نحجز متغير Dim x As Byte نجعل المتغير يعد السجلات بمعيار رقم الكود x = DCount("*", "part", "[cpart]=[aa]") نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If يكون الكود كاملا بالشكل التالي Dim x As Byte x = DCount("*", "part", "[cpart]=[aa]") If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If مرفق الملف بعد التعديل dlook.accdb

تفضل التعديل بيانات.zip

بداية يجب إرجاع الفضل لإهله الاستاذ / سليم حاصبيا - الاستاذ ابراهيم الحداد فى مساعدتهم الدائمة وخاصة فى اعداد هذا البرنامج والذى اتمنى ان يحوز رضاكم كتلميذ من تلامذة المنتدى أمنيتى تعريفى بعيوبه من جانب اساتذتى واسم المستخدم/ محمد فتحى / وكلمة المرور 1970 ومحرر الاكواد / 6101970 1562309003_.rar

اتفضل التعديل يابو الحسن DATA14.zip

تفضل هذا المثال مثال.accdb

اكتب الكود بالصيغة هذه مع بعض التعديلات Private Sub iPage_BeforeUpdate(Cancel As Integer) If DCount("iPage_Name", "tbl_Pages", "[iPage_Name]='" & Me.ipage_ID & "'") > 0 Then MsgBox " اسم الحساب مكرر" Cancel = True End If End Sub

ماشاء الله لا قوة الا بالله فكرة ابداعية خارج الصندوق

تفضل التعديل و لا تنسى تضيف رقم الحساب و المفتاح Function SendSMS(fromNumber As String, toNumber As String, body As String) Dim SmsUrl, ACCOUNTSID, AUTHTOKEN As String ACCOUNTSID = "ACCOUNT SID" ' ضع هنا رقم الحساب AUTHTOKEN = "AUTH TOKEN" ' ضه ضع هنا مفتاح الحساب On Error GoTo Error_Handler SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & ACCOUNTSID & "/SMS/Messages" Dim http As MSXML2.XMLHTTP60 Set http = New MSXML2.XMLHTTP60 http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" Dim postData As String postData = "From=" & fromNumber _ & "&To=" & toNumber _ & "&Body=" & body http.send postData Debug.Print http.responseText If http.status = 201 Then ElseIf http.status = 400 Then MsgBox "Failed with error# " & _ http.status & _ " " & http.statusText & vbCrLf & vbCrLf ElseIf http.status = 401 Then MsgBox "Failed with error# " & http.status & _ " " & http.statusText & vbCrLf & vbCrLf Else MsgBox "Failed with error# " & http.status & _ " " & http.statusText End If Exit_Procedure: On Error Resume Next Set http = Nothing Exit Function Error_Handler: Select Case Err.Number Case NOINTERNETAVAILABLE MsgBox "Connection to the internet cannot be made or " & _ "Twilio website address is wrong" Case Else MsgBox "Error: " & Err.Number & "; Description: " & Err.Description Resume Exit_Procedure Resume End Select End Function ODB_Database.zip

استدراك حتى لا نحصل على رسالة خطأ اذا كان عدد السجلات كبير نستبدل 👇 Dim x As Byte بـ Dim x As Long او Dim x As Integer Byte = 0 to 255 Integer = -32,768 to 32.767 Long = -2,147,483,648 to +2,147,483,647 والله الموفق

نفضل طبقتها على زرين وانت طبيق الباقي مثال19.rar

فقط قم بإضافة هذه المكتبة و سيعمل مع الكود

قد تستفيد من هذا الكود Dim db As Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM [table name] where [Order number]='"+ [TextForOrder number] +"'") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) 'احضار البيانات [text1]=rs.Fields(0) ' or rs.Fields("Column name") [text2]=rs.Fields(1) [text3]=rs.Fields(2) [text4]=rs.Fields(3) rs.MoveNext Wend End If rs.Close Set rs = Nothing

نعم تستطيع اولاً / اشترك في خدمة الرسائل و انصح بهذه الشركة حيث انها تمنحك مبلغ 15 دولار كهدية للاشتراك رابط شركة twilio ثانيا / استخدم API الخدمة سأضعه ضمن الكود https://api.twilio.com ثالثا / انشئ Module و الصق الشيفرة التالية فيه Function SendSMS(fromNumber As String, toNumber As String, body As String) Dim SmsUrl As String On Error GoTo Error_Handler SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & "Accounts_Her" & "/SMS/Messages" Dim http As MSXML2.XMLHTTP60 Set http = New MSXML2.XMLHTTP60 http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" Dim postData As String postData = "From=" & fromNumber _ & "&To=" & toNumber _ & "&Body=" & body http.send postData Debug.Print http.responseText If http.status = 201 Then ElseIf http.status = 400 Then MsgBox "Failed with error# " & _ http.status & _ " " & http.statusText & vbCrLf & vbCrLf ElseIf http.status = 401 Then MsgBox "Failed with error# " & http.status & _ " " & http.statusText & vbCrLf & vbCrLf Else MsgBox "Failed with error# " & http.status & _ " " & http.statusText End If Exit_Procedure: On Error Resume Next Set http = Nothing Exit Function Error_Handler: Select Case Err.Number Case NOINTERNETAVAILABLE MsgBox "Connection to the internet cannot be made or " & _ "Twilio website address is wrong" Case Else MsgBox "Error: " & Err.Number & "; Description: " & Err.Description Resume Exit_Procedure Resume End Select End Function رابعا/ انشئ نموذج يحتوي على ( المرسل اليه - نص الرسالة - ازرار الإرسال ) خامسا / الصق الكود التالي في ازرار الارسال SendSMS "From_Number", "To_Number", "Text_Msg" ملاحظة سيتم منحك رقم للإستخدام في عملية الارسال و عليك ان تضعه في Form_Number عن تجربة هذا الخادم سريع في الارسال كما انه في حال ترقية العضوية يمنحك API للواتساب و تويتر و اغلب وسائل التواصل الاجتماعي

أعتذر عن التأخر في الرد،، وأرجو أن تكون الإجابة في هذا التعديل.. ODB21.accdb

تفضل هذي الفكرة nabil2322.accdb

طيب ، ياريت تخبرنا بالضبط ايش المطلوب ، حتى ممكن نفكر معاك ونوصل الى حل ترضى به 🙂 جعفر

Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يجب ملئ جميع الحقول" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = vbNewLine & ctl.Name Else msg1 = msg1 & vbNewLine & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.OpenReport "ضع هنا اسم التقرير", acViewPreview Else MsgBox msg2 & vbNewLine & msg1, vbCritical + vbMsgBoxRight, "تنبيه" End If

هذه محاولة

السلام عليكم 🙂 هكذا يمكنك عمل مجلد موثوق به على جهازك : . اذا شغلت البرنامج من مجلد غير موثوق به ، فلما تفتح البرنامج لأول مرة ، يعطيك هذا الشريط الاصفر ، والذي يجب ان تنقر على زر "تمكين" : . ولكن وللأسف الشديد ، فمعظم المبرمجين يقومون بعمل خاطئ وشائع ، بجعل النموذج منبثق ، والذي يملئ الشاشة بالكامل ، مما يجعل الشريط خلف الصورة ، فلن تراه ، واستعمال "شكلي او مشروط = نعم" ، مما لا يسمح لك ان تعمل اي شيء في الشاشة !! فيمكنك عمل التالي (اذا كنت محظوظ ولم يقفل عليك المبرمج هذه الطريقة) : امسك مفتاح الشفت على الكيبورد ، ثم انقر مرتين على ايقونة البرنامج لفتحة ، ولا تترك الشفت الى ان يفتح البرنامج ، ثم اعمل مجلد موثوق به (كما في الصورة اعلاه) ، ثم اغلق برنامجك ، ثم انقل برنامجك الى ذلك المجلد الموثوق به ، وافتح البرنامج من هناك 🙂 جعفر معلومة اضافية : او افتح برنامج الاكسس من قائمة Microsoft Office ، وقم بعمل مجلد التوثيق منه 🙂

السلام عليكم الاستاذ الفاضل / جمال دغيدى (بارك الله فيكم) الاستاذ الفاضل / محمود رواس (بارك الله فيكم) الاستاذة الفاضلة / سما محمد (بارك الله فيكم) الاستاذ الفاضل/ حماده عمر (بارك الله فيكم) الاستاذ الفاضل/ محمد التركى (اهلا بكم ) الاستاذ الفاضل/ نور محمد ( ولك مثل دعائك اضعاف مضعفه) الاستاذ الفاضل/ مجدى يونس (جزاكم الله خيرا) بارك الله فيكم جميعا وجزاكم الله خيرا اعتذر لكم على موسيقه الفديو التوضيحى المقدم فى مشاركتى السابقه ....فلقد رفعتة متعجلا ولم انتبه له

بسم الله الرحمن الرحيم ...... قمت بعونه تعالى بعمل برنامج لتحليل الشخصية من خلال الاجابة على مجموعة من الاسئلة حيث ان لكل سوال عدة اجابات لكل اجابة درجة معينة وفي المحصلة تحصل على شخصيتك وفقاً لدرجاتك .. ارجو من الاعضاء ابداء ارائهم بالبرنامج . منتظر ردودكم وملاحظاتكم . وشكرا اخوكم احصائي النت _____________.rar

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

لوسمحتم في سؤال ماعرفت الحل ولازم اسلمة يوم الاحد ممكن احد يساعدني.. :') :') تكفون ابية ضروري :') :') جدول بيانات خاصة بموظفين في شركة تجارية المطلوب اني اطلع البدلات والتى تساوي 4%من الاساسي .. والتـأمين الصحي ويساوي 2%من الاساسي.. والخصومات تساوي 1% في حالة الاساسي اقل من 4000ريال ويساوي 2%لاكثر من 40000ريال.. ممكن اعرف كيف احسب التامين والخصومات والبدلات والمطلوب اني احسب الخصومات بدالة if ومشكورين مقدماً.. :(

السؤال للأخ كينج وهو :

MySQL-to-Access is a program to convert MySQL databases into MS Access format. حجمه 489kb حملوه من هنا

MDBSecure - Utility which makes it easy to create secure MS Access Databases, follows recommended approach SECFaq. It encrypts and removes recognised weaknesses (admin user rights, ownership, permissions, creates super user) and creates workgroups. Other features: assigns passwords (database, super user, admin), import tables from other databases, produces Jet Connection strings. MS Access 2000/2003 format. صورة البرنامج حملوه من هنا

Visual SQL-Designer Visual SQL-Designer is a program for easy visual constructing hard SQL-query for any database and write it. Support ORACLE, MS-SQL 6.5-2000, SyBase, Db2 for NT, MSAccess and other ODBC databases. Load external SQL-query . Show result sets in web browser. Union query builder. The inclusion of OLAP functionality within Visual SQL-Designer helps make multidimensional analysis more affordable and brings the benefits of OLAP to a wider audience. حجمه 4.26 Mb حملوه من هنا

أخوانى الكرام : السؤال هو : كيف يمكننا تغيير رمز محرك الاسطوانةcd-rom بواسطة كود بالاكسس ؟ وذلك ليمكننى من استخدام تللك الاسطوانة فى جميع الاجهزة لآن البرنامج علية ارتباطات بالاسطوانة فهل يمكن فعل ذلك . وكيف يمكننا حماية الاسطوانة من النسخ مثلاً بواسطة كود معين . " أخوانى الكرام أنا مقدم على طرح اسطوانة معينة واريد من كل شخص يشتريها أن يكون له رقم خاص مختلف عن الاخر ليتم فتح البرنامج والابحار فيه فكيف يتم عمل ذك " والله ولى التوفيق

مرحبا للجميع : صممت برنامج اتصالات اداريه صادر ووارد ... اوقفتني هذه المشكله (اريد ان اعمل جمله فلا شيه او شبيهه لها.. تكون الجمله مختفيه تماما وتظهر عندما اقوم بتسديد المعامله الوارده يعني اضع لها رقم تسديد كجهة الصدور او رقم الصادر. وعندما اعود للبحث عن الجمله تظهر لي العباره الفلاشيه (( هذه المعامله صدرت)) وعندما لم اقوم بتسديد القيد لاتظهر . كيف الطريقه .. ارجوا افادتي وشكرا للجميع

كيف يمكنني تعديل نمط الخط في نموذج مع العلم أن النسخة هي نسخة mde أي لا يمكنني التعديل في التصميم ولكم الشكر

مثال لاستخراج أرقام التليفون الموجودة فى حقل الي ملف نص ، مع الفصل بينها ببفاصلة منقوطة و عرض ملف النص ValuesTotxt.rar