السلام عليكم
اريد رد سريع لو تكرمتو
هل هذا الكود صحيح او لا
Private Sub command1_Click()
If P <= 10 Then
Dim stLinkCriteria As String
stLinkCriteria = "[id] =" & Me![id ]
DoCmd.OpenReport "a", acPreview, , stLinkCriteria
else
stLinkCriteria = "[id ] =" & Me![id ]
DoCmd.OpenReport "b", acPreview, , stLinkCriteria
DoCmd.OpenReport "c", acPreview, , stLinkCriteria
End If
End Sub
وشرح هذا الكود كالاتي
اذا كانت عدد السجلات اقل من او يساوي 10 اريده يفتح لي التقرير a
واذا كانت غير ذلك اريد يفتح لي التقريين b,c
بس اوقات تصير لي لخبطة فمثل عندما تكون السجلات اكثر من 10 يفتح لي التقرير a
والمفترض ان يفتح لي التقريرين b, c
ارجو الافادة العاجلة