TcKimlik Sorgu Formu / Bilgileri aktar butonu. Butondaki kod ile Sorgu formundaki veriyi personel bilgi formu veya şuphelimağdur bilgi formundaki metin kutularına aktarılıyor.
Butondaki Kod
Kod:
Private Sub Komut195_Click()
On Error GoTo Err_Komut195_Click
Const FRM_A = "ŞÜPHELİMAĞDURBİLGİFORMU"
Const FRM_B = "PERSONELBİLGİFORMU"
Dim strArgs As String
If isFormLoaded(FRM_A) Then
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!TCKİMLİKNO = Me.Metin147
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!ANAADI = Me.Metin169
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!BABAADI = Me.Metin165
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!CİNSİYETİ = Me.Metin177
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!NÜFKAYOLİL = Me.Metin148
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!NÜFKAYOLİLÇE = Me.Metin149
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!MAHKÖY = Me.Metin163
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!CİLTNO = Me.Metin167
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!AİLESIRANO = Me.Metin175
Forms!ŞÜPHELİMAĞDURBİLGİFORMU!SIRANO = Me.Metin171
End If
If isFormLoaded(FRM_B) Then
Forms!PERSONELBİLGİFORMU!TCKİMLİKNO = Me.Metin147
Forms!PERSONELBİLGİFORMU!ANAADI = Me.Metin169
Forms!PERSONELBİLGİFORMU!BABAADI = Me.Metin165
Forms!PERSONELBİLGİFORMU!CİNSİYETİ = Me.Metin177
Forms!PERSONELBİLGİFORMU!NÜFKAYOLİL = Me.Metin148
Forms!PERSONELBİLGİFORMU!NÜFKAYOLİLÇE = Me.Metin149
Forms!PERSONELBİLGİFORMU!MAHKÖY = Me.Metin163
Forms!PERSONELBİLGİFORMU!CİLTNO = Me.Metin167
Forms!PERSONELBİLGİFORMU!AİLESIRANO = Me.Metin175
Forms!PERSONELBİLGİFORMU!SIRANO = Me.Metin171
End If
If MsgBox("Aktarma İşlemi Yapıldı. Form Kapatılsın mı?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.Close
End If
Exit_Komut195_Click:
Exit Sub
Err_Komut195_Click:
MsgBox err.Description
Resume Exit_Komut195_Click
End Sub