Skip to main content

AccessTr.neT


Form da kaydet butonu

Form da kaydet butonu

Çözüldü #13
Customers herhangi birşey yapmadım Personel sayfasında açtığın zaman hata uyarısı vermiyor.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #14
sayın Duayen personel Excel sayfamdaki personel arayüzünü açtığımda yazdığım verileri normalde personel Excel sheetine yazması gerekiyor fakat hata veriyor.tekrar tekrar denedim olmuyor
Cevapla
Çözüldü #15
Bu kodu denermisiniz.
Kod:
Private Sub CommandButton2_Click()

'KAYDET
    If TextBox2.Text <> "" Then
    
         If TextBox1.Text <> "" Then
For i = 2 To Sheets("PERSONNEL").Range("A65536").End(xlUp).Row
               If UCase(Sheets("PERSONNEL").Range("d" & i).Value) = UCase(TextBox1.Text) And _
          UCase(Sheets("PERSONNEL").Range("f" & i).Value) = UCase(TextBox2.Text) Then
                    MsgBox "Bu isimde bir kişi zaten kayıtlarda var", vbCritical, "DUAYEN"
                    Exit Sub
                End If
            Next i
   With Sheets("PERSONNEL")
                  Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
                  Bos_Satir = Son_Dolu_Satir + 1
           .Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(.Range("A:A")) + 1
           .Range("A" & Bos_Satir).Value = TextBox1.Text
           .Range("B" & Bos_Satir).Value = TextBox2.Text
           .Range("C" & Bos_Satir).Value = TextBox3.Text
           .Range("D" & Bos_Satir).Value = TextBox4.Text
           .Range("E" & Bos_Satir).Value = TextBox5.Text
          
          
            
        
  End With
  
                Else
   MsgBox "DUAYEN-DYN"
   End If
Else
MsgBox "DUAYEN-DYN"
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""

Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #16
Sayın Duayen 424 nolu hata veriyor(object required yazısı çıkıyor )
Cevapla
Çözüldü #17
Sn;Fakbas11
Bende hiç bir hata vermedi sizde nasıl verdi anlamıyorum verdiğim kod nereye yazıyorsun bilmiyorum ama bendeki örneği ekliyorum.
şimdi bu sırayı takip ederek yaparsan çözüme varmış oluruz.
İlk önce Excel sayfasında HOMEPAGE sayfasına geleceksin sonra,Personnel buttona tıklıyacaksın,sonrada açılan UerForm bilgileri yazdıktan sonra Save button tıkladıktan sonra Excel Personnel sayfasına verilerin kaydetecek ve en son bendeki örneği ekliyorum.
DUAYEN...
MRP PROJECT KH7XCP.rar
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #18
Teşekkür ederim sayın Duayen ellerinize sağlık
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task