ابوآمنة

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

شكرا لك أخي جعفر

شكرا لك ع هذه الإضافة الجميلة سؤال هل نستطيع ‏اضافة ايقونة لتصدير إلى Excel

ما شاء الله تبارك الله شكراً لك أخي عبداللطيف دائما سباق للخير

تابع الموضوع التالي لعله يفيدك :

تابع الموضوع الجديد :

المواصفات المعالج : i5 النواة : 64 الرام : 8 ميجا نوع الويندز : 10 نوع الأوفيس : 2019 الشاشة : لمس هل تقصد مواصفات السفت وير / الهادر وير

شكرا لتفاعلك معنا لكن لم يعمل الكود

العادة يتصل الدرج بالطابعة الحرارية وتتصل الطابعة بالجهاز . لكن الكرت الذي ذكرت يتصل مباشرة بالجهاز . ما هو اسم الكرت السؤال : هل هناك إعدادات من الطابعة الحرارية تسمح بمعرفة حالة الكاشير ؟ ننتظر الرد وشكرا على الافادة

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

رأي سديد وبركت أخي الكريم

اطلع على الموضوعين لعله يفيدك استخدم كود cdo بدون اوت لوك يمكن إرسال رسالة بهذا الكود If InternetGetConnectedState(0&, 0&) Then If IsNull(Me.tomail) And IsNull(Me.sub) And IsNull(Me.msg) Then MsgBox "يجب تعبئة بريد المرسل إليه والموضوع والرسالة" Else Me.myname.SetFocus Me.Command10.Enabled = False Dim iMsg As Object Dim myemail, mypassword, strBody As String 'يجب وضع ايميلك في gmail وكلمة مروره في السطرين التاليين myemail = "@gmail.com" mypassword = "" Set iMsg = CreateObject("CDO.Message") With iMsg .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' default is 25 .Configuration.Fields.Update .replyto = myemail 'myemail or any other If Me.cc <> "" Then .cc = Me.cc 'with coma (,) separated If Me.bcc <> "" Then .bcc = Me.bcc 'with coma (,) separated .To = Me.tomail 'with coma (,) separated .From = """" & Me.myname & """ <" & myemail & ">" .Subject = Me.sub .BodyPart.Charset = "UTF-8" '.TextBody = "plain text" 'send pain text '.CreateMHTMLBody "http://www.google.com" 'send web page '.CreateMHTMLBody "file://c|/temp/test.htm" 'send hrml file .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'>عزيزي : <font style='color:red'>" & Me.toname & "</font><br /><br />" & Replace(Me.msg, vbNewLine, "<br />") & "<br />مع تحيات :<br /><font style='color:green'>" & Me.myname & "</font></div>" For i = 0 To (Me.attach.ListCount - 1) .AddAttachment (Me.attach.Column(0, i)) Next .Send End With Me.Command10.Enabled = True Set iMsg = Nothing MsgBox "تم إرسال الرسالة بنجاح", vbOKOnly, "مع تحيات أ / محمد صالح" End If Else MsgBox "يجب أن تكون متصلاً بالإنترنت لكي يتم إرسال الرسائل", vbOKOnly, "مع تحيات أ / محمد صالح" End If في رأس المديول Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long في وقت سابق جرب فكرة إرسال رسالة دون علم المستخدم لكن واجهت مشكلة وهي إعدادات الأمان في الإيميل

السلام عليكم ما هو البرامج المناسبة للاتصال عن بعد مثل : TeamViewer عيوب النسخة المجانية منه : لا يمكن إخفاء شاشة العميل . آمل مشاركة تجاربكم النجاحة في الاتصال عن بعد بالعملاء وأي البرامج المناسبة المجانية وغيرها .

DCount("*";"[tb]";"[نوع الفاتورة]='شراء'") التنوع في الإجابة يفيدنا جميعاً شكراً لك عبداللطيف

لدي قريب من نفس المشكلة لدي شجرة للأصناف تعمل في بعض الأجهزة وبعضها لا أرجو من لديه الخبرة فاليفيدنا

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

جرب المرفق الآن منع تكرار الحجز3.mdb

‏‏منع تكرار الحجز2.mdb تم إجراء بعض التعديلات ليتلائم مع طلبكم

مثلا ‏نفترض أن لديك أربع مربعات نص تريد أن تفرغ القيم منها بعد طباعة التقرير والطريقة كالتالي: Me.txt1="" Me.txt2="" Me.txt3="" Me.txt4="" لا تنس أن تضع كود الطابعة قبل في محرر الفيجوال بيسك عند حدث زر الضغط . وبالتوفيق

If DCount("*", "tbl1", "[Date]= form![Date]") = 1 ThenMsgBox ("مكرر"): Undo ضع الكود في حدث تاريخ الحجز قبل التحديث أو بعده

السؤال : عرضه علي أحد العملاء . ويمكن معرفة ذلك من مقاومة السنسر

السلام عليكم ورحمة الله وبركاته هل يوجد كود لمعرفة حالة صندوق الكاشير إذا كان مفتوحاً أو مغلقاً . مثال : لو كان درج الصندوق مفتوح لا يسمح للعميل بإنشاء فاتورة جديدة حتى يقوم بإغلاق الدرج . وشكراً لكم

استفسار عندما تكون قاعدة البيانات مقسمة لا تظهر لي الجداول في القائمة ما السبب وما الحل ؟