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

اتفضل On Error Resume Next Forms!forms_serh_fatora2!serh = DLookup("[id_sand]", "tabol_fatora", "[id_sand]=" & Me.id_sand) DoCmd.Close acForm, "forms_serh_fatora1", acSaveNo Me.Refresh DoCmd.Requery If Forms!forms_serh_fatora2!xxx2 = "saved" Then Forms!forms_serh_fatora2!cansel_1.Enabled = True Forms!forms_serh_fatora2!fary2.Enabled = True Else Forms!forms_serh_fatora2!cansel_1.Enabled = False Forms!forms_serh_fatora2!fary2.Enabled = False End If

شوف الفيديو حسين.rar

اجعل Label5 مربع نص ثم جرب هذا الكود If Me.Label5 > 0 Then MSComm1.PortOpen = False Else MSComm1.PortOpen = True End If

لعل احد الاخوه يفيدك اذا ما استطعت عليه انا فاعذرني

شغال عندي PROGRMS_Market_CONTROL.rar

DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Enabled = False

جرب هذا ولا تتاخر بالرد DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form.Visible = True Else Me.cansel_1.Enabled = False Me.fary2.Form.Visible = False End If

تسلم اخي qassim-t

جرب هذا On Error Resume Next If Screen.ActiveForm.Name Then Forms!frm1!txt = 1 DoCmd.Close acForm, "frm" End If If Screen.ActiveForm.Name Then Forms!frm2!txt = 1 DoCmd.Close acForm, "frm" End If

اتفضل DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form!نص18.Enabled = True Me.fary2.Form!نص14.Enabled = True Me.fary2.Form!Qote_item.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Form!نص18.Enabled = False Me.fary2.Form!نص14.Enabled = False Me.fary2.Form!Qote_item.Enabled = False End If

لا اعرف اخي هل هو ما فهمته شوف المرفق On Error Resume Next Forms!frm1!txt = 1 Forms!frm2!txt = 1 DoCmd.Close form (1).rar

هذا الكود سليم ميه في الميه وهو بيخصم

DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Else Me.cansel_1.Enabled = False End If PROGRMS_Market_CONTROL.rar

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

اخي فارس بني هلال نحن هنا نعاون بعضنا البعض

شوف اخي اول حقل = اول حقل =Column(0) والثاني Column(1) وهذا اي يعتبر اذكان رقم 4 فسيكون Column(3) واذا لم ينفع ارفع الملف مع شرح المطلوب

بالتوفيق اخي وبارك الله فيك

لعلك تجد ماتبحث عنه هناء

اتفضل =Count(*) المحاضرات والقاعة.accdb

بالتوفيق اخي

ممكن ترفع مثال لما تريد

جرب هذا Me.txtdow = Me!مربع_تحرير_وسرد68.Column(2) test (11).rar

ما اسم حقل تاريخ التعين

نفترض ان الحقل المراد عده هو box Box.ListCount