Kodu Aşağıdaki Gibi Uyarlamaya çalıştım :
Kod:
Private Function isFormLoaded(strFormName As String)
isFormLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormName)
End Function
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click
Const FRM_A = "ARAC_BILGILERI"
Dim strArgs As String
If FRM_A Then
Forms!arac_bilgileri!txtPlak = Me.txtPlak
Forms!arac_bilgileri!txtMarka = Me.txtMarka
Forms!arac_bilgileri!txtModel = Me.txtModel
Forms!arac_bilgileri!txtTescilTarihi = Me.txtTescilTarihi
Forms!arac_bilgileri!txtTescilBirimi = Me.txtTescilBirimi
Forms!arac_bilgileri!txtRenk1 = Me.txtRenk1
Forms!arac_bilgileri!txtRenk2 = Me.txtRenk2
Forms!arac_bilgileri!txtCins = Me.txtCins
Forms!arac_bilgileri!txtCalinti = Me.txtCalinti
End If
If MsgBox("Aktarma İşlemi Yapıldı. Form Kapatılsın mı?", vbYesNo) = vbYes Then
Cancel = True
End If
Exit_Komut13_Click:
Exit Sub
Err_Komut13_Click:
MsgBox Err.Description
Resume Exit_Komut13_Click
End Sub
if döndüsünü komple kaldırdığım da ise direk hata veriyor. Bunu çözersem aynı forumda bulunan TC kimlik no sorgulamayıda Tc no girerek tek alana isim getir me şeklinde yapmayı deneyeceğim.
Sizce nerede hata yapmış olabilirim? Yardımcı olursanız sevirinim..
Projeyi ekledim. default şifreler 1234 tür.
Uygulama yapmaya çalıştığım forum adı : arac_durum