Aj probaj ovako, samo moras da ukljucis has module na svakoj formi 1,2,3. To ti je u properties pa pod other.
Code:
Private Sub racunid_DblClick(Cancel As Integer)
If Me.text1 = "form1" Then
DoCmd.OpenForm "form1", acNormal
db5.Form_Form1.racunid.SetFocus
DoCmd.FindRecord db5.Form_pregledracuna.racunid, acEntire, , acSearchAll, , acCurrent
End If
If Me.text1 = "form2" Then
DoCmd.OpenForm "form2", acNormal
db5.Form_Form2.racunid.SetFocus
DoCmd.FindRecord db5.Form_pregledracuna.racunid, acEntire, , acSearchAll, , acCurrent
End If
If Me.text1 = "form3" Then
DoCmd.OpenForm "form3", acNormal
db5.Form_Form3.racunid.SetFocus
DoCmd.FindRecord db5.Form_pregledracuna.racunid, acEntire, , acSearchAll, , acCurrent
End If
End Sub