زر تكرار

[بشير او]

افيدونا ي كرام

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

[omarahmed1424]

متابع

 

[يوسف أحمد]

السلام عليكم

اخي العزيز بشير

الكود التالي يفي بما تبحث عنه ان شاء الله

On Error GoTo a

Dim intId As Double
Dim strName As String

  intId = Me.txtId
  strName = Me.txtName

  DoCmd.GoToRecord , , acNewRec

  Me.txtId = intId
  Me.txtName = strName
  Exit Sub
  
a:
MsgBox "لا يوجد سجل حالي"
Exit Sub

حيث txtId هو اسم مربع النص الخاص بالحقل id

txtName هو اسم مربع النص الخاص بالحقل eName

تفضل مثال لما تريد

 

بالتوفيق

test.rar