NOT : Arkadaşın yaşı daha küçük cahilliğine vermek lazım ancak bir arkadaş tavsiyesi vermeden edemeyeceğim. Karşındaki kişiler ile konuşurken onlara ikide bir "anlamazsanız" deyip durma. Eğer karşındaki anlamıyorsa bu senin yetersizliğindir anlatamıyorsundur büyük ihtimalle. Bol kitap okursan karşındakine zorlada olsa anlatırsın derdini merak etme.

  ' Ekleme öncesinde uyarı mesajını kapatalım

  DoCmd.SetWarnings False

  

    ' Birinci tabloya kaydetme işlemi yapalım

    DoCmd.RunSQL "INSERT INTO tblBirinciTablo (musteriAdi) VALUES('" & txtMusteriAdi & "')"

    

    ' Aynı kaydı ikinci tabloya ekleyelim

    DoCmd.RunSQL "INSERT INTO tblIkinciTablo (musteriAdi) VALUES('" & txtMusteriAdi & "')"

  

  ' Ekleme sonrasında uyarı mesajlarını aktif edebiliriz

  DoCmd.SetWarnings True

  

  MsgBox "Kayıt her iki tabloya eklendi", vbInformation, "AccessTr.Net"