اذهب الي المحتوي
أوفيسنا

أبوبسمله

الخبراء
  • Posts

    3,244
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    30

مشاركات المكتوبه بواسطه أبوبسمله

  1. وعليكم السلام

    ع حسب فهمى لسؤالك اتفضل جرب ووافنا بالنتيجه

    Private Sub num1_Exit(Cancel As Integer)
    Me.merg = Me.num1
    End Sub
    
    Private Sub num2_Exit(Cancel As Integer)
    Me.merg = Me.num1 & Me.num2
    End Sub
    
    Private Sub num3_Exit(Cancel As Integer)
    Me.merg = Me.num1 & Me.num2 & Me.num3
    End Sub
    
    Private Sub num4_Exit(Cancel As Integer)
    Me.merg = Me.num1 & Me.num2 & Me.num3 & Me.num4
    End Sub

     

    New Microsoft Access Database.accdb

  2. اخى @husseinharby

    جرب ووافنى بالنتيجه وان شاء الله يكون فى حلول افضل

    الكود موجود فى حدث بعد التحديث للفورم الفرعى

    Private Sub Form_AfterUpdate()
    DoCmd.RunCommand acCmdSaveRecord
    Me.Requery
    'MsgBox Me.Text70.Value
    Forms!sale!code.SetFocus
    If Forms!sale!code = 1 Then
    Forms!sale!deposit = Forms!sale!Text49
    Else
      Forms!sale!deposit = 0
    End If
    Forms!sale!sale_sub.SetFocus
    DoCmd.GoToRecord , , acNewRec
    
    End Sub

    بالتوفيق

    copy-2.accdb

  3. 42 دقائق مضت, kha9009lid said:

    دائما احرص على تحميل اي مرفق من تعديلكم للاستفادة

    جزاك الله خيرا اخى واستاذى خالد ويشرفنى انك تتابع تعديلاتى وافرح كثيرا عندما تعقبون وتعدلون عليها فمازلت اجهل الكثير واتعلم منكم اخوانى واساتذتى بارك الله فيكم وجزاكم الله كل خير

    💐

    • Like 1
  4. السلام عليكم اخى @husseinharby

    مشاركه مع اخى العزيز @husamwahab جزاه الله خيرا

    نفس كود اخى حسام بس نقلته فى حدث عند الخروج للتكست 49 الصافى

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

    ان شاء الله يكون ما تريد

    بالتوفيق

    copy-2.accdb

    • Like 1
×
×
  • اضف...

Important Information