اخواني صمت نموذج المنتجات حيث يمكنك احتيار المجموعة عن طريق فتح نموذج بحث يعرض لك اقرب النتائج
المتوفرة من اسماء المجموعة وذلك تبعأ للأدخال سوء عن طريق ادخال جزء من كود المجموعة او اسم المجموعة
ومن ثم اختيار الاسم المراد من نموذج البحث
والذي اريده هو اذاء كان عدد السجلات المعادة من الاستعلام المنفذ =1 لايظهر نموذج البحث ويضيف اسم المجموعة مباشرة من هذا السجل انا قمتت بوضع الكود التالي:
Private Sub Group_AfterUpdate()
Dim dbsCurrent As Database, rstrstServ2 As Recordset
Set dbsCurrent = CurrentDb()
Set rstrstServ2 = dbsCurrent.OpenRecordset("SELECT Group1.namGroup FROM Group1 WHERE (((Group1.codegroup) = Like " & Me.group & ")) ORDER BY Group1.codegroup;")
'If rstrstServ2.RecordCount = 1 Then
Me.group = rstrstServ2!namGroup
rstrstServ2.Close
Exit Sub
End If
DoCmd.OpenForm "Search", acNormal, , , acNormal, acDialog, Me.group & ""
End Sub
لكن عندما ادخل قيمة عددية مافي مشكلة لكن اذا كانت حروف لا يعمل الاستعلام في فيجول بيسك
فهل من حل مشكورين سلف