13-02-2020, 15:40
O zaman kodu şu şekilde düzenlememiz gerekir. Bu durumda alanlar kontrol edilir. Eğer alanlardan biri veya daha fazlası boş ise boşluk karakterine eşitlenir, dolu olanlara zaten bir şey yapmamıza gerek yok. Diyelim ki 1. alan boş 2. alan dolu, 3. alan boş bu durumda gönderilecek veri;
alan1 = " "
alan2 = alan2de yazılan bilgi
alan3 = " "
Eğer boş alanları boşluk karakterine eşitlemeseydik acCmdCopy komutu Null değeri görüp hata verecekti.
alan1 = " "
alan2 = alan2de yazılan bilgi
alan3 = " "
Eğer boş alanları boşluk karakterine eşitlemeseydik acCmdCopy komutu Null değeri görüp hata verecekti.
Visual Basic
- Private Sub Komut132_Click()
- Dim mesaj
- mesaj = MsgBox("Bilgiler Sağ Tarafa Aktarılacak! Devam Edecekmisiniz ? ", vbYesNoCancel)
- If mesaj = vbYes Then
-
- if IsNull(bir_adi) Then
- bir_adi = " "
- Endif
-
- if IsNull(bir_maili) Then
- bir_maili = " "
- Endif
-
- if IsNull(bir_telefonu) Then
- bir_telefonu = " "
- Endif
-
- DoCmd.GoToControl "bir_adi"
- DoCmd.RunCommand acCmdCopy
- DoCmd.GoToControl "iki_adi"
- DoCmd.RunCommand acCmdPaste
- DoCmd.GoToControl "bir_maili"
- DoCmd.RunCommand acCmdCopy
- DoCmd.GoToControl "iki_maili"
- DoCmd.RunCommand acCmdPaste
- DoCmd.GoToControl "bir_telefonu"
- DoCmd.RunCommand acCmdCopy
- DoCmd.GoToControl "iki_telefonu"
- DoCmd.RunCommand acCmdPaste
- Else
- Msgbox "Kopyalama kullanıcı tarafından iptal edildi"
- End If
- End Sub