Private Sub Komut1_Click()
Dim HangiEtiket As String, Cvp As Variant  
HangiEtiket = "Etiket1" 
Cvp = InputBox("Adi Ne Olacak", "NESNE", 0) 
'***** Cevabi Eski - Yeni olarak alinirsa. Misal: Etiket1-Secenek1 seklinde ***********
If DCount("*", "FormEtiket", "FormAdi='" & Me.Name & "' And OrijinalAd='" & Split(Cvp,"-")(0)& "'") > 0 Then   
CurrentDb.Execute "UPDATE FormEtiket Set TakmaAd='" & Split(Cvp,"-")(1) & "' Where (((FormAdi)='" & Me.Name & "') And ((OrijinalAd)='" & Split(Cvp,"-")(0)& "'))"
Else   
CurrentDb.Execute "INSERT INTO FormEtiket ( FormAdi, OrijinalAd, TakmaAd ) VALUES('" & Me.Name & "', '" & Split(Cvp,"-")(0) & "', '" & Split(Cvp,"-")(1) & "')"
End If
Call Form_Load
 End Sub