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

ابو تراب

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    393

  • تاريخ الانضمام

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

  • Days Won

    5

 نوع المحتوي 

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

    عدم فتح القاعدة عند استخدام مفتاح شيفت

    في قسم الأكسيس Access

    قام بنشر

    28 دقائق مضت, tiger wanted said:

    شكرا ولكن اريد الحل عن طريق الكود 

    Dim prop As Property
        On Error GoTo SetProperty
        Set prop = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False)
        
        CurrentDb.Properties.Append prop
        
SetProperty:
        If MsgBox("Would you like to turn on the Bypass Key?", vbYesNo, "Allow Bypass?") = vbYes Then
            CurrentDb.Properties("AllowBypassKey") = True
        Else
            CurrentDb.Properties("AllowBypassKey") = False
        End If

     

    أحتاج بعض الأفكار عن طريقة برمجة الوحدات في برامج البيع

    في قسم الأكسيس Access

    قام بنشر

    في ٢٤‏/٥‏/٢٠٢٠ at 23:38, أحمد الفلاحجى said:

    عيدكم مبارك اخوانى واساتذتى @kha9009lid @حلبي @ابوخليل @أبو عبدالله الحلوانى @ابو تراب وجميع اخوانى واساتذتى 💐

    ومايكون خاطركم الا طيب 💐

    اخوكم الصغير احمد

    عيد سعيد اخي العزيز @أحمد الفلاحجى وكل عام وانت وجميع اخوانتنا بخير و عافية🌹

    • Like 1

    ترقيم بشرط الجنس

    في قسم الأكسيس Access

    قام بنشر

    2 دقائق مضت, فايز.. said:

    @ابو تراب يا زين محاولاتك .. 

    ياليت تقول لنا أين حصل التغيير .. لي ساعة أبحث وأعدل وأبدل ولا وصلت لنتيجة .. 

    حياك الله اخي @فايز..

    تغيير في حقل الجنس

      

    Private Sub GENRE_AfterUpdate()

If Not IsNull(Me.GENRE) Then

    Dim lastID As Integer
    Dim lastCode As String
    
    
    
    lastID = Nz(DMax("Units_AutoID", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "'"), 0)
    lastCode = Nz(DLookup("CODE", "TabUnitsTeachers", "UNITS = '" & Me.GENRE.Value & "' AND Units_AutoID=" & lastID), vbNullString)
    
    If lastCode = vbNullString Then
        lastCode = Switch(Me.GENRE.Value = "ÐßÑ", "01-000", Me.GENRE.Value = "ÃäËì", "02-000")
    End If
    
        Me.ID_TEACHER.Value = Left(lastCode, 3) & Format(Val(Right(lastCode, 3)) + 1, "000")
Else
    Me.ID_TEACHER.Value = vbNullString
End If

End Sub

    وتغيير بعد الحفط 

    Private Sub Form_AfterUpdate()
    If Not IsNull(Me.GENRE) And Not IsNull(Me.ID_TEACHER) Then
        DoCmd.RunSQL "INSERT INTO TabUnitsTeachers (UNITS, Code) VALUES ('" & Me.GENRE.Value & "','" & Me.ID_TEACHER.Value & "')"
    End If
End Sub

     

    • Like 3
×
×
  • اضف...

Important Information

  I accept