Vba tabloya veri ekleyerek diğer verilerin üzerine yazıyor

Question

Çalışmak için bir veri tabanı oluşturdum ve bir şeyler eklemek için bir form hazırladım, böylece işçiler tablolarla uğraşmazlar. Verileri her zaman ekleyecektir, ancak bazen bunu aşağıya eklemek yerine, başka bir veri satırı üzerine yazacaktır. Bazen bir satır bile değil, sadece birkaç sütun. Kodu iki farklı şekilde yapmaya çalıştım.

Dim rst As Recordset 
Set rst = CurrentDb.OpenRecordset("Service Calls") 
With rst 
.AddNew 
.Fields("Project Name") = Me.proj 
.Fields("Service Address") = Me.address 
.Fields("Date of Service") = Me.doS 
.Fields("Technician") = Me.tech 
.Fields("Total Billed") = Me.billed 
.Fields("Zip Code") = Me.zip 
.Fields("Description of Work") = Me.work 
.Fields("Type of Call") = Me.toC 
.Fields("Invoice Number") = Me.invoiceNum 
.Fields("Ticket Number") = Me.ticketNum 
.Update 
End With 
    rst.Close 
    Set rst = Nothing 

CurrentDb.Execute " INSERT INTO [Service Calls] " _ 
    & "([Project Name], [Phone Number], [email], [Source], [Service Address], [Zip Code], [Date of Service], [Type of Call], [Technician], [Ticket Number], [Invoice Number], [Total Billed], [Description of Work]) VALUES " _ 
    & "('" & Me.proj & "', '" & Me.phone & "', '" & Me.email & "', '" & Me.source & "', '" & Me.address & "', '" & Me.zip & "', '" & Me.doS & "', '" & Me.toC & "', '" & Me.tech & "', '" & Me.ticketNum & "', '" & Me.invoiceNum & "', '" & Me.billed & "', '" & Me.work & "');" 
    CurrentDb.Close 

ve

Bir diğerinden daha fazla veri içerdiğini değilim. Formu güncellediğimde üst kodu kullandım.

Çözüldü: Formdaki bazı alanlar ciltlendi. Yani, bu öğeler bazen üzerine yazacaktı. Bu alanları bağladığımda, üzerine yazmayı durduracaktı.

Answer 1

.AddNew VBA veya 'Insert into' SQL, varolan verileri tablolarda kaplayacağından, bunun nedeni başka bir şeydir. Formdaki denetimler BOUND ise, basitçe bunlara yazarak altta yatan kayıt tabloya yerleştirilir. Sizin durumunuzda, bağlı ve ilişkisiz kontrollerin bir kombinasyonu olduğundan, ilişkili kontroller problemi yarattı.

Answer 2

'Bazen' ne anlama geliyor? Bilgisayarlar bazen bir şeyler yapmazlar ve bazen başka şeyler yaparlar. Bilgisayarlar deterministiktir, bu yüzden bazı süreç çalışır veya işe yaramıyor. Şu anda bağlı değil gibi görünüyor. Bu süreci bağlanmamış veya bağlı hale getirebilir ve ikisini karıştırmaz mısınız? Bu sorunu çözmeli.