moamen salem

السلام عليكم محتاج كود لجلب رقم المازر بورد لاني عامل حماية برقم الهارد ديسك وللاسف لما الكمبيوتر بيتفرمت بيتغير

وعليكم السلام رقم واتساب 00201200637777

اهلا وسهلا اخي الكريم الرد علي حسب علمي والله اعلم 1- نعم 2- لا 3- انا اشتريت برنامج للقيام بذلك

تم العثور علي الحل الحمد لله Dim RetVal RetVal = Shell("مسار الملف", 1) ولكن محتاج كود لاغلاق البرنامج في الخلفية

استاذي " ابو جودي " جزاك الله خير الحمد لله تم حل المشكلة ولكن عن طريق شراء برنامج مساعد من احد المطورين بحيث يحول ال QR العادي الي مشفر حسب طلبات الهيئة مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير

السلام عليكم اساتذتي الكرام ارجوا كود تشغيل برنامج معين في الخلفية

اشكرك جدا علي اهتمام حضرتك المشكلة انه اكثر من كود الاول باسم Settings.Designer '------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region Public Shared ReadOnly Property [Default]() As MySettings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If End SyncLock End If #End If Return defaultInstance End Get End Property End Class End Namespace Namespace My <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Friend Module MySettingsProperty <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ Friend ReadOnly Property Settings() As Global.WindowsApplication1.My.MySettings Get Return Global.WindowsApplication1.My.MySettings.Default End Get End Property End Module End Namespace الثاني باسم Resources.Designer '------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Namespace My.Resources 'This class was auto-generated by the StronglyTypedResourceBuilder 'class via a tool like ResGen or Visual Studio. 'To add or remove a member, edit your .ResX file then rerun ResGen 'with the /str option, or rebuild your VS project. '''<summary> ''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo '''<summary> ''' Returns the cached ResourceManager instance used by this class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property '''<summary> ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set resourceCulture = value End Set End Property End Module End Namespace الثالث باسم AssemblyInfo Imports System Imports System.Reflection Imports System.Runtime.InteropServices ' General Information about an assembly is controlled through the following ' set of attributes. Change these attribute values to modify the information ' associated with an assembly. ' Review the values of the assembly attributes <Assembly: AssemblyTitle("WindowsApplication1")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("WindowsApplication1")> <Assembly: AssemblyCopyright("Copyright © 2018")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("3d6e3cdb-ba47-4858-a715-8a6828971e2e")> ' Version information for an assembly consists of the following four values: ' ' Major Version ' Minor Version ' Build Number ' Revision ' ' You can specify all the values or you can default the Build and Revision Numbers ' by using the '*' as shown below: ' <Assembly: AssemblyVersion("1.0.*")> <Assembly: AssemblyVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")> الرابع باسم Application.Designer '------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My 'NOTE: This file is auto-generated; do not modify it directly. To make changes, ' or if you encounter build errors in this file, go to the Project Designer ' (go to Project Properties or double-click the My Project node in ' Solution Explorer), and make changes on the Application tab. ' Partial Friend Class MyApplication <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false Me.EnableVisualStyles = true Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.WindowsApplication1.Form1 End Sub End Class End Namespace

استاذنا الكريم ومعلمنا الجليل دلوقتي يوجد مشكلة غير عادية في ال QR للاسف انا كنت فاهمه غلط محتاجينه مشفر تشفير معين لا يمكن قراءته مع قارئ QR العادي انا هرفق لحضرتك صورة من نموذج معمول بالفيجوال دود نت ولكن للاسف مش هينفع مع الاكسس لغة التشفير Base64

ما شاء الله لا قوة الله بالله انا فعلا عامل الرسائل دي في نماذج منفصلة اما كدة ممتازة

ما شاء الله علي حضرتك كلها حلات فوق الممتازة جزاك الله عنا كل خير

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

شوف دا كدة

نفس المشكلة حصلت معايا ولكن الحل استخدم دالة =Round([Tax];2)

اشكرك جدا استاذي الفاضل المحترم تمت زي ما انا عايز بالظبط ما شاء الله عليك ربنا يجازيك عنا كل خير

اشكر حضرتك جدا جدا وجزاك الله الف غير وجعله في ميزان حسناتك معليش اطلت علي حضرتك كثير اكون ممنون لحضرتك لو عملت الفكرة في منشئ التعبير ولا اقصد فكرة QR اقص فكرة اني اجعل مصدر حقل غير منضم يظهر فيها الاسم علي سطرين

ممكن بعد اذن حضرتك نضيف عدد الفروع بجوار الاسم في كل المراحل بمعني الجد تحت منه كم شخص سواء فروع او فروع الفروع والفرع تحت منه كام شخص سواء الفروع الفرعية او اللي تحت الفروع الفرعية

اتفضل استاذي الفاضل محتاج بعد اذن حضرتك لما اسحب qr يطلع بالشكل التالي مؤمن سالم حسن عبداللطيف بمعني الاسم علي السطر الاول واسم الاب علي السطر الثاني Database1.rar

جزاك الله عنا كل خير

جزاكم الله عنا خير الجزاء

مميز كالعادة يا استاذنا جعله الله في ميزان حسناتك

اشكر حضرتك علي التواضع والاهتمام عايز مثلا بدل ما يبقي مؤمن سالم حسن عبد اللطيف يبقي مؤمن سالم حسن عبد اللطيف

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

اتفضل اخي اما مشكلة اتجاة العنوان معرفش للاسف

اللي عندي 4.8 في ويندوز 7 لم يعمل في ويندوز 10 الاصدار 4.8.4084.0 واشتغل