Eğer kod isteği

[cavanoos]

Merhaba arkadaşlar;

Alttaki kodda veritabanına bir kayıt yapıyorum.Makro kodu G4 hücresinden başlar ve devamındaki 500 insert sorgusunu içeri atar.

Bir sorum olacak.

G4 hücresinde hiç değer yok ise hata veriyor.Bir eğer komutunu ihtiyacım var.G4 hücresinde insert sorgusu yoksa işlem yapmasın ve hata yerine mesaj versin.İşlem varsa yapsın.

Yardım edebilir misiniz ?

If cn.State = adStateOpen Then
cm.ActiveConnection = cn
cm.CommandType = adCmdText
cm.CommandText = ""
For i = 4 To 500
If Range("G" + Trim(Str(i))).Value2 <> "" Then
cm.CommandText = cm.CommandText + Range("G" + Trim(Str(i))).Value2 + ";"
Else
Exit For
End If
Next
cm.Execute
Set cn = Nothing
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
MsgBox ("Kayıt edildi.Gördünmü işte yaptım en sonunda!!")
End Sub